X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-info.lisp;h=acb051c168391e8ee45396f7927f39d85407d3dd;hb=063f2d867cfdfee8a7cbab17e6c5054d9c6f3ad1;hp=5ef9dee22188f098020dee7a7abbd405a4eef350;hpb=abfeff6ea6c7eaa2ab023539e7efbb408d8d42ea;p=sbcl.git

diff --git a/src/code/debug-info.lisp b/src/code/debug-info.lisp
index 5ef9dee..acb051c 100644
--- a/src/code/debug-info.lisp
+++ b/src/code/debug-info.lisp
@@ -75,7 +75,7 @@
   ;; CMU CL, there are two distinct -- but coupled -- mechanisms to
   ;; finding the name of a function. The slot here is one mechanism
   ;; (used in CMU CL to look up names in the debugger, e.g. in
-  ;; BACKTRACE). The other mechanism is the the NAME slot in function
+  ;; BACKTRACE). The other mechanism is the NAME slot in function
   ;; primitive objects (used in CMU CL to look up names elsewhere,
   ;; e.g. in CL:FUNCTION-LAMBDA-EXPRESSION and in CL:DESCRIBE).
   ;;