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