Changeset 8440

Timestamp:

Feb 7, 2008, 1:42:04 PM (17 years ago)

Author:

marco baringer

Message:

Fix bug in %parse-exrpession's handling of dotted nested-source-forms lists

File:

• branches/working-0711/ccl/level-1/l1-reader.lisp (modified) (1 diff)

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

@@ -2507 +2507 @@
                                  (record-source-location-on-stream-p stream))
                         ;; mb 2008-02-07: sometime the nested-source-notes end with t, don't know
-                        ;; why. don't really care here.
-                        
-                        (let ((last (last nested-source-notes)))
-                          (when (atom (cdr last))
-                            ;; dotted list.
-                            (setf (cdr last) (list (cdr last)))))
+                        ;; why. don't really care here.                        
                         (make-source-note :stream stream
                                           :start (1- start)
                                           :end end
                                           :form (car vals)
-                                          :children nested-source-notes)))))))))
+                                          :children (if nested-source-notes
+                                                      (let ((last (last nested-source-notes)))
+                                                        (when (atom (cdr last))
+                                                          ;; dotted list.
+                                                          (setf (cdr last) (list (cdr last)))))
+                                                      '()))))))))))
 
 #|