Subversion Repositories programming

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
71 irasnyd 1 
;Written By: Ira Snyder
2 
;Due Date:   02-21-2005
3 
;Homework #: HW10 (Exercise #15)
4 
 
5 
(defmacro ZERO* (&rest VARS)
6 
  (do ((VARS VARS (cdr VARS))
7 
       (RET nil))
8 
      ((null VARS) (cons 'progn RET))
9 
    (setf RET (cons `(setf ,(car VARS) 0) RET))
10 
  )
11 
)
12