0.pre7.61:

[sbcl.git] / src / code / print.lisp

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 5cd2a14..30b41ab 100644 (file)
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -1553,7 +1553,7 @@
   (let* ((*print-length* 3) ; in case we have to..
         (*print-level* 3)  ; ..print an interpreted function definition
         ;; FIXME: This find-the-function-name idiom ought to be
-        ;; pulled out in a function somewhere.
+        ;; encapsulated in a function somewhere.
         (name (case (function-subtype object)
                 (#.sb!vm:closure-header-widetag "CLOSURE")
                 (#.sb!vm:simple-fun-header-widetag (%simple-fun-name object))