[movitz-cvs] CVS update: movitz/special-operators.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators.lisp 
Log Message:
Fix returned type-specifier to corret pacakge.

Date: Thu Oct 21 22:41:56 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.41 movitz/special-operators.lisp:1.42
--- movitz/special-operators.lisp:1.41	Thu Oct  7 14:48:39 2004
+++ movitz/special-operators.lisp	Thu Oct 21 22:41:56 2004
@@ -8,7 +8,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.41 2004/10/07 12:48:39 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.42 2004/10/21 20:41:56 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -598,7 +598,7 @@
 			 (compiler-values ()
 			   :code code
 			   :returns returns
-			   :type type
+			   :type (translate-program type :muerte.cl :cl)
 			   :modifies modifies
 			   :functional-p (not side-effects))))))))))))