Changeset 13116


Ignore:
Timestamp:
01/01/11 14:53:38 (11 years ago)
Author:
ehuelsmann
Message:

Remove layering violation from compiler-pass2::p2-setq;
there should be no macroexpansion or precompiler calls: that's pass1.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r13046 r13116  
    60766076(defun p2-setq (form target representation)
    60776077  (unless (= (length form) 3)
    6078     (return-from p2-setq (compile-form (precompiler:precompile-form form t
    6079                                                         *compile-file-environment*)
    6080                                        target representation)))
    6081   (let ((expansion (macroexpand (%cadr form) *compile-file-environment*)))
    6082     (unless (eq expansion (%cadr form))
    6083       (compile-form (list 'SETF expansion (%caddr form)) target representation)
    6084       (return-from p2-setq)))
     6078    (assert (not "p2-setq should receive exactly 2 arguments!")))
    60856079  (let* ((name (%cadr form))
    60866080         (variable (find-visible-variable name))
Note: See TracChangeset for help on using the changeset viewer.