Index: /branches/working-0711-perf/ccl/compiler/nx1.lisp
===================================================================
--- /branches/working-0711-perf/ccl/compiler/nx1.lisp	(revision 9415)
+++ /branches/working-0711-perf/ccl/compiler/nx1.lisp	(revision 9416)
@@ -1055,7 +1055,7 @@
 
 (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,5 +1146,5 @@
            (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))