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

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv27587

Modified Files:
	eval.lisp 
Log Message:
Add rule for evaluation of keywords.

Date: Thu Dec  9 14:27:29 2004
Author: ffjeld

Index: movitz/eval.lisp
diff -u movitz/eval.lisp:1.8 movitz/eval.lisp:1.9
--- movitz/eval.lisp:1.8	Mon Oct 11 15:46:56 2004
+++ movitz/eval.lisp	Thu Dec  9 14:27:28 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.8 2004/10/11 13:46:56 ffjeld Exp $
+;;;; $Id: eval.lisp,v 1.9 2004/12/09 13:27:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -111,6 +111,8 @@
   "3.1.2.1.1 Symbols as Forms"
   (declare (ignore top-level-p))
   (cond
+   ((keywordp form)
+    (eval-self-evaluating form env top-level-p))
    ((typep (movitz-binding form env) 'constant-object-binding)
     (translate-program (movitz-print (constant-object (movitz-binding form env)))
 		       :cl :muerte.cl))