Changeset 7252


Ignore:
Timestamp:
Sep 19, 2007, 2:19:10 AM (12 years ago)
Author:
palter
Message:

In WITH-SLOTS, if there are bindings, declare the gensym'ed instance
symbol IGNORABLE just in case none of the symbol macros are actuall used.

File:
1 edited

Legend:

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

    r7135 r7252  
    26782678      (push `(,var (slot-value ,instance ',slot-name)) bindings))
    26792679    `(let ((,instance ,instance-form))
    2680        ,@(unless bindings (list `(declare (ignore ,instance))))
     2680       ,@(if bindings
     2681             (list `(declare (ignorable ,instance)))
     2682             (list `(declare (ignore ,instance))))
    26812683       (symbol-macrolet ,(nreverse bindings)
    26822684         ,@body))))
Note: See TracChangeset for help on using the changeset viewer.