diff --git a/compiler/debug.lisp b/compiler/debug.lisp
index c68c8cf35f1dc7dd2f06984a481b9c945c912033..91f469691b440b4f09ae296954e133a968377db0 100644
--- a/compiler/debug.lisp
+++ b/compiler/debug.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug.lisp,v 1.19 1992/05/18 18:31:23 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug.lisp,v 1.20 1992/05/18 18:52:45 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -233,7 +233,7 @@
 	   (barf "Entry-Function in ~S isn't an XEP: ~S." functional ef)))))
     (:deleted
      (return-from check-function-stuff)))
-
+  
   (case (functional-kind functional)
     ((nil :optional :external :top-level :escape :cleanup)
      (when (lambda-p functional)
@@ -243,7 +243,7 @@
 	 (check-function-reached fun functional))
        (unless (eq (lambda-home functional) functional)
 	 (barf "Home not self-pointer in ~S." functional)))))
-       
+  
   (etypecase functional
     (clambda
      (when (lambda-bind functional)
@@ -264,7 +264,7 @@
      (let ((more (optional-dispatch-more-entry functional)))
        (when more (check-function-reached more functional)))
      (check-function-reached (optional-dispatch-main-entry functional)
-			     functional)))))
+			     functional))))
 
 
 ;;; Check-Function-Consistency  --  Internal
@@ -883,7 +883,7 @@
 		      (null tn)
 		      (tn-global-conflicts tn)
 		      (eq (tn-local tn) block))
-	    (barf "Strange TN ~S in LTN map for ~S." tn block)))))))))
+	    (barf "Strange TN ~S in LTN map for ~S." tn block)))))))
 
 
 ;;; Check-Environment-Lifetimes  --  Internal
@@ -1038,7 +1038,7 @@
 ;;;
 (defun print-continuation (cont)
   (declare (type continuation cont))
-  (format t " c~D" (cont-num cont)))
+  (format t " c~D" (cont-num cont))
   (undefined-value))