;; | -----------------------------------------------------------------------------
;; | SS_AndCond
;; | -----------------------------------------------------------------------------
;; | Function : Applies the AND condition on a set of individual conditions
;; | Arguments:
;; |            'DottedLst' - List of dotted pairs defining individual conditions
;; | Return   : The AND condition list that can be used by the ssget function.
;; | Updated  : December 2, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun SS_AndCond ( DottedLst / Lst )

(setq
	Lst (cons (cons -4 "<AND") DottedLst)
	Lst (append Lst (list (cons -4 "AND>")))
)
)