[slime-cvs] CVS slime

[gcarncross]

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

Modified Files:
	swank-source-file-cache.lisp 
Log Message:
Include #\Page as whitespace


--- /project/slime/cvsroot/slime/swank-source-file-cache.lisp	2006/12/05 13:00:42	1.8
+++ /project/slime/cvsroot/slime/swank-source-file-cache.lisp	2008/04/24 01:24:14	1.9
@@ -103,7 +103,7 @@
 
 (defun skip-comments-and-whitespace (stream)
   (case (peek-char nil stream)
-    ((#\Space #\Tab #\Newline #\Linefeed)
+    ((#\Space #\Tab #\Newline #\Linefeed #\Page)
      (read-char stream)
      (skip-comments-and-whitespace stream))
     (#\;