X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffunutils.lisp;h=00ecb67b943c726017039e7e234439d10e6c81e0;hb=b14a61c6af3e3005c94e633e727177346240066e;hp=456128f55fb97976a5a6b266630857a204f0439e;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/funutils.lisp b/src/code/funutils.lisp
index 456128f..00ecb67 100644
--- a/src/code/funutils.lisp
+++ b/src/code/funutils.lisp
@@ -32,10 +32,7 @@
 (defun constantly (value)
   #!+sb-doc
   "Return a function that always returns VALUE."
-  (lambda ()
-    ;; KLUDGE: This declaration is a hack to make the closure ignore
-    ;; all its arguments without consing a &REST list or anything.
-    ;; Perhaps once DYNAMIC-EXTENT is implemented we won't need to
-    ;; screw around with this kind of thing. -- WHN 2001-04-06
-    (declare (optimize (speed 3) (safety 0)))
+  (lambda (&rest arguments)
+    (declare (ignore arguments))
+    (declare (optimize (speed 3) (safety 0) (debug 0)))
     value))