Changeset 9481

Timestamp:

May 14, 2008, 4:34:23 PM (17 years ago)

Author:

gz

Message:

Propagate r9416 to here: When processing a (nested) %defun, encode the arglist info in the compile-time function info

File:

• branches/working-0711/ccl/compiler/nx1.lisp (modified) (2 diffs)

branches/working-0711/ccl/compiler/nx1.lisp

@@ -1055 +1055 @@
 
 (defnx1 nx1-load-time-value (load-time-value) (&environment env form &optional read-only-p)
-  ; Validate the "read-only-p" argument
+  ;; Validate the "read-only-p" argument
   (if (and read-only-p (neq read-only-p t)) (require-type read-only-p '(member t nil)))
-  ; Then ignore it.
+  ;; Then ignore it.
   (if *nx-load-time-eval-token*
     (multiple-value-bind (function warnings)
@@ -1146 +1146 @@
            (consp (%cdr def))
            (symbolp (%cadr def)))
-    (note-function-info (%cadr def) nil env))
+    (note-function-info (%cadr def)(caddr def) env))
   (nx1-treat-as-call w))