Changeset 11917


Ignore:
Timestamp:
05/21/09 17:52:18 (12 years ago)
Author:
ehuelsmann
Message:

In compiler macro FUNCALL: When in need of
an environment, get it through the lambda list
instead of hard coding a reference.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

    r11916 r11917  
    250250      form))
    251251
    252 (define-compiler-macro funcall (&whole form &rest args)
     252(define-compiler-macro funcall (&whole form
     253                                &environment env &rest args)
    253254  (let ((callee (car args)))
    254255    (if (and (>= *speed* *debug*)
     
    257258             (symbolp (cadr callee))
    258259             (not (special-operator-p (cadr callee)))
    259              (not (macro-function (cadr callee) *compile-file-environment*))
     260             (not (macro-function (cadr callee) env))
    260261             (memq (symbol-package (cadr callee))
    261262                   (list (find-package "CL") (find-package "SYS"))))
Note: See TracChangeset for help on using the changeset viewer.