;; | ----------------------------------------------------------------------------
;; | SS_OrCond
;; | ----------------------------------------------------------------------------
;; | Function : Applies the OR condition on a set of individual conditions
;; | Arguments:
;; |            'DottedLst' - List of dotted pairs defining individual conditions
;; | Return   : The OR 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_OrCond ( DottedLst / Lst )

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