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@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 ()))