[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv20198

Modified Files:
	swank-source-path-parser.lisp 
Log Message:
(suppress-sharp-dot): Return a unique symbol to avoid nil entries at
toplevel in the source-map.


--- /project/slime/cvsroot/slime/swank-source-path-parser.lisp	2005/11/07 08:24:32	1.16
+++ /project/slime/cvsroot/slime/swank-source-path-parser.lisp	2006/06/25 08:33:16	1.17
@@ -64,7 +64,10 @@
     (let ((sharp-dot (get-dispatch-macro-character #\# #\. readtable)))
       (set-dispatch-macro-character #\# #\. (lambda (&rest args)
 					      (let ((*read-suppress* t))
-						(apply sharp-dot args)))
+						(apply sharp-dot args))
+					      (if *read-suppress*
+						  (values)
+						  (list (gensym "#."))))
 				    readtable))))
 
 (defun read-and-record-source-map (stream)