Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv4480
Modified Files: compiler.lisp Log Message: Sync small edits.
Date: Wed Feb 4 11:01:16 2004 Author: ffjeld
Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.12 movitz/compiler.lisp:1.13 --- movitz/compiler.lisp:1.12 Wed Feb 4 10:25:15 2004 +++ movitz/compiler.lisp Wed Feb 4 11:01:14 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.12 2004/02/04 15:25:15 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.13 2004/02/04 16:01:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -140,7 +140,7 @@ lambda-form) (coerce lambda-form 'function)))
-(defun make-compiled-funobj (name lambda-list declarations form env top-level-p funobj) +(defun make-compiled-funobj (name lambda-list declarations form env top-level-p &key funobj) "Compiler entry-point for making a (lexically) top-level function." (handler-bind (((or warning error) (lambda (c)