0.6.11.43:

[sbcl.git] / src / compiler / generic / vm-fndb.lisp

diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp
index 8ed1ba1..1464c0a 100644 (file)
--- a/src/compiler/generic/vm-fndb.lisp
+++ b/src/compiler/generic/vm-fndb.lisp
@@ -292,6 +292,13 @@
 (defknown %make-funcallable-instance (index layout) function
   (unsafe))
 
+;;; FIXME/REMOVEME: MNA patched these like this, but I don't
+;;; understand why, so I mutated them back to see what goes wrong.
+;;;-(defknown %funcallable-instance-info (function index) t (flushable))
+;;;-(defknown %set-funcallable-instance-info (function index t) t (unsafe))
+;;;+(defknown %funcallable-instance-info ((or function cons) index) t (flushable))
+;;;+(defknown %set-funcallable-instance-info ((or function cons) index t) t (unsafe))
+;;;
 (defknown %funcallable-instance-info (function index) t (flushable))
 (defknown %set-funcallable-instance-info (function index t) t (unsafe))
 \f