[movitz-cvs] CVS update: movitz/losp/muerte/read.lisp

[Frode Vatvedt Fjeld]

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