From a2db0cab458444ff2414d6c2e2f458e1c6c2d54b Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sat, 4 Dec 1999 16:02:36 +0000
Subject: [PATCH] Minor documentation fixes.

---
 code/fd-stream.lisp | 15 ++++++++-------
 code/gc.lisp        |  4 ++--
 code/hash-new.lisp  |  4 ++--
 code/lispinit.lisp  |  8 ++++----
 code/signal.lisp    |  3 +--
 5 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp
index 671ab6cdd..82061bb96 100644
--- a/code/fd-stream.lisp
+++ b/code/fd-stream.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.49 1999/09/04 19:44:09 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.50 1999/12/04 16:02:34 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -651,16 +651,17 @@
     string))
 
 #|
-This version waits using server.  I changed to the non-server version because
-it allows this method to be used by CLX w/o confusing serve-event.  The
-non-server method is also significantly more efficient for large reads.
-  -- Ram
-
 ;;; FD-STREAM-READ-N-BYTES -- internal
 ;;;
+;;; This version waits using server.  I changed to the non-server version
+;;; because it allows this method to be used by CLX w/o confusing serve-event.
+;;; The non-server method is also significantly more efficient for large
+;;; reads. -- Ram
+;;;
 ;;; The n-bin routine.
 ;;; 
 (defun fd-stream-read-n-bytes (stream buffer start requested eof-error-p)
+  (declare (type stream stream) (type index start requested))
   (let* ((sap (fd-stream-ibuf-sap stream))
 	 (elsize (fd-stream-element-size stream))
 	 (offset (* elsize start))
@@ -695,7 +696,7 @@ non-server method is also significantly more efficient for large reads.
 
 ;;; FD-STREAM-READ-N-BYTES -- internal
 ;;;
-;;;    The N-Bin method for FD-STREAMs.  This doesn't using SERVER; it blocks
+;;;    The N-Bin method for FD-STREAMs.  This doesn't use the SERVER; it blocks
 ;;; in UNIX-READ.  This allows the method to be used to implementing reading
 ;;; for CLX.  It is generally used where there is a definite amount of reading
 ;;; to be done, so blocking isn't too problematical.
diff --git a/code/gc.lisp b/code/gc.lisp
index 429c26ec2..fedadc64b 100644
--- a/code/gc.lisp
+++ b/code/gc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.23 1997/11/04 16:00:14 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.24 1999/12/04 16:02:35 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -437,7 +437,7 @@
 (defun gc (&key (verbose *gc-verbose*) (gen 0) (full nil))
   "Initiates a garbage collection.  The keyword :VERBOSE, which
    defaults to the value of the variable *GC-VERBOSE* controls whether or
-   not GC statistics are printed. The keyword :GEN defaluts to 0, and
+   not GC statistics are printed. The keyword :GEN defaults to 0, and
    controls the number of generations to garbage collect."
   (sub-gc :verbose-p verbose :force-p t :gen (if full 6 gen)))
 
diff --git a/code/hash-new.lisp b/code/hash-new.lisp
index 8cacc35e9..f19264705 100644
--- a/code/hash-new.lisp
+++ b/code/hash-new.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.4 1998/07/31 08:31:43 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.5 1999/12/04 16:02:35 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -364,7 +364,7 @@
 		 (setf (aref new-index-vector index) i)))
 	      (t
 	       ;; EQ base hash.
-	       ;; Enamble GC tricks.
+	       ;; Enable GC tricks.
 	       (set-header-data new-kv-vector vm:vector-valid-hashing-subtype)
 	       (let* ((hashing (pointer-hash key))
 		      (index (rem hashing new-length))
diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index fb876d696..584752f44 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.57 1998/09/26 18:24:42 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.58 1999/12/04 16:02:35 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -425,11 +425,9 @@
     (set-floating-point-modes :traps
 			      '(:overflow #-x86 :underflow :invalid
 					  :divide-by-zero))
-    ;; Clear pseudo atomic in case it this core wasn't compiled with
-    ;; support.
+    ;; Clear pseudo atomic in case this core wasn't compiled with support.
     #+x86 (setf lisp::*pseudo-atomic-atomic* 0))))
 
-
 
 ;;;; Miscellaneous external functions:
 
@@ -465,6 +463,8 @@
 
 (defconstant bytes-per-scrub-unit 2048)
 
+;;; Scrub-control-stack.
+;;;
 #-x86
 (defun scrub-control-stack ()
   "Zero the unused portion of the control stack so that old objects are not
diff --git a/code/signal.lisp b/code/signal.lisp
index 6c5b09e14..4cae9706f 100644
--- a/code/signal.lisp
+++ b/code/signal.lisp
@@ -5,11 +5,10 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.27 1999/03/24 19:42:00 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.28 1999/12/04 16:02:36 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.27 1999/03/24 19:42:00 pw Exp $
 ;;;
 ;;; Code for handling UNIX signals.
 ;;; 
-- 
GitLab