Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv21878
Modified Files: read.lisp Log Message: Added #' to the list of token terminators.
Date: Tue Sep 21 15:10:40 2004 Author: ffjeld
Index: movitz/losp/muerte/read.lisp diff -u movitz/losp/muerte/read.lisp:1.9 movitz/losp/muerte/read.lisp:1.10 --- movitz/losp/muerte/read.lisp:1.9 Wed Aug 11 11:34:30 2004 +++ movitz/losp/muerte/read.lisp Tue Sep 21 15:10:40 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Oct 17 21:50:42 2001 ;;;; -;;;; $Id: read.lisp,v 1.9 2004/08/11 09:34:30 ffjeld Exp $ +;;;; $Id: read.lisp,v 1.10 2004/09/21 13:10:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -75,7 +75,7 @@ (t (error "There is junk in the string ~S." (substring string start end))))))))
-(defconstant +simple-token-terminators+ '(#\space #\tab #\newline #) #()) +(defconstant +simple-token-terminators+ '(#\space #\tab #\newline #) #( #'))
(defun find-token-end (string &key (start 0) (end (length string))) (do ((i start (1+ i)))