LISP Routines

Variable Settings


;;;(SaveVariables '("cmdecho" "clayer" "osmode"))

(defun SaveVariables (lstVariables / )

  (setq lstSettings (quote NIL))

  (setq lstSettings (mapcar '(lambda (Variable) (append lstSettings (list variable (getvar variable))))lstVariables))

)



(defun ResetVariables ( / )

  (mapcar '(lambda (Variable) (setvar (car Variable) (cadr Variable))) lstSettings)

)