X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffdefinition.lisp;h=364e7e947651d6ba69351ad67c919e5824ff8eac;hb=cd176690400f8b6fa23faa4dc6fa8494bcbce480;hp=c7305fcfd1b0096ffd28cd859b23e4b0cee06aa3;hpb=b6aa15328871678a3475e82c150b251dffb49ba1;p=sbcl.git

diff --git a/src/code/fdefinition.lisp b/src/code/fdefinition.lisp
index c7305fc..364e7e9 100644
--- a/src/code/fdefinition.lisp
+++ b/src/code/fdefinition.lisp
@@ -239,8 +239,8 @@
   "Set NAME's global function definition."
   (declare (type function new-value) (optimize (safety 1)))
   (let ((fdefn (fdefinition-object name t)))
-    ;; *SETF-FDEFINITION-HOOK* won't be bound when initially running top-level
-    ;; forms in the kernel core startup.
+    ;; *SETF-FDEFINITION-HOOK* won't be bound when initially running
+    ;; top level forms in the kernel core startup.
     (when (boundp '*setf-fdefinition-hook*)
       (dolist (f *setf-fdefinition-hook*)
 	(funcall f name new-value)))
@@ -273,4 +273,5 @@
   (let ((fdefn (fdefinition-object name nil)))
     (when fdefn
       (fdefn-makunbound fdefn)))
+  (sb!kernel:undefine-fun-name name)
   name)