X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Feval.lisp;h=e8cfdef2591ff37a96c1d64400f19d5de5c92ee5;hb=ea36d3d79b9dfe3598faca5e267efd5980b94d4a;hp=e2a9709512c7eb93415a41b188a656647b0a0d60;hpb=6879a37a9e6cceeab810636c5ef4a4da1444e275;p=sbcl.git

diff --git a/src/compiler/eval.lisp b/src/compiler/eval.lisp
index e2a9709..e8cfdef 100644
--- a/src/compiler/eval.lisp
+++ b/src/compiler/eval.lisp
@@ -236,11 +236,10 @@
     (incf (interpreted-function-gcs fun))))
 (pushnew 'interpreter-gc-hook sb!ext:*before-gc-hooks*)
 
+;;; Clear all entries in the eval function cache. This allows the internal
+;;; representation of the functions to be reclaimed, and also lazily forces
+;;; macroexpansions to be recomputed.
 (defun flush-interpreted-function-cache ()
-  #!+sb-doc
-  "Clear all entries in the eval function cache. This allows the internal
-  representation of the functions to be reclaimed, and also lazily forces
-  macroexpansions to be recomputed."
   (dolist (fun *interpreted-function-cache*)
     (setf (interpreted-function-definition fun) nil))
   (setq *interpreted-function-cache* ()))