Changeset 8996


Ignore:
Timestamp:
Apr 4, 2008, 2:06:37 AM (11 years ago)
Author:
gb
Message:

Use SET ',VAR, not SETQ, in case the body of DEFVAR gets compiled
before anything sees the SPECIAL declamation.
(Could also wrap (LOCALLY (DECLARE SPECIAL ...) around some of the
expansion, but this seems to be the only part of the expansion that
references an unquoted variable name.)

File:
1 edited

Legend:

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

    r8989 r8996  
    661661(defmacro %defvar-init (var initform doc)
    662662  `(unless (%defvar ',var ,doc)
    663      (setq ,var ,initform)))
     663    (set ',var ,initform)))
    664664
    665665(defmacro defvar (&environment env var &optional (value () value-p) doc)
Note: See TracChangeset for help on using the changeset viewer.