Changeset 9416


Ignore:
Timestamp:
May 9, 2008, 9:11:22 AM (11 years ago)
Author:
gb
Message:

When processing a (nested) %defun, encode the arglist info in the
compile-time function info.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/compiler/nx1.lisp

    r9391 r9416  
    10551055
    10561056(defnx1 nx1-load-time-value (load-time-value) (&environment env form &optional read-only-p)
    1057   ; Validate the "read-only-p" argument
     1057  ;; Validate the "read-only-p" argument
    10581058  (if (and read-only-p (neq read-only-p t)) (require-type read-only-p '(member t nil)))
    1059   ; Then ignore it.
     1059  ;; Then ignore it.
    10601060  (if *nx-load-time-eval-token*
    10611061    (multiple-value-bind (function warnings)
     
    11461146           (consp (%cdr def))
    11471147           (symbolp (%cadr def)))
    1148     (note-function-info (%cadr def) nil env))
     1148    (note-function-info (%cadr def)(caddr def) env))
    11491149  (nx1-treat-as-call w))
    11501150
Note: See TracChangeset for help on using the changeset viewer.