Changeset 15349


Ignore:
Timestamp:
May 1, 2012, 5:12:24 AM (7 years ago)
Author:
gb
Message:

In NX-TRANSFORM, don't transform structure accessors that're called
with other than 1 arg.
In SETF, error at macroexpand time if a structure accessor is called
with other than 1 arg. (There's not a lot else to do here.)
Fixes ticket:961 in the trunk.

(IIRC, there's another open ticket which may describe the same problem
but doesn't provide a reproducible test case.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r15336 r15349  
    25592559             (go START)))
    25602560         (unless macro-function
    2561            (when (setq transforms (structref-info sym environment))
     2561           (when (and (eql (length (%cdr form)) 1)
     2562                      (setq transforms (structref-info sym environment)))
    25622563             (setq form (defstruct-ref-transform transforms (%cdr form) environment))
    25632564             (form-changed form)
Note: See TracChangeset for help on using the changeset viewer.