;; | ----------------------------------------------------------------------------
;; | XD_Add_List_Bracket
;; | ----------------------------------------------------------------------------
;; | Function : Add a bracket to an extended entity list to make it compatible
;; |            with XD_WriteX
;; | Argument : [xd]      - the extended entity data
;; | Return   : xdata is returned with brackets added before each nexted list
;; |            This can be passed on directly to XD_WriteX
;; | Updated  : November 20, 1998
;; |
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun XD_Add_List_Bracket ( xd / cnt len xdLst )

(setq
	len (length xd)
	cnt 0
	xdLst '()
)
(foreach itm xd
	(if (listp itm)
		(setq
			itm (cons "{}" itm)
			itm (XD_Add_List_Bracket itm)
		)
	)
	(setq xdLst (append xdLst (list itm)))
)
xdLst
)