X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fkernel.lisp;h=a1f20ff03db44ebaf21c73162e3f5111c2c6c2a6;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=1311ee316294c634c7bcf6879ae1e07e0e96c92d;hpb=338732358d49ab202fe55c3581294597d63aec6b;p=sbcl.git

diff --git a/src/code/kernel.lisp b/src/code/kernel.lisp
index 1311ee3..a1f20ff 100644
--- a/src/code/kernel.lisp
+++ b/src/code/kernel.lisp
@@ -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))