X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug.lisp;h=b6e2753767c3b2e304758c8fd1024f8041ac85ce;hb=cae594ffb04c80cfa70abce4a6a35a9ba5a27e8c;hp=56c5b61945ad21d7a01b58a11a3cd60ee6d03119;hpb=35fecfc13c93b85d30a23375ca2850cbbf4a923e;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index 56c5b61..b6e2753 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -594,7 +594,7 @@
 	  (unless (find-in #'tn-ref-next-ref target vop-refs)
 	    (barf "The target for ~S isn't in REFS for ~S." ref vop)))))))
 
-;;; Verify the sanity of the VOP-Refs slot in VOP. This involves checking
+;;; Verify the sanity of the VOP-REFS slot in VOP. This involves checking
 ;;; that each referenced TN appears as an argument, result or temp, and also
 ;;; basic checks for the plausibility of the specified ordering of the refs.
 (defun check-vop-refs (vop)
@@ -1188,7 +1188,7 @@
 
 (defun nth-vop (thing n)
   #!+sb-doc
-  "Return the Nth VOP in the IR2-Block pointed to by Thing."
+  "Return the Nth VOP in the IR2-BLOCK pointed to by THING."
   (let ((block (block-info (block-or-lose thing))))
     (do ((i 0 (1+ i))
 	 (vop (ir2-block-start-vop block) (vop-next vop)))