[Sbcl-commits] CVS: sbcl/src/code kernel.lisp,1.10,1.11

[Juho S. <js...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv30884/src/code

Modified Files:
	kernel.lisp 
Log Message:
1.0.1.25:
        Add limited support for LET and LET* to the fopcompiler (can only
        be used for binding lexical variables which aren't closed over).
        Speeds up McCLIM compilation by 5-10%.


Index: kernel.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/kernel.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- kernel.lisp	28 Mar 2005 18:55:25 -0000	1.10
+++ kernel.lisp	15 Jan 2007 21:05:43 -0000	1.11
@@ -65,6 +65,9 @@
 (defun %simple-fun-arglist (func)
   (%simple-fun-arglist func))
 
+(defun (setf %simple-fun-arglist) (new-value func)
+  (setf (%simple-fun-arglist func) new-value))
+
 ;;; Extract the name from the function header FUNC.
 (defun %simple-fun-name (func)
   (%simple-fun-name func))