X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=30b41abb0321c4398f5e646ca01fc47251f2617e;hb=0a82f2db352cc348d2107a882e50af222ff97ed3;hp=5cd2a14f533c3b1c013195e91f3365ed0ae53af4;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 5cd2a14..30b41ab 100644
--- 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))