Subversion Repositories programming

Rev

Rev 100 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 100 Rev 108
Line 1... Line 1...
1 
;Written By: Ira Snyder
 1 
;Written By: Ira Snyder
2 
;Due Date:   02-21-2005
 2 
;Due Date:   02-21-2005
3 
;Homework #: HW10 (Exercise #15)
 3 
;Homework #: HW10 (Exercise #15)
- 
 
 4 
;License: Public Domain
4 
 
 5 
 
5 
(defmacro ZERO* (&rest VARS)
 6 
(defmacro ZERO* (&rest VARS)
6 
  (do ((VARS VARS (cdr VARS))
 7 
  (do ((VARS VARS (cdr VARS))
7 
       (RET nil))
 8 
       (RET nil))
8 
      ((null VARS) (cons 'progn RET))
 9 
      ((null VARS) (cons 'progn RET))