X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffndb.lisp;h=7215ff49120eb13616131ba3f7899f3dfda5da90;hb=683874b497a99cd2c11b6c5d9b47e2785b1ede5f;hp=2fe43243c1a2efdd7b59a5d969b4f1fc36c581c6;hpb=b6aa15328871678a3475e82c150b251dffb49ba1;p=sbcl.git

diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp
index 2fe4324..7215ff4 100644
--- a/src/compiler/fndb.lisp
+++ b/src/compiler/fndb.lisp
@@ -1341,3 +1341,8 @@
   ())
 (defknown %setnth (index list t) t (unsafe))
 (defknown %set-fill-pointer (vector index) index (unsafe))
+
+;;;; miscellaneous internal utilities
+
+(defknown %fun-name (function) t (flushable))
+(defknown (setf %fun-name) (t function) t (unsafe))