X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fknownfun.lisp;h=cbe6892acf9824106840f69a7d7079f1a3f690b6;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=811b0be935957ecfc1501ffe82032a7fb18d7cc3;hpb=43caa89c20c70fdef77797fe31e6fd09bfcf2527;p=sbcl.git

diff --git a/src/compiler/knownfun.lisp b/src/compiler/knownfun.lisp
index 811b0be..cbe6892 100644
--- a/src/compiler/knownfun.lisp
+++ b/src/compiler/knownfun.lisp
@@ -186,7 +186,8 @@
 ;;; and optimizers.
 (declaim (ftype (function (list list attributes &key
                                 (:derive-type (or function null))
-                                (:optimizer (or function null)))
+                                (:optimizer (or function null))
+                                (:destroyed-constant-args (or function null)))
                           *)
                 %defknown))
 (defun %defknown (names type attributes &key derive-type optimizer destroyed-constant-args)