Changeset 15349

Timestamp:

Apr 30, 2012, 10:12:24 PM (13 years ago)

Author:

Gary Byers

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:

• trunk/source/compiler/nx0.lisp (modified) (1 diff)

trunk/source/compiler/nx0.lisp

@@ -2559 +2559 @@
              (go START)))
          (unless macro-function
-           (when (setq transforms (structref-info sym environment))
+           (when (and (eql (length (%cdr form)) 1)
+                      (setq transforms (structref-info sym environment)))
              (setq form (defstruct-ref-transform transforms (%cdr form) environment))
              (form-changed form)