Subversion Repositories programming

Rev

Rev 100 | Details | Compare with Previous | 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)
108 ira 4 
;License: Public Domain
71 irasnyd 5 
 
6 
(defmacro ZERO* (&rest VARS)
7 
  (do ((VARS VARS (cdr VARS))
8 
       (RET nil))
9 
      ((null VARS) (cons 'progn RET))
10 
    (setf RET (cons `(setf ,(car VARS) 0) RET))
11 
  )
12 
)
13