[movitz-cvs] CVS update: movitz/eval.lisp

[Frode Vatvedt Fjeld]

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)