From 54b2882cf9419e057b968a6d634caf7fe0cdf93f Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Sun, 9 Aug 2009 03:55:59 +0000 Subject: [PATCH] Fix some typos. From Paul Foley. --- code/format.lisp | 6 +++--- code/hash-new.lisp | 4 ++-- code/loop.lisp | 4 ++-- code/package.lisp | 4 ++-- code/time.lisp | 4 ++-- docs/cmu-user/unicode.tex | 2 +- 6 files changed, 12 insertions(+), 12 deletions(-) diff --git a/code/format.lisp b/code/format.lisp index 893b97cdb..25b75ee6b 100644 --- a/code/format.lisp +++ b/code/format.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/format.lisp,v 1.92 2009/06/11 16:03:57 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.93 2009/08/09 03:54:41 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -3145,8 +3145,8 @@ :complaint "Malformed ~~/ directive.")) (let* ((name (string-upcase (let ((foo string)) ;; Hack alert: This is to keep the compiler - ;; quit about deleting code inside the subseq - ;; expansion. + ;; quiet about deleting code inside the + ;; subseq expansion. (subseq foo (1+ slash) (1- end))))) (first-colon (position #\: name)) (second-colon (if first-colon (position #\: name :start (1+ first-colon)))) diff --git a/code/hash-new.lisp b/code/hash-new.lisp index 524176239..c95c20f4f 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.50 2009/07/02 21:00:48 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.51 2009/08/09 03:54:42 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -862,7 +862,7 @@ (defmacro with-hash-table-iterator ((function hash-table) &body body) "WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body) provides a method of manually looping over the elements of a hash-table. - FUNCTION is bound to a generator-macro that, withing the scope of the + FUNCTION is bound to a generator-macro that, within the scope of the invocation, returns one or three values. The first value tells whether any objects remain in the hash table. When the first value is non-NIL, the second and third values are the key and the value of the next object." diff --git a/code/loop.lisp b/code/loop.lisp index e9584c926..4f0cc9d45 100644 --- a/code/loop.lisp +++ b/code/loop.lisp @@ -49,7 +49,7 @@ #+cmu (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.30 2008/07/15 15:44:33 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.31 2009/08/09 03:54:42 rtoy Rel $") ;;;; LOOP Iteration Macro @@ -2132,7 +2132,7 @@ collected result will be returned as the value of the LOOP." (cond ((and prep-phrases (cdr prep-phrases)) (loop-error "Too many prepositions!")) ((and prep-phrases (not (member (caar prep-phrases) '(:in :of)))) - (loop-error "Unknow preposition ~S" (caar prep-phrases)))) + (loop-error "Unknown preposition ~S" (caar prep-phrases)))) (unless (symbolp variable) (loop-error "Destructuring is not valid for package symbol iteration.")) (let ((pkg-var (loop-gentemp 'loop-pkgsym-)) diff --git a/code/package.lisp b/code/package.lisp index bcc85d5cd..64b8d6cc5 100644 --- a/code/package.lisp +++ b/code/package.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/package.lisp,v 1.76 2009/06/11 16:03:58 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.77 2009/08/09 03:54:42 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -445,7 +445,7 @@ ;;; allowing collisions and misses to be detected without paging in the ;;; symbol and pname for an entry. If the hash for an entry doesn't ;;; match that for the symbol that we are looking for, then we can -;;; go on without touching the symbol, pname, or even hastable vector. +;;; go on without touching the symbol, pname, or even hashtable vector. ;;; It turns out that, contrary to my expectations, paging is a very ;;; important consideration the design of the package representation. ;;; Using a similar scheme without the entry hash, the fasloader was diff --git a/code/time.lisp b/code/time.lisp index c15d76835..32fc2b3ed 100644 --- a/code/time.lisp +++ b/code/time.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/time.lisp,v 1.29 2007/08/03 14:30:34 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/time.lisp,v 1.30 2009/08/09 03:54:42 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -99,7 +99,7 @@ ;;; CURRENT-TIMEZONE -- internal. ;;; ;;; Returns two values: -;;; - the minuteswest of GMT. +;;; - the minutes west of GMT. ;;; - T if daylight savings is in effect, NIL if not. ;;; (alien:def-alien-routine get-timezone c-call:void diff --git a/docs/cmu-user/unicode.tex b/docs/cmu-user/unicode.tex index a7c21b939..fa4d56b16 100644 --- a/docs/cmu-user/unicode.tex +++ b/docs/cmu-user/unicode.tex @@ -477,7 +477,7 @@ utility functions are provided to make access easier. \begin{defun}{stream:}{string-encode}{\args \var{string} \var{external-format} \ampoptional{} (\var{start} 0) \var{end}} \code{string-encode} encodes \var{string} using the format - \var{external-format}, producing an array of octest. Each octet is + \var{external-format}, producing an array of octets. Each octet is converted to a character via \code{code-char} and the resulting string is returned. -- GitLab