X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffop.lisp;h=02dcf617f82674656af3d8b4f61244f580d37fed;hb=11aa29a68039d6fb3cf41d67352a6b263b1094b6;hp=11612399e81fdf5d1f097ffb99fca4078ef17a0d;hpb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;p=sbcl.git

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 1161239..02dcf61 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -600,6 +600,9 @@
 (define-fop (fop-fdefinition 60)
   (fdefinition-object (pop-stack) t))
 
+(define-fop (fop-known-fun 65)
+  (%coerce-name-to-fun (pop-stack)))
+
 (define-fop (fop-sanctify-for-execution 61)
   (let ((component (pop-stack)))
     (sb!vm:sanctify-for-execution component)