X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-extensions.lisp;h=f2c3adf7ff451c982e6f31d369f01bc868c085b9;hb=dec94b039e8ec90baf21463df839a6181de606f6;hp=cc8dfc30027b9ae2236a5f44b539cdef3e355f90;hpb=772659782631839f87fe059a45ecb28b933e298b;p=sbcl.git

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index cc8dfc3..f2c3adf 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -913,7 +913,6 @@
 		       (t
 			(error "bad option: ~S" (first option)))))))))))
     `(def!method print-object ((structure ,name) ,stream)
-       ;; FIXME: should probably be byte-compiled
        (pprint-logical-block (,stream nil)
 	 (print-unreadable-object (structure
 				   ,stream