Update of /cvsroot/sbcl/sbcl/contrib/sb-aclrepl
In directory sc8-pr-cvs1:/tmp/cvs-serv23386/contrib/sb-aclrepl
Modified Files:
repl.lisp
Log Message:
0.8.7.19:
Fix for PEEK-CHAR: whitespace means "according to the
readtable", not "static list of characters"
... but that's complicated for efficiency: we need WHITESPACEP
defined before peek-char so that it can be expanded
inline
... so move peek-charish things into a new later file
... delete unused-by-core WHITESPACE-CHAR-P, and adjust
contribs to accomodate this
... also add #\page to sb-aclrepl's static whitespace characters
Index: repl.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/repl.lisp,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- repl.lisp 29 Nov 2003 05:38:43 -0000 1.22
+++ repl.lisp 20 Jan 2004 18:10:23 -0000 1.23
@@ -760,17 +760,16 @@
(and (characterp x)
(or (char= x #\space)
(char= x #\tab)
+ (char= x #\page)
(char= x #\newline)
(char= x #\return))))
(defun whitespace-char-not-newline-p (x)
(and (whitespace-char-p x)
(not (char= x #\newline))))
-
;;;; linking into SBCL hooks
-
(defun repl-prompt-fun (stream)
(let ((break-level (when (plusp *break-level*)
*break-level*))
-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn
|
