Changeset 13118 for trunk/abcl/src/org


Ignore:
Timestamp:
01/01/11 23:36:06 (11 years ago)
Author:
ehuelsmann
Message:

Put the transformed INITFORM back into form being transformed.

File:
1 edited

Legend:

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

    r13117 r13118  
    435435                                            :initform ,initform
    436436                                            :block ,block)))
     437      (when (neq ,initform (cadr ,varspec))
     438        (setf (cadr ,varspec) ,initform))
    437439      (push ,var ,variables-var)
    438440      ,@body1))
Note: See TracChangeset for help on using the changeset viewer.