[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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)