Changeset 11910


Ignore:
Timestamp:
05/20/09 22:48:31 (9 years ago)
Author:
ehuelsmann
Message:

In JVM-COMPILE, don't setf the DEFINITION which
breaks its use further down.

File:
1 edited

Legend:

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

    r11907 r11910  
    83848384        environment)
    83858385    (unless (and (consp definition) (eq (car definition) 'LAMBDA))
    8386       (when (typep definition 'standard-generic-function)
    8387         (setf definition (mop::funcallable-instance-function definition)))
    8388       (multiple-value-setq
    8389           (expression environment)
    8390         (function-lambda-expression definition)))
     8386      (let ((function definition))
     8387        (when (typep definition 'standard-generic-function)
     8388          (setf function (mop::funcallable-instance-function function)))
     8389        (multiple-value-setq
     8390            (expression environment)
     8391          (function-lambda-expression function))))
    83918392    (unless expression
    83928393      (error "Can't find a definition for ~S." definition))
     
    84098410                    failure-p t)
    84108411              nil)))
    8411       (values (%jvm-compile name definition expression environment)
     8412      (values (%jvm-compile name org-definition expression environment)
    84128413              warnings-p failure-p))))
    84138414
Note: See TracChangeset for help on using the changeset viewer.