Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv20526
Modified Files: eval.lisp Log Message: movitz-constantp should know that a string is indeed constant (self-evaluating, that is)
Date: Tue Apr 13 12:30:36 2004 Author: ffjeld
Index: movitz/eval.lisp diff -u movitz/eval.lisp:1.4 movitz/eval.lisp:1.5 --- movitz/eval.lisp:1.4 Wed Mar 31 11:31:44 2004 +++ movitz/eval.lisp Tue Apr 13 12:30:36 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 2 17:45:05 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: eval.lisp,v 1.4 2004/03/31 16:31:44 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.5 2004/04/13 16:30:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -63,6 +63,7 @@ (number t) (keyword t) (character t) + (string t) (symbol (or (movitz-env-get form 'constantp nil environment) (typep (movitz-binding form environment) 'constant-object-binding))) (cons (case (car form)