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

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators.lisp 
Log Message:
Sync small edits.

Date: Wed Feb  4 11:01:28 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.5 movitz/special-operators.lisp:1.6
--- movitz/special-operators.lisp:1.5	Tue Feb  3 14:17:34 2004
+++ movitz/special-operators.lisp	Wed Feb  4 11:01:26 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.5 2004/02/03 19:17:34 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.6 2004/02/04 16:01:26 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -259,7 +259,7 @@
 					 (declare (ignore c))
 					 (format *error-output* "~&;; In function ~S:~&" name))))
       (let* ((*compiling-function-name* name)
-	     (funobj (make-compiled-funobj name formals declarations body env nil nil)))
+	     (funobj (make-compiled-funobj name formals declarations body env nil)))
 	(setf (movitz-funobj-symbolic-name funobj) name)
 	(setf (movitz-env-named-function name) funobj))))
   (compiler-values ()))