Changeset 7263


Ignore:
Timestamp:
Sep 19, 2007, 8:45:23 PM (12 years ago)
Author:
wws
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/macros.lisp

    r7252 r7263  
    26992699      (push `(,var (,reader ,instance)) bindings))
    27002700    `(let ((,instance ,instance-form))
    2701        ,@(unless bindings (list `(declare (ignore ,instance))))
     2701       ,@(if bindings
     2702             (list `(declare (ignorable ,instance)))
     2703             (list `(declare (ignore ,instance))))
    27022704       (symbol-macrolet ,(nreverse bindings)
    27032705         ,@body))))
Note: See TracChangeset for help on using the changeset viewer.