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 |
|