Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv24273 Modified Files: read.lisp Log Message: Added *readtable* variable and copy-readtable mockup. --- /project/movitz/cvsroot/movitz/losp/muerte/read.lisp 2005/08/26 19:38:35 1.13 +++ /project/movitz/cvsroot/movitz/losp/muerte/read.lisp 2006/04/07 21:50:37 1.14 @@ -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.13 2005/08/26 19:38:35 ffjeld Exp $ +;;;; $Id: read.lisp,v 1.14 2006/04/07 21:50:37 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -20,7 +20,11 @@ (in-package muerte) (defvar *read-suppress*) -(defvar *readtable*) +(defvar *readtable* nil) + +(defun copy-readtable (&optional from-readtable to-readtable) + (declare (ignore from-readtable to-readtable)) + nil) (defun substring (string start end) (if (and (zerop start) (= end (length string)))