X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftn.lisp;h=e0b6a2640a69eb47372ef4687f1ded203ad31ae2;hb=34dd23563d2f5cf05c72b971da0d0b065a09bf2a;hp=2faa1056bdaaac872fc7ccc44cb74ad6adc89a6a;hpb=6e7e59adb6f6c30f84b31695b48cb51e2c519d75;p=sbcl.git

diff --git a/src/compiler/tn.lisp b/src/compiler/tn.lisp
index 2faa105..e0b6a26 100644
--- a/src/compiler/tn.lisp
+++ b/src/compiler/tn.lisp
@@ -16,10 +16,10 @@
 ;;; in this component.
 (defvar *component-being-compiled*)
 
+;;; Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*
+;;;
+;;; Iterate over all packed TNs allocated in Component.
 (defmacro do-packed-tns ((tn component &optional result) &body body)
-  #!+sb-doc
-  "Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*
-  Iterate over all packed TNs allocated in Component."
   (let ((n-component (gensym)))
     `(let ((,n-component (component-info ,component)))
        (do ((,tn (ir2-component-normal-tns ,n-component) (tn-next ,tn)))
@@ -33,10 +33,10 @@
 	    ,result)
 	 ,@body))))
 
-;;; Remove all TNs with no references from the lists of unpacked TNs. We
-;;; null out the Offset so that nobody will mistake deleted wired TNs for
-;;; properly packed TNs. We mark non-deleted alias TNs so that aliased TNs
-;;; aren't considered to be unreferenced.
+;;; Remove all TNs with no references from the lists of unpacked TNs.
+;;; We null out the Offset so that nobody will mistake deleted wired
+;;; TNs for properly packed TNs. We mark non-deleted alias TNs so that
+;;; aliased TNs aren't considered to be unreferenced.
 (defun delete-unreferenced-tns (component)
   (let* ((2comp (component-info component))
 	 (aliases (make-array (1+ (ir2-component-global-tn-counter 2comp))