Changeset 7263
- Timestamp:
- Sep 19, 2007, 8:45:23 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/lib/macros.lisp
r7252 r7263 2699 2699 (push `(,var (,reader ,instance)) bindings)) 2700 2700 `(let ((,instance ,instance-form)) 2701 ,@(unless bindings (list `(declare (ignore ,instance)))) 2701 ,@(if bindings 2702 (list `(declare (ignorable ,instance))) 2703 (list `(declare (ignore ,instance)))) 2702 2704 (symbol-macrolet ,(nreverse bindings) 2703 2705 ,@body))))
Note: See TracChangeset
for help on using the changeset viewer.