[movitz-cvs] CVS update: movitz/losp/muerte/read.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Fri Jun 10 18:35:03 UTC 2005
Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv28720
Modified Files:
read.lisp
Log Message:
Added a silly read-from-string.
Date: Fri Jun 10 20:35:02 2005
Author: ffjeld
Index: movitz/losp/muerte/read.lisp
diff -u movitz/losp/muerte/read.lisp:1.11 movitz/losp/muerte/read.lisp:1.12
--- movitz/losp/muerte/read.lisp:1.11 Mon Oct 11 15:53:11 2004
+++ movitz/losp/muerte/read.lisp Fri Jun 10 20:35:01 2005
@@ -1,6 +1,6 @@
;;;;------------------------------------------------------------------
;;;;
-;;;; Copyright (C) 2001-2004,
+;;;; Copyright (C) 2001-2005,
;;;; Department of Computer Science, University of Tromso, Norway.
;;;;
;;;; For distribution policy, see the accompanying file COPYING.
@@ -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.11 2004/10/11 13:53:11 ffjeld Exp $
+;;;; $Id: read.lisp,v 1.12 2005/06/10 18:35:01 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
@@ -342,6 +342,10 @@
(substring string i token-end))))))))))
(t (return-from simple-read-from-string
(simple-read-token string :start i :end end))))))
+
+(defun read-from-string (&rest args)
+ (declare (dynamic-extent args))
+ (apply #'simple-read-from-string args))
(defun un-backquote (form level)
"Dont ask.."
More information about the Movitz-cvs
mailing list