From 8643c93d4db277f6e1cb880a42407ff29e19f618 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Mon, 10 Sep 2007 13:31:45 +0000 Subject: [PATCH] 1.0.9.53: trivial typo fixes (I had batched these up as a "git baby steps" commit, but now that's been delayed...) --- doc/manual/package-locks-extended.texinfo | 2 +- make-config.sh | 2 +- src/assembly/x86-64/assem-rtns.lisp | 2 +- src/code/external-formats/mb-util.lisp | 2 +- src/code/octets.lisp | 2 +- src/code/profile.lisp | 2 +- src/code/stream.lisp | 4 ++-- src/compiler/ir1-translators.lisp | 2 +- src/runtime/x86-bsd-os.c | 4 ++-- src/runtime/x86-darwin-os.c | 4 ++-- src/runtime/x86-sunos-os.c | 4 ++-- tests/compiler.pure.lisp | 2 +- version.lisp-expr | 2 +- 13 files changed, 17 insertions(+), 17 deletions(-) diff --git a/doc/manual/package-locks-extended.texinfo b/doc/manual/package-locks-extended.texinfo index f993888..1dbbdd3 100644 --- a/doc/manual/package-locks-extended.texinfo +++ b/doc/manual/package-locks-extended.texinfo @@ -10,7 +10,7 @@ The interface described here is experimental: incompatible changes in future SBCL releases are possible, even expected: the concept of ``implementation packages'' and the associated operators may be renamed; more operations (such as naming restarts or catch tags) may be added to -the the list of operations violating package locks. +the list of operations violating package locks. @menu * Package Lock Concepts:: diff --git a/make-config.sh b/make-config.sh index a27deeb..605b352 100644 --- a/make-config.sh +++ b/make-config.sh @@ -311,7 +311,7 @@ elif [ "$sbcl_arch" = "ppc" -a "$sbcl_os" = "linux" ]; then # to bandage across the break in source compatibility between # versions 2.3.1 and 2.3.2 # - # FIXME: integrate to grovel-features., maypahps + # FIXME: integrate to grovel-features, mayhaps printf ' :gencgc :stack-allocatable-closures :linkage-table' >> $ltf $GNUMAKE -C tools-for-build where-is-mcontext -I ../src/runtime tools-for-build/where-is-mcontext > src/runtime/ppc-linux-mcontext.h || (echo "error running where-is-mcontext"; exit 1) diff --git a/src/assembly/x86-64/assem-rtns.lisp b/src/assembly/x86-64/assem-rtns.lisp index 5289615..0b2f65e 100644 --- a/src/assembly/x86-64/assem-rtns.lisp +++ b/src/assembly/x86-64/assem-rtns.lisp @@ -130,7 +130,7 @@ (move ecx esi) (inst sub ecx rsp-tn) - ;; Check for all the args fitting the the registers. + ;; Check for all the args fitting the registers. (inst cmp ecx (fixnumize 3)) (inst jmp :le REGISTER-ARGS) diff --git a/src/code/external-formats/mb-util.lisp b/src/code/external-formats/mb-util.lisp index 251b8d7..e60dfed 100644 --- a/src/code/external-formats/mb-util.lisp +++ b/src/code/external-formats/mb-util.lisp @@ -81,7 +81,7 @@ ;; two-byte sequence `"initial (length 3)" ;; "non-continuation"' -- `#xef #x32') ;; signal only part of that sequence as - ;; erronous. + ;; erroneous. (loop for i from 1 below (min len remaining-bytes) always (valid-secondary-p i)) (enough-bytes-left-p len)))) diff --git a/src/code/octets.lisp b/src/code/octets.lisp index f95bf76..014f2e2 100644 --- a/src/code/octets.lisp +++ b/src/code/octets.lisp @@ -603,7 +603,7 @@ one-past-the-end" ;; two-byte sequence `"initial (length 3)" ;; "non-continuation"' -- `#xef #x32') ;; signal only part of that sequence as - ;; erronous. + ;; erroneous. (loop for i from 1 below (min len remaining-bytes) always (valid-secondary-p i)) (enough-bytes-left-p len))) diff --git a/src/code/profile.lisp b/src/code/profile.lisp index 5f5c2ff..1cd2dc2 100644 --- a/src/code/profile.lisp +++ b/src/code/profile.lisp @@ -117,7 +117,7 @@ ;;; (VALUES ENCAPSULATION-FUN READ-STATS-FUN CLEAR-STATS-FUN). ;;; ;;; ENCAPSULATION-FUN is a plug-in replacement for ENCAPSULATED-FUN, -;;; which updates statistics whenver it's called. +;;; which updates statistics whenever it's called. ;;; ;;; READ-STATS-FUN returns the statistics: ;;; (VALUES COUNT TIME CONSING PROFILE). diff --git a/src/code/stream.lisp b/src/code/stream.lisp index 6631e6b..88b2f98 100644 --- a/src/code/stream.lisp +++ b/src/code/stream.lisp @@ -1227,8 +1227,8 @@ ;; Global location in the stream (index 0 :type index) ;; Index cache: when we move backwards we save the greater of this - ;; and index here, so the the greater of index and this is always - ;; the end of the stream. + ;; and index here, so the greater of index and this is always the + ;; end of the stream. (index-cache 0 :type index) ;; Requested element type (element-type 'character)) diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp index c4289ed..e4c4d62 100644 --- a/src/compiler/ir1-translators.lisp +++ b/src/compiler/ir1-translators.lisp @@ -705,7 +705,7 @@ form to reference any of the previous VARS." #!+sb-doc "LOCALLY declaration* form* -Sequentially evaluate the FORMS in a lexical environment where the the +Sequentially evaluate the FORMS in a lexical environment where the DECLARATIONS have effect. If LOCALLY is a top level form, then the FORMS are also processed as top level forms." (ir1-translate-locally body start next result)) diff --git a/src/runtime/x86-bsd-os.c b/src/runtime/x86-bsd-os.c index bde0ac0..00a7ca6 100644 --- a/src/runtime/x86-bsd-os.c +++ b/src/runtime/x86-bsd-os.c @@ -192,8 +192,8 @@ int arch_os_thread_cleanup(struct thread *thread) { #if defined(LISP_FEATURE_SB_THREAD) int n = thread->tls_cookie; - /* Set the %%fs register back to 0 and free the the ldt - * by setting it to NULL. + /* Set the %%fs register back to 0 and free the ldt by setting it + * to NULL. */ FSHOW_SIGNAL((stderr, "/ TLS: Freeing LDT %x\n", n)); diff --git a/src/runtime/x86-darwin-os.c b/src/runtime/x86-darwin-os.c index 46958cd..fd1c037 100644 --- a/src/runtime/x86-darwin-os.c +++ b/src/runtime/x86-darwin-os.c @@ -101,8 +101,8 @@ int arch_os_thread_cleanup(struct thread *thread) { #if defined(LISP_FEATURE_SB_THREAD) int n = thread->tls_cookie; - /* Set the %%fs register back to 0 and free the the ldt - * by setting it to NULL. + /* Set the %%fs register back to 0 and free the ldt by setting it + * to NULL. */ FSHOW_SIGNAL((stderr, "/ TLS: Freeing LDT %x\n", n)); diff --git a/src/runtime/x86-sunos-os.c b/src/runtime/x86-sunos-os.c index 4e3f856..46ae087 100644 --- a/src/runtime/x86-sunos-os.c +++ b/src/runtime/x86-sunos-os.c @@ -121,8 +121,8 @@ int arch_os_thread_cleanup(struct thread *thread) { int n = thread->tls_cookie; struct ssd delete = { n, 0, 0, 0, 0}; - /* Set the %%fs register back to 0 and free the the ldt - * by setting it to NULL. + /* Set the %%fs register back to 0 and free the ldt by setting it + * to NULL. */ FSHOW_SIGNAL((stderr, "/ TLS: Freeing LDT %x\n", n)); diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp index d460817..5448102 100644 --- a/tests/compiler.pure.lisp +++ b/tests/compiler.pure.lisp @@ -1947,7 +1947,7 @@ (bit #*1001101001001 (min 12 (max 0 lv3)))))))))))) -;;; MISC.624: erronous AVER in x86's %LOGBITP VOPs +;;; MISC.624: erroneous AVER in x86's %LOGBITP VOPs (assert (eql 0 (funcall (compile diff --git a/version.lisp-expr b/version.lisp-expr index 6b789ce..fff1f21 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.9.52" +"1.0.9.53" -- 1.7.10.4