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

[Frode Vatvedt Fjeld]

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

Modified Files:
	eval.lisp 
Log Message:
Fix eval of coerce.

Date: Sat Sep 17 00:49:35 2005
Author: ffjeld

Index: movitz/eval.lisp
diff -u movitz/eval.lisp:1.9 movitz/eval.lisp:1.10
--- movitz/eval.lisp:1.9	Thu Dec  9 14:27:28 2004
+++ movitz/eval.lisp	Sat Sep 17 00:49:34 2005
@@ -1,6 +1,6 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 20012000, 2002-2004,
+;;;;    Copyright (C) 2000-2005,
 ;;;;    Department of Computer Science, University of Tromso, Norway
 ;;;; 
 ;;;; Filename:      eval.lisp
@@ -9,7 +9,7 @@
 ;;;; Created at:    Thu Nov  2 17:45:05 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: eval.lisp,v 1.9 2004/12/09 13:27:28 ffjeld Exp $
+;;;; $Id: eval.lisp,v 1.10 2005/09/16 22:49:34 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -149,7 +149,7 @@
 		     (cdr form))))
      ((member operator '(muerte.cl:coerce))
       (apply #'coerce
-	     (mapcar (lambda (arg) (movitz-eval arg env nil))
+	     (mapcar (lambda (arg) (translate-program (movitz-eval arg env nil) :muerte.cl :cl))
 		     (cdr form))))
      ((and compiler-macro-function
 	   (not (movitz-env-get (car form) 'notinline nil env))