Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv31106
Modified Files: special-operators.lisp Log Message: Changed some function signatures in the compiler.
Date: Tue Feb 3 14:17:34 2004 Author: ffjeld
Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.4 movitz/special-operators.lisp:1.5 --- movitz/special-operators.lisp:1.4 Mon Feb 2 09:54:29 2004 +++ movitz/special-operators.lisp Tue Feb 3 14:17:34 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.4 2004/02/02 14:54:29 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.5 2004/02/03 19:17:34 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))) + (funobj (make-compiled-funobj name formals declarations body env nil nil))) (setf (movitz-funobj-symbolic-name funobj) name) (setf (movitz-env-named-function name) funobj)))) (compiler-values ()))