X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug.lisp;h=54099e01a1a33322c7a212beac2a43ab002b69b2;hb=bee53328c93be3433477821131ab805557476c8b;hp=a5fd549bfda2147a69134a012dbf694b6c1897f7;hpb=b5703d98da9ebfd688c87e14862ab4e26dc94d14;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index a5fd549..54099e0 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -194,7 +194,7 @@ Function and macro commands:
 	(setf next-list (next-code-locations (first next-list))))
       next-list)))
 
-;;; Returns a list of code-locations of the possible breakpoints of the
+;;; Return a list of code-locations of the possible breakpoints of the
 ;;; debug-function passed.
 (defun possible-breakpoints (debug-function)
   (let ((possible-breakpoints nil))
@@ -208,7 +208,7 @@ Function and macro commands:
 		(push code-location possible-breakpoints))))))
     (nreverse possible-breakpoints)))
 
-;;; Searches the info-list for the item passed (code-location,
+;;; Search the info-list for the item passed (code-location,
 ;;; debug-function, or breakpoint-info). If the item passed is a debug
 ;;; function then kind will be compared if it was specified. The kind
 ;;; if also compared if a breakpoint-info is passed since it's in the