Index: /branches/working-0711/ccl/compiler/nx0.lisp
===================================================================
--- /branches/working-0711/ccl/compiler/nx0.lisp	(revision 8423)
+++ /branches/working-0711/ccl/compiler/nx0.lisp	(revision 8424)
@@ -1593,5 +1593,5 @@
          string)))))
 
-(defun record-source-location (stream)
+(defun record-source-location-on-stream-p (stream)
   (and *compiler-record-source*
        *fcomp-stream*
@@ -1607,5 +1607,5 @@
 
 (defun make-source-note (&key stream start end text form children)
-  (when (record-source-location stream)
+  (when (record-source-location-on-stream-p stream)
     (%make-source-note :file-name (or *compile-file-original-truename*
                                       (truename stream))
Index: /branches/working-0711/ccl/level-1/l1-reader.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 8423)
+++ /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 8424)
@@ -2460,5 +2460,5 @@
   (let ((streamv (gensym)))
     `(let* ((,streamv ,stream)
-            (,start (and (record-source-location ,streamv)
+            (,start (and (record-source-location-on-stream-p ,streamv)
                          (file-position ,streamv))))
        (symbol-macrolet ((,end (file-position ,streamv)))
@@ -2503,5 +2503,5 @@
               (values form
                       t
-                      (when (and (consp form) (record-source-location stream))
+                      (when (and (consp form) (record-source-location-on-stream-p stream))
                         (make-source-note :stream stream
                                           :start (1- start)
@@ -2579,5 +2579,5 @@
                   (rplacd tail (setq tail (cons nextform nil)))))))))
     
-    (if (record-source-location stream)
+    (if (record-source-location-on-stream-p stream)
         (values (cdr head) (cdr source-note-list-head))
         (values (cdr head)))))