Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8900/src/code
Modified Files:
debug-info.lisp room.lisp unix.lisp
Log Message:
0.8.15:
some trivial text fixes (like s/the the/the/)
release, tagged as sbcl_0_8_15
Index: debug-info.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/debug-info.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- debug-info.lisp 31 Mar 2003 14:20:45 -0000 1.17
+++ debug-info.lisp 29 Sep 2004 19:34:40 -0000 1.18
@@ -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).
;;
Index: room.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/room.lisp,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- room.lisp 26 Jul 2004 10:15:39 -0000 1.29
+++ room.lisp 29 Sep 2004 19:34:40 -0000 1.30
@@ -513,7 +513,7 @@
(values)))
;;; Print a breakdown by instance type of all the instances allocated
-;;; in SPACE. If TOP-N is true, print only information for the the
+;;; in SPACE. If TOP-N is true, print only information for the
;;; TOP-N types with largest usage.
(defun instance-usage (space &key (top-n 15))
(declare (type spaces space) (type (or fixnum null) top-n))
Index: unix.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/unix.lisp,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- unix.lisp 4 Aug 2004 22:15:32 -0000 1.48
+++ unix.lisp 29 Sep 2004 19:34:40 -0000 1.49
@@ -241,7 +241,7 @@
;;; UNIX-WRITE accepts a file descriptor, a buffer, an offset, and the
;;; length to write. It attempts to write len bytes to the device
-;;; associated with fd from the the buffer starting at offset. It returns
+;;; associated with fd from the buffer starting at offset. It returns
;;; the actual number of bytes written.
(defun unix-write (fd buf offset len)
(declare (type unix-fd fd)
|