Subversion Repositories programming

Rev

Rev 71 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed 

;Written By: Ira Snyder
;Due Date:   02-21-2005
;Homework #: HW10 (Exercise #15)

(defmacro ZERO* (&rest VARS)
  (do ((VARS VARS (cdr VARS))
       (RET nil))
      ((null VARS) (cons 'progn RET))
    (setf RET (cons `(setf ,(car VARS) 0) RET))
  )
)