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

Modified Files: eval.lisp Log Message: This is a fix, but I'm not really sure how sound it is.

Date: Thu Mar 25 20:43:46 2004 Author: ffjeld

Index: movitz/eval.lisp diff -u movitz/eval.lisp:1.2 movitz/eval.lisp:1.3 --- movitz/eval.lisp:1.2 Mon Jan 19 06:23:41 2004 +++ movitz/eval.lisp Thu Mar 25 20:43:46 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.2 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.3 2004/03/26 01:43:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -97,7 +97,8 @@ (declare (ignore top-level-p)) (cond ((typep (movitz-binding form env) 'constant-object-binding) - (movitz-print (constant-object (movitz-binding form env)))) + (translate-program (movitz-print (constant-object (movitz-binding form env))) + :cl :muerte.cl)) ((movitz-constantp form env) (symbol-value form)) ;;; ((movitz-lexical-binding form env)