Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25312
Modified Files: read.lisp Log Message: Removed some debugging code.
Date: Fri Apr 23 11:01:56 2004 Author: ffjeld
Index: movitz/losp/muerte/read.lisp diff -u movitz/losp/muerte/read.lisp:1.3 movitz/losp/muerte/read.lisp:1.4 --- movitz/losp/muerte/read.lisp:1.3 Tue Apr 13 10:21:14 2004 +++ movitz/losp/muerte/read.lisp Fri Apr 23 11:01:56 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.3 2004/04/13 14:21:14 ffjeld Exp $ +;;;; $Id: read.lisp,v 1.4 2004/04/23 15:01:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -188,9 +188,7 @@ (setf string next-string end next-string-end)) (setf i (1- element-end)) - (if (match-caller 'eval-time) - (time (push element list)) - (push element list))))))))) + (push element list)))))))) (simple-read-delimited-list delimiter next-string next-start next-end :tail-delimiter tail-delimiter :list list)))