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)))