;; | ---------------------------------------------------------------------------
;; | LI_New
;; | ---------------------------------------------------------------------------
;; | Function : Creates an list of a given length with the given argument as
;; |            the list element
;; | Argument : 'Len'    - The length of the list
;; |            'Val'    - Value of each element of the list
;; | Returns  : The newly created list
;; | Updated  : August 11, 2001
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun LI_New ( len Val / Lst )

(setq Lst '())
(repeat len
	(setq Lst (cons Val Lst))
)
Lst
)