Changeset 8424

Timestamp:

Feb 4, 2008, 1:45:05 PM (17 years ago)

Author:

marco baringer

Message:

Rename record-source-location to record-source-location-on-stream-p.

I want to use the name record-source-location for other things.

Location:

branches/working-0711/ccl

Files:

• compiler/nx0.lisp (modified) (2 diffs)
• level-1/l1-reader.lisp (modified) (3 diffs)

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

@@ -1593 +1593 @@
          string)))))
 
-(defun record-source-location (stream)
+(defun record-source-location-on-stream-p (stream)
   (and *compiler-record-source*
        *fcomp-stream*
@@ -1607 +1607 @@
 
 (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))

branches/working-0711/ccl/level-1/l1-reader.lisp

@@ -2460 +2460 @@
   (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 +2503 @@
               (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 +2579 @@
                   (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)))))