Changeset 7263

Timestamp:

Sep 19, 2007, 8:45:23 PM (13 years ago)

Author:

wws

Message:

Prevent unused gensym warnings in with-accessors.
Same fix that Gary Palter did to with-slots.

File:

• trunk/ccl/lib/macros.lisp (modified) (1 diff)

trunk/ccl/lib/macros.lisp

@@ -2699 +2699 @@
       (push `(,var (,reader ,instance)) bindings))
     `(let ((,instance ,instance-form))
-       ,@(unless bindings (list `(declare (ignore ,instance))))
+       ,@(if bindings 
+             (list `(declare (ignorable ,instance)))
+             (list `(declare (ignore ,instance))))
        (symbol-macrolet ,(nreverse bindings)
          ,@body))))