Description: spelling_errors1
Forwarded: not-needed
 Miscellaneous spelling corrections.
Author: Camm Maguire <camm@debian.org>

---
The information above should follow the Patch Tagging Guidelines, please
checkout http://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:

Origin: <vendor|upstream|other>, <url of original patch>
Bug: <url in upstream bugtracker>
Bug-Debian: https://bugs.debian.org/<bugnumber>
Bug-Ubuntu: https://launchpad.net/bugs/<bugnumber>
Forwarded: <no|not-needed|url proving that it has been forwarded>
Reviewed-By: <name and email of someone who approved the patch>
Last-Update: 2021-02-04

Index: acl2-8.4dfsg/apply.lisp
===================================================================
--- acl2-8.4dfsg.orig/apply.lisp
+++ acl2-8.4dfsg/apply.lisp
@@ -876,7 +876,7 @@
 (defun guess-ilks-alist (fn new-badge term ilk wrld alist)
 
 ; Fn is the name of a function being defined.  New-badge is either nil or a
-; proposed badge for fn and term is a term (initally the body of fn) occuring
+; proposed badge for fn and term is a term (initally the body of fn) occurring
 ; in a slot of ilk ilk.  Note: term contains no ACL2 lambda applications!  We
 ; try to determine the ilks of the free vars in term, extending alist to record
 ; what we find.  We return (mv msg alist'), where either msg is an error
Index: acl2-8.4dfsg/books/acl2s/ccg/ccg-settings.lsp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/ccg/ccg-settings.lsp
+++ acl2-8.4dfsg/books/acl2s/ccg/ccg-settings.lsp
@@ -13,7 +13,7 @@
 
 ;; CCG settings
 
-; dont be too verbose
+; don't be too verbose
  (set-ccg-print-proofs nil)     
  (set-ccg-inhibit-output-lst
   '(QUERY BASICS PERFORMANCE BUILD/REFINE SIZE-CHANGE))
Index: acl2-8.4dfsg/books/acl2s/cgen/acl2s-parameter.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/acl2s-parameter.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/acl2s-parameter.lisp
@@ -573,7 +573,7 @@ These are stored in the constant @('*acl
                         `(table acl2s-defaults-table 
                                   ',',',(keywordify param)
                                   ',(acl2::change acl2s-param-info% ',r :value ',v))))
-;;; setter is a macro, so dont quote the args to it whereas the above
+;;; setter is a macro, so don't quote the args to it whereas the above
 ;;; table macro needs quoted args because its 3rd parameter is &rest rst
                   (value `(,',setter ,',v (,table-update-form));embedded event
                         ))
Index: acl2-8.4dfsg/books/acl2s/cgen/base-cgen-rules.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/base-cgen-rules.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/base-cgen-rules.lisp
@@ -137,7 +137,7 @@ date created: [2016-04-14 Thu]
     (mv X1 X2)))
     
 (cgen::define-rule append-fixer1
-  :hyp (true-listp X3) ;dont worry about this, it will backchain!
+  :hyp (true-listp X3) ;don't worry about this, it will backchain!
   :rule (mv-let (X1 X2) (append-fixer1 X3 X1)
                 (equal X3 (binary-append X1 X2)))
   :rule-classes :fixer)
Index: acl2-8.4dfsg/books/acl2s/cgen/basis.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/basis.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/basis.lisp
@@ -30,7 +30,7 @@
 ;;;;            suffix A_1 indicates A1 is the first argument
 ;;;;            A~ is sometimes used to denote a modified A, but
 ;;;;              sometimes I use A1, A2, ideally I would like to use
-;;;;              A', A'', to denote such things, but Sedan doesnt
+;;;;              A', A'', to denote such things, but Sedan doesn't
 ;;;;              like this syntax, I shud check CLTL
 
 ;;;; Discipline/Style:
@@ -59,7 +59,7 @@
 ;;;;    12. Use anonymous functions only inside list comprehensions and
 ;;;;        all maps and filters are to be used only via LC syntax.
 ;;;;    13. All the above fancy stuff is to be done within the def
-;;;;        macro, dont modify b* which can be nested. Thus we are
+;;;;        macro, don't modify b* which can be nested. Thus we are
 ;;;;        assured of the top-level variable-free scope in which we
 ;;;;        apply our synatx customization.
 
Index: acl2-8.4dfsg/books/acl2s/cgen/build-enumcalls.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/build-enumcalls.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/build-enumcalls.lisp
@@ -307,7 +307,7 @@
                   (t 
                    (prog2$
                      (cw? (normal-output-flag vl)
-                          "~|Cgen/Error: ~x0 doesnt appear to be a type.~%" type)
+                          "~|Cgen/Error: ~x0 doesn't appear to be a type.~%" type)
                      (acl2::make enum-info% :domain-size 0 :category :empty :expr nil :expr2 nil)))))))))))
 
 
@@ -530,7 +530,7 @@ thought about how to implement it.
 ;; enumerator call expression")
 ;;   (declare (xargs :verify-guards nil))
 ;;   (if (endp v-cs%-alst)
-;;       (mv nil (reverse ans.)) ;dont change the original dependency order
+;;       (mv nil (reverse ans.)) ;don't change the original dependency order
 ;;     (b* (((cons x cs%) (car v-cs%-alst))
 ;;          ((mv domain-size ?min-rec-depth ?max-rec-depth calls)
 ;;           (cs%-enumcalls cs% vl wrld  (strip-cars ans.)))
@@ -595,7 +595,7 @@ equality constraint that will be used fo
   we walk down the alist, translating each type constraint to the corresponding
 enumerator type/expr to be displayed in verbose mode")
   (if (endp v-cs%-alst)
-      (reverse ans.) ;dont change the original dependency order
+      (reverse ans.) ;don't change the original dependency order
     (b* (((cons x cs%) (car v-cs%-alst))
          (type (displayed-defdata-type/eq-constraint cs% (strip-cars ans.))))
      
Index: acl2-8.4dfsg/books/acl2s/cgen/callback.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/callback.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/callback.lisp
@@ -409,7 +409,7 @@ Nested testing not allowed! Skipping tes
                                                      type-alist tau-interval-alist 
                                                      NIL 
                                                      *initial-test-outcomes%* 
-; we dont care about witnesses and the start time and do no accumulation.
+; we don't care about witnesses and the start time and do no accumulation.
                                                      *initial-gcs%*
                                                      temp-cgen-state
                                                      ctx state))
@@ -605,7 +605,7 @@ Nested testing not allowed! Skipping tes
        (vl (acl2s-defaults :get verbosity-level))
   
 ; Always push the event into the event-stack for matching with
-; finalize. The default is to push :ignore-cgen, which is overriden
+; finalize. The default is to push :ignore-cgen, which is overridden
 ; later, if cgen takes this event to give the conjecture under test.
        (event-stack (@ event-stack))
        (event-stack~ (cons :ignore-cgen event-stack)) ;ensure this keyword is never a event ctx
@@ -672,7 +672,7 @@ Nested testing not allowed! Skipping tes
        (ctx (compute-event-ctx ctx-form))
        (print-summary-p (and (cget print-cgen-summary) 
                              (> (access gcs% cts) 0)
-; dont print at the end of defun/defuns events (any help to CCG by cgen is invisible) TODO
+; don't print at the end of defun/defuns events (any help to CCG by cgen is invisible) TODO
                              (member-eq ctx '(ACL2::THM ACL2::DEFTHM ACL2::VERIFY-GUARDS))))
        
        (- (cw? (system-debug-flag vl) "~|CEgen/SysDebug: Exiting event with gcs% : ~x0. ~ ctx: ~x1 print-cgen-summ : ~x2 ~%" gcs% ctx (cget print-cgen-summary)))
@@ -742,7 +742,7 @@ Nested testing not allowed! Skipping tes
        (ctx (compute-event-ctx ctx-form))
        (print-summary-p (and (cget print-cgen-summary) 
                              ;(> (access gcs% cts) 0) ;commented out to collect vacuous stats
-; dont print at the end of defun/defuns events (any help to CCG by cgen is invisible) TODO
+; don't print at the end of defun/defuns events (any help to CCG by cgen is invisible) TODO
                              (allowed-cgen-event-ctx-p ctx)))
 
        
Index: acl2-8.4dfsg/books/acl2s/cgen/cgen-rules.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/cgen-rules.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/cgen-rules.lisp
@@ -187,7 +187,7 @@ Invariants:
 ;       (fixed-constraint-term (acl2::subcor-var Out mv-expanded-fixer-terms constraint-term))
        (Vars (reverse (acl2::all-vars constraint-term)))
        ((unless (and (subsetp-eq Vars (union-eq In Out)) (subsetp-eq Out Vars)))
-        (er soft ctx "~| Invariant doesnt hold: ~x0 subsetof ~x1 and ~x2 subsetof ~x0~%"
+        (er soft ctx "~| Invariant doesn't hold: ~x0 subsetof ~x1 and ~x2 subsetof ~x0~%"
             Vars (union-eq In Out) Out))
        (rule-metadata (list (cons :In In)
                             (cons :Out Out)
Index: acl2-8.4dfsg/books/acl2s/cgen/cgen-search.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/cgen-search.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/cgen-search.lisp
@@ -243,7 +243,7 @@ Why is ACL2 not good at this?
   (b* (
        ;; (defaults (cget params))
 ;;        (N (get1 :num-trials defaults 0)) ;shudnt it be 100?
-;; ;Note: I dont need to provide the default arg 0 above, since we are
+;; ;Note: I don't need to provide the default arg 0 above, since we are
 ;; ;sure the defaults alist we get is complete i.e it would definitely
 ;; ;contain the key ':num-trials'. But I am envisioning a scenario, where
 ;; ;I might call this function on its own and not via test?, then this
Index: acl2-8.4dfsg/books/acl2s/cgen/fixers-gl-backend.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/fixers-gl-backend.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/fixers-gl-backend.lisp
@@ -475,7 +475,7 @@ downloaded from the webpage.
             (when (and (member x (g1 :out f1)) ;x should flow out of f1
                       (member x (g1 :in f2))  ; and into f2
                       (not (equal f1 f2))     ;ignore loops (in hyps)
-                      ;(not (equal f1 f3)) ; BUG: dont ignore these, these are to be caught!
+                      ;(not (equal f1 f3)) ; BUG: don't ignore these, these are to be caught!
                       )
               (collect (list x f1 f2 f3))))))
 
@@ -1242,7 +1242,7 @@ bindings:
           (prog2$
            (cw? (verbose-stats-flag vl) "~|Got a sat assignment for #literals = ~x0~%" n)
            (mv nil A n state)))
-         ((when (eq mode :sat)) ;dont continue maxsat loop if in this mode
+         ((when (eq mode :sat)) ;don't continue maxsat loop if in this mode
           (mv erp A n state))
 
          )
Index: acl2-8.4dfsg/books/acl2s/cgen/fixers2.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/fixers2.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/fixers2.lisp
@@ -514,7 +514,7 @@ SAT(term) == \/ SAT(f-lits_i)
 
 
 #|
-In the second pass, we dont worry about cterms, we only look at f-lits .
+In the second pass, we don't worry about cterms, we only look at f-lits .
 Note that a prule has a single f-lit to match, but multiple fixer-terms to complete
 the matching.
 
Index: acl2-8.4dfsg/books/acl2s/cgen/incremental-search.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/incremental-search.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/incremental-search.lisp
@@ -305,7 +305,7 @@ loop.  Any inconsistency in P results in
 last decision made in Assign. For more details refer to the FMCAD paper.")
 
 ; here are abbreviations for functions with looooong arg lists
-; dont read them, go directly to the body of the function, refer to these
+; don't read them, go directly to the body of the function, refer to these
 ; abbreviations while reading the main code.
 ; NOTE: f* names have defun local scope and not across defuns/clique :(
 
Index: acl2-8.4dfsg/books/acl2s/cgen/infer-enum-shape.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/infer-enum-shape.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/infer-enum-shape.lisp
@@ -187,7 +187,7 @@
 
 
 (defs  ;;might be mut-rec, but right now I assume tht I wont encounter
-       ;;AND and OR like if expressions, and hence dont need the
+       ;;AND and OR like if expressions, and hence don't need the
        ;;mutually-recursive counterpart of v-cs%-alist-from-term. TODO
   (v-cs%-alist-from-term. (term vl wrld ans.)
   (decl :sig ((pseudo-term fixnum plist-world  symbol-cs%-alist)
@@ -427,7 +427,7 @@ into eq-constraint field and put interva
 
      (v-cs%-alist-from-terms. hyps+ vl wrld v-cs%-alst))))
 
-; TODO: Right now we dont use ACL2's type-alist to full effect. For
+; TODO: Right now we don't use ACL2's type-alist to full effect. For
 ; example, we might get that (len x) > 3 is non-nil in the type-alist
 ; but missing in the actual hypotheses, this causes loss in crucial
 ; shape information.
Index: acl2-8.4dfsg/books/acl2s/cgen/propagate.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/propagate.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/propagate.lisp
@@ -113,7 +113,7 @@
 ;;       (simplify-hyps1-under-assignment 
 ;;        (cdr rem-hyps) init-hyps x a hints
 ;;        (if (equal shyp ''t) ans.
-;;          (append ans. (list shyp))) ;dont mess with order
+;;          (append ans. (list shyp))) ;don't mess with order
 ;;        vl state))))
 
 
@@ -191,7 +191,7 @@
        (cdr rem-hyps) init-hyps hints
        (cond ((type-hyp-p hyp (w state)) (append ans. (list hyp))) ;leave type hyps unchanged
              ((equal shyp ''t) ans.)
-             (t (append ans. shyp-list))) ;dont mess with order
+             (t (append ans. shyp-list))) ;don't mess with order
        vl state))))
 
 (def simplify-hyps-under-assignment (hyps x a vl state)
@@ -275,7 +275,7 @@
 ;; ;inside test-checkpoint??
 ;;        (mv (prog2$ 
 ;;             (cw? (normal-output-flag vl)
-;; "~|BAD: conclusion got reduced to something we dont want!!~|")
+;; "~|BAD: conclusion got reduced to something we don't want!!~|")
 ;;             T)
 ;;            (list shyps sconcl) state))
       (vars (all-vars-lst (cons sconcl shyps))))
Index: acl2-8.4dfsg/books/acl2s/cgen/prove-cgen.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/prove-cgen.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/prove-cgen.lisp
@@ -28,7 +28,7 @@
                                   proof-builder event history
                                   proof-tree summary)))) 
                     
-;doesnt work on an make-event
+;doesn't work on an make-event
 ||#
 
 
@@ -47,7 +47,7 @@
 ;; Pre-condition var-term-alst is in proper let* order, o.w let*
 ;; complains
 ;; April 30 '12: Return to simple trans-eval with state
-;; we dont care about efficiency wrt ev-w because we only ever print
+;; we don't care about efficiency wrt ev-w because we only ever print
 ;; a small number of cts/wts.
 ;; May 13th '12 : better naming
 
@@ -658,7 +658,7 @@ history s-hist.")
                 (mv :? cgen-state state)))
          
        (testing-enabled (cget testing-enabled ))
-       ((when (eq testing-enabled NIL)) ;dont do any testing
+       ((when (eq testing-enabled NIL)) ;don't do any testing
         (prog2$ (cw? (verbose-flag vl) 
                      "~|Cgen/Note: TESTING-ENABLED is set to NIL; skipping this form altogether.~|")
                 (mv :? cgen-state state)))
@@ -744,7 +744,7 @@ history s-hist.")
                 (mv :? cgen-state state)))
          
        (testing-enabled (cget testing-enabled ))
-       ((when (eq testing-enabled NIL)) ;dont do any testing
+       ((when (eq testing-enabled NIL)) ;don't do any testing
         (prog2$ (cw? (verbose-flag vl) 
                      "~|Cgen/Note: TESTING-ENABLED is set to NIL; skipping this form altogether.~|")
                 (mv :? cgen-state state)))
@@ -851,7 +851,7 @@ history s-hist.")
                                                      "( THM ...)" wrld state))
                             
                             (ttree (acl2::prove ',term
-;; TODO: Matt's code doesnt work through induction and forcing rds
+;; TODO: Matt's code doesn't work through induction and forcing rds
 ;; Also the OTF flag is set to true, to test all initial subgoals. 
                                           (acl2::make-pspv ens wrld state
                                                      :displayed-goal ',form
Index: acl2-8.4dfsg/books/acl2s/cgen/select.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/select.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/select.lisp
@@ -198,7 +198,7 @@
            )
       (put-interdependency-edges-in-alst 
        (cdr term-lst) all-terms
-       (union-entries-in-adj-list vars ;sloppy, dont want self-edges
+       (union-entries-in-adj-list vars ;sloppy, don't want self-edges
                                   (set-difference-eq rest-vars vars)
                                   alst)))))
          
@@ -247,10 +247,10 @@ processed, the annotation of edges is al
             (quotep hyp)
             (and (equal (len hyp) 2)
                  (equal (len (get-free-vars1 (cadr hyp) nil)) 1))) ;monadic term
-        (build-vdependency-graph (cdr hyp-lst) alst alst-C incoming)) ;dont do anything
+        (build-vdependency-graph (cdr hyp-lst) alst alst-C incoming)) ;don't do anything
        
        ((undirected-2-rel? hyp);(~ x  y)
-;dont draw an edge
+;don't draw an edge
         (build-vdependency-graph (cdr hyp-lst) alst alst-C incoming))
 
        ((directed-2-rel? hyp);(= x (f y))
Index: acl2-8.4dfsg/books/acl2s/cgen/simple-graph-array.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/simple-graph-array.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/simple-graph-array.lisp
@@ -241,7 +241,7 @@ the vertice with the maximum post time."
 
 ;fs means Functionaly dependent vars
 ;ASSUMPTION: alst has all the variables as keys already
-;this function just updates the entries, doesnt insert
+;this function just updates the entries, doesn't insert
 ;new entries.
 (defun union-entry-in-adj-list (var fvars alst)
   (declare (xargs :guard (and (adjacency-listp alst)
@@ -290,7 +290,7 @@ the vertice with the maximum post time."
            (equal (transpose-alst (transpose-alst x))
                   x)))
 
-(defthm transpose-doesnt-change-order
+(defthm transpose-doesn't-change-order
   (implies (adjacency-list1p x)
            (equal (strip-cars (transpose-alst x))
                   (strip-cars x))))
Index: acl2-8.4dfsg/books/acl2s/cgen/simple-search.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/simple-search.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/simple-search.lisp
@@ -429,7 +429,7 @@ eg:n/a")
             (gcs% (gcs-1+ cts))
             (m    (access test-outcomes% |#cts|))
             (test-outcomes% ;TODO:per subgoal num-cts stored??
-             (if (< m num-print-cts) ;dont store extra unless
+             (if (< m num-print-cts) ;don't store extra unless
                  (b* ((test-outcomes% (change test-outcomes% cts (cons A A-cts))))
                    test-outcomes%)
                test-outcomes%))
@@ -458,7 +458,7 @@ eg:n/a")
                                 (change test-outcomes% wts-hyp-vals-list
                                         (cons hyp-vals (access test-outcomes% wts-hyp-vals-list)))
                               test-outcomes%))
-            (test-outcomes%   (test-outcomes-1+ wts))) ;BUGGY -- we dont know if its a duplicate. FIXME
+            (test-outcomes%   (test-outcomes-1+ wts))) ;BUGGY -- we don't know if its a duplicate. FIXME
 ;                         in       
          (mv test-outcomes% gcs%)))
 
@@ -717,7 +717,7 @@ where
     (er-progn
      (b* (((mv & (the (unsigned-byte 31) rseed.))
            (defdata::genrandom-seed 2 (defdata::getseed state)))
-          (state (defdata::putseed rseed. state))) ;make some progress -- dont get stuck on the same sequence of seeds
+          (state (defdata::putseed rseed. state))) ;make some progress -- don't get stuck on the same sequence of seeds
        (value nil))
      (assign ss-temp-result :timed-out)
      (mv T nil state)))))
@@ -770,7 +770,7 @@ Use :simple search strategy to find coun
 ")
   
   (if (endp vars)
-; dont even try trivial forms like constant expressions
+; don't even try trivial forms like constant expressions
       (b* ((form  `(implies (and ,@hyps) ,concl))
            ((mv erp c state)
             (trans-eval-single-value form ctx state))
@@ -895,7 +895,7 @@ Use :simple search strategy to find coun
 ; - Can be switched to wormholes if needed. (But then we cant use state to share the result of run-tests)
 ; - Is this parallelizable? Are wormholes?
 ; [2014-09-21 Sun] Reverted back to trans-eval. It is simpler and hopefully the interrupt story is saner!
-; But we still dont use make-event, due to which we have to redef.
+; But we still don't use make-event, due to which we have to redef.
     (trans-eval
        
      `(with-output :stack :pop ,@(and (not (debug-flag vl)) '(:off :all))
Index: acl2-8.4dfsg/books/acl2s/cgen/testing-regression.lsp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/testing-regression.lsp
+++ acl2-8.4dfsg/books/acl2s/cgen/testing-regression.lsp
@@ -285,7 +285,7 @@
           (not (equal "isosceles" (shape x)))))
 )
 
-;; testcase 3 (memory updates dont commute)
+;; testcase 3 (memory updates don't commute)
 ;NOTE: The following example too, 'simple' works good enough
 
 ;another example demonstrating how having the ability to find
@@ -652,7 +652,7 @@
 ; 27th Aug '12, to get rid of the above error, one needs to
 ; submit a compound recognizer rul(declare (xargs :guard (pseudo-termp term)
                    :verify-guards nil))
-; Additionally I also make sure that I dont break the invariant
+; Additionally I also make sure that I don't break the invariant
 ; that after propagating a X=const assignment, X will not appear
 ; as a free variable in the resulting simplified hyp
 
Index: acl2-8.4dfsg/books/acl2s/cgen/top.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/top.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/top.lisp
@@ -76,7 +76,7 @@
 
 
 ; For now lets keep the nats not more than 1000 to avoid stack-overflow
-; on non-tail-recursive functions. If you dont like these, comment
+; on non-tail-recursive functions. If you don't like these, comment
 ; them out, or write your own custom test enumerators and attach them
 (defdata-attach pos :test-enumerator nth-pos-testing)
 
@@ -88,7 +88,7 @@
 ;Note on xdoc: <= or < cannot be used inside defxdoc!!
 
 (defun test?-fn (form hints override-defaults state)
-; Jan 9th 2013, dont print summary unless there was a counterexample.
+; Jan 9th 2013, don't print summary unless there was a counterexample.
   (declare (xargs :mode :program
                   :stobjs (state)))
 ;        :sig ((any hints keyword-value-listp state) -> (mv erp any state))
@@ -137,7 +137,7 @@
  Therefore, no counterexamples exist. ~%" (if hints "" " (without induction)"))
                              (mv NIL state)))
 ; either prove failed, or we didnt call prove. Either way if we didnt find a cts
-; then we say the test? succeeded! But dont print if print-cgen-summary is nil.
+; then we say the test? succeeded! But don't print if print-cgen-summary is nil.
               (t (prog2$
                   (cgen::cw? (and pts? (cgen::normal-output-flag vl))
                        "~%Test? succeeded. No counterexamples were found.~%")
Index: acl2-8.4dfsg/books/acl2s/cgen/with-timeout.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/cgen/with-timeout.lisp
+++ acl2-8.4dfsg/books/acl2s/cgen/with-timeout.lisp
@@ -78,7 +78,7 @@ with-timeout-ev instead"
 
 ;the following is for internal use only. I use it in timing out
 ;top-level-test? form, where i manually make a function body
-;corresponding to the top-level-test?-fn, this way I dont have to
+;corresponding to the top-level-test?-fn, this way I don't have to
 ;worry about capturing free variables
 
 (defmacro with-timeout1 (duration form timeout-form)
Index: acl2-8.4dfsg/books/acl2s/defdata/base.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/defdata/base.lisp
+++ acl2-8.4dfsg/books/acl2s/defdata/base.lisp
@@ -281,7 +281,7 @@ on a per data definition basis or
 
 
 
-;;only strings upto len 1 to 8
+;;only strings up to len 1 to 8
 (defun nth-string-builtin (n)
   (declare (xargs :guard (natp n)))
   (let* ((str-len (1+ (mod n 7)))
@@ -337,7 +337,7 @@ on a per data definition basis or
   (nth (mod n *len-alpha-num-chars*) *alpha-num-chars*))
 
 ;(defdata character-list (listof character))
-;;only strings upto len 1 to 8
+;;only strings up to len 1 to 8
 (defun nth-character-list-builtin (n)
   (declare (xargs :guard (natp n)))
   (let* ((str-len (1+ (mod n 7)))
Index: acl2-8.4dfsg/books/acl2s/defdata/defdata-attach.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/defdata/defdata-attach.lisp
+++ acl2-8.4dfsg/books/acl2s/defdata/defdata-attach.lisp
@@ -39,7 +39,7 @@ data last modified: [2015-06-09 Tue]
     (:match-type (member-eq val '(:match :subterm-match)))
     (:meta-replace (symbol-doublet-listp val)) ;let binding
 
-    (otherwise t) ;dont be strict.
+    (otherwise t) ;don't be strict.
     ))
 
 (defun ill-formed-metadata-entry-msg1 (key val)
@@ -235,7 +235,7 @@ data last modified: [2015-06-09 Tue]
        ;;check if key is overridable
        ((when (and (subsetp (strip-cars kwd-alist) *defdata-attach-need-override-permission-keywords*)
                    (not override-ok-p)))
-        (er hard? ctx "~| ~x0 can only be overriden if :override-ok t is provided.~%" keys))
+        (er hard? ctx "~| ~x0 can only be overridden if :override-ok t is provided.~%" keys))
 
        (events (cond ((get1 :equiv kwd-alist)
                       (defdata-attach/equiv name kwd-alist verbosep wrld))
Index: acl2-8.4dfsg/books/acl2s/defdata/defdata-core.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/defdata/defdata-core.lisp
+++ acl2-8.4dfsg/books/acl2s/defdata/defdata-core.lisp
@@ -1632,7 +1632,7 @@ capturing the metadata associated with e
 | :max-rec-depth      | pos              | 30      | no/yes   | max version of above          |
 |---------------------+------------------+---------+----------+-------------------------------|
 | :satisfies          | expr(x)          |         | no       | boolean expr over x and names |
-|                     |                  |         |          | occuring in def and x ranges  |
+|                     |                  |         |          | occurring in def and x ranges  |
 |                     |                  |         |          | over values of the type       |
 |---------------------+------------------+---------+----------+-------------------------------|
 | :satisfies-fixer    | 1-arity fn       | n/i     | no       | expr(f(x)) is true            |
Index: acl2-8.4dfsg/books/acl2s/defdata/defdata-regression.lsp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/defdata/defdata-regression.lsp
+++ acl2-8.4dfsg/books/acl2s/defdata/defdata-regression.lsp
@@ -420,7 +420,7 @@
     :timeout 80)
  
 
-;mutually recursive types (doesnt work in COMPATIBLE MODE)
+;mutually recursive types (doesn't work in COMPATIBLE MODE)
 
 (defdata
   (sexpr (oneof symbol
Index: acl2-8.4dfsg/books/acl2s/defdata/defdata-util.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/defdata/defdata-util.lisp
+++ acl2-8.4dfsg/books/acl2s/defdata/defdata-util.lisp
@@ -334,7 +334,7 @@
        ((when (eq P1 P2)) t)
        (P2-neg-implicants-tau (getprop P2 'acl2::neg-implicants acl2::*tau-empty* 'acl2::current-acl2-world wrld))
        (P2-neg-pairs (acl2::access acl2::tau P2-neg-implicants-tau :neg-pairs)))
-    ;guard verif fails since, we dont know if P2-neg-implicants is a alist.
+    ;guard verif fails since, we don't know if P2-neg-implicants is a alist.
     (rassoc-eq P1 P2-neg-pairs)))
 
 (verify-termination ACL2::UPPER-BOUND-<)
@@ -362,7 +362,7 @@
        ((when (eq P1 P2)) nil)
        (P1-pos-implicants-tau (getprop P1 'acl2::pos-implicants acl2::*tau-empty* 'acl2::current-acl2-world wrld))
        (P1-neg-pairs (acl2::access acl2::tau P1-pos-implicants-tau :neg-pairs)))
-    ;guard verif fails since, we dont know if P2-pos-implicants is a alist.
+    ;guard verif fails since, we don't know if P2-pos-implicants is a alist.
     (rassoc-eq P2 P1-neg-pairs)))
 
 ;----------above is copied from utilities.lisp -----------------------
@@ -388,7 +388,7 @@
       (let ((typename (acl2::subseq pred-name 0 (1- len-predname))));strip last char which is 'p'
         (acl2s::fix-intern-in-pkg-of-sym typename sym))
       NIL))) ;TODO.Beware
-      ;(er hard 'get-typesymbol-from-pred "~x0 doesnt follow our convention of predicates ending with 'p'.~%" sym))))
+      ;(er hard 'get-typesymbol-from-pred "~x0 doesn't follow our convention of predicates ending with 'p'.~%" sym))))
 
 ;;-- (make-predicate-symbol 'integer "ACL2S B") ==> ACL2S B::INTEGERP
 (defun make-predicate-symbol (sym pkg)
Index: acl2-8.4dfsg/books/acl2s/defdata/enumerators-gen.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/defdata/enumerators-gen.lisp
+++ acl2-8.4dfsg/books/acl2s/defdata/enumerators-gen.lisp
@@ -55,14 +55,14 @@ data last modified: [2017-06-25 Sun]
 (defun make-enum-I (s i   kwd-alist M C B wrld)
   "Make enumerator interpretation for core defdata exp s.
  where
- i is the name of the current indicial argument (dont confuse with an integer)
+ i is the name of the current indicial argument (don't confuse with an integer)
  kwd-alist gives some defaults.
  M is type metadata table + some basic info for the clique of types being defined.
  C is the constructor table + some basic info for new constructors.
  B is the builtin combinator table."
 
   (cond ((possible-constant-value-p s)
-         (if (quotep s) s (list 'QUOTE s))) ;its already quoted, dont quote it furthur.
+         (if (quotep s) s (list 'QUOTE s))) ;its already quoted, don't quote it furthur.
 
         ((proper-symbolp s)
          (if (assoc-eq s M) `(,(get2 s :enumerator M) ,i)  s))
@@ -232,7 +232,7 @@ data last modified: [2017-06-25 Sun]
         (cons (if (> k 1) 
                   `((MV ,(car comp-svars) (THE (UNSIGNED-BYTE 31) _SEED))
                     (GENRANDOM-SEED (1+ (NFIX ,svar)) _SEED))
-                ;; only one recursive case left, then dont partition
+                ;; only one recursive case left, then don't partition
                 `((MV ,(car comp-svars) (THE (UNSIGNED-BYTE 31) _SEED))
                   (MV ,svar _SEED)))
               (uniformly-partition-size-binding-aux `(- ,svar ,(car comp-svars))
@@ -278,7 +278,7 @@ data last modified: [2017-06-25 Sun]
  (defun make-enum/acc-I (s i kwd-alist new-names M C B wrld)
    (declare (ignorable new-names))
    "enumerator/acc interpretation for core defdata exp s.
-i is the name of the current indicial argument (dont confuse with an integer) that is used as recursion measure.
+i is the name of the current indicial argument (don't confuse with an integer) that is used as recursion measure.
 kwd-alist gives some defaults.
 new-names is self-explanatory (imp to find recursive references)
 M is type metadata table + some basic info for the clique of types being defined.
Index: acl2-8.4dfsg/books/acl2s/defdata/record.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/defdata/record.lisp
+++ acl2-8.4dfsg/books/acl2s/defdata/record.lisp
@@ -373,7 +373,7 @@ data last modified: [2014-08-06]
        (sel-name (s+ (get-dest-prefix conx-name) fname :separator "" :pkg curr-pkg)))
     `((defthm ,(curr-pkg-s+ pred  fname 'inverse-def)
         (implies (,pred x) ;earlier it was unconditional, but this leads to erroneous/unwanted dest-elim applications
-;         (syntaxp (atom x))  ;this doesnt work for nested dest-elim in one elim process
+;         (syntaxp (atom x))  ;this doesn't work for nested dest-elim in one elim process
          (equal (mget ,kname x) (,sel-name x)))
         :hints (("Goal" :in-theory (e/d () (,@disabled-runes) (,sel-name))))))))
 
@@ -550,7 +550,7 @@ data last modified: [2014-08-06]
         ((acl2::fquotep e) A.)
         (t (if (and (eq 'acl2::mget (acl2::ffn-symb e))
                     (= (len e) 3)
-                    (= 2 (len (second e)));otherwise fquotep doesnt typecheck.
+                    (= 2 (len (second e)));otherwise fquotep doesn't typecheck.
                     (acl2::fquotep (second e))
                     (keywordp (acl2::unquote (second e)))
                     (acl2::variablep (third e)))
Index: acl2-8.4dfsg/books/acl2s/defdata/sig.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/defdata/sig.lisp
+++ acl2-8.4dfsg/books/acl2s/defdata/sig.lisp
@@ -139,7 +139,7 @@ get as much automated polymorphic suppor
 
 ; sig macro for polymorphic support.
 
-; I dont think we are ever going to have more than 3 type parameters, but lets start with 12.
+; I don't think we are ever going to have more than 3 type parameters, but lets start with 12.
 (logic)
 (encapsulate
  (((Ap *) => *)
@@ -245,7 +245,7 @@ get as much automated polymorphic suppor
 ;   (pairlis$ *allowed-type-vars* *tvar-typename-alist*))
 
 
-;ACHTUNG: make sure people dont use names from defdata namespace. Note that A,Ap,... reside in defdata namespace.
+;ACHTUNG: make sure people don't use names from defdata namespace. Note that A,Ap,... reside in defdata namespace.
 (def-const *initial-tvar-M*
   (type-metadata-bases (strip-cdrs *tvar-typename-alist*) "DEFDATA"))
 
@@ -258,7 +258,7 @@ get as much automated polymorphic suppor
    (cond ((quotep texp) '())
          ((keywordp texp) (list texp))
          ((atom texp) '())
-         ((not (true-listp texp)) ;right now we dont support named texp
+         ((not (true-listp texp)) ;right now we don't support named texp
           (er hard? ctx "~| ~x0 : Named type expressions not supported.~%" texp))
          (t (collect-type-vars-texps (cdr texp) ctx))))
  (defun collect-type-vars-texps (texps ctx)
@@ -273,7 +273,7 @@ get as much automated polymorphic suppor
    (cond ((quotep texp) '())
          ((keywordp texp) '())
          ((atom texp) (if (predicate-name texp) '() (list texp)))
-         ((not (true-listp texp)) ;right now we dont support named texp
+         ((not (true-listp texp)) ;right now we don't support named texp
           (er hard? ctx "~| ~x0 : Named type expressions not supported.~%" texp))
          (t (collect-undefined-typenames-texps (cdr texp) ctx wrld))))
  (defun collect-undefined-typenames-texps (texps ctx wrld)
@@ -1065,7 +1065,7 @@ constant). In the latter return a lambda
 (defun sig-events (parsed wrld)
   (b* (((list name suffix arg-types ret-type kwd-alist) parsed)
        (cgenp (acl2::logical-namep 'acl2s::acl2s-defaults wrld))
-       ;; dont even call acl2s-defaults if cgen/top is not included. This
+       ;; don't even call acl2s-defaults if cgen/top is not included. This
        ;; allows defdata/sig to be used independently of cgen
        (local-testing-downgraded-form
         (and cgenp
Index: acl2-8.4dfsg/books/acl2s/defunc.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/defunc.lisp
+++ acl2-8.4dfsg/books/acl2s/defunc.lisp
@@ -1090,7 +1090,7 @@ Let termination-strictp, function-contra
 
 (defmacro update-xargs-decls (decls &key guard mode)
   `(acl2::update-xargs-decls-fn ,decls ,guard ,mode))
-;Note : Macro confusion, if I put ',decls or ',ic, it doesnt
+;Note : Macro confusion, if I put ',decls or ',ic, it doesn't
 ;work. Macros are not that nice, one needs to know the context in
 ;which they are called, if I call from program context where decls,
 ;guard are variable names, you should not use quotes, but if you use
Index: acl2-8.4dfsg/books/acl2s/demos/alloy-comparison.lsp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/demos/alloy-comparison.lsp
+++ acl2-8.4dfsg/books/acl2s/demos/alloy-comparison.lsp
@@ -33,7 +33,7 @@
 
 
 ;(defdata Group (cons 'G acl2s::pos)) ;bad because it gets dest-elimed. 
-;records also dont work since map lemmas do not go through
+;records also don't work since map lemmas do not go through
 
 (defdata Name (oneof Alias Group))
 (defdata Target (oneof Address Name))
Index: acl2-8.4dfsg/books/acl2s/demos/dsp-type-and-fixer-defuns.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/acl2s/demos/dsp-type-and-fixer-defuns.lisp
+++ acl2-8.4dfsg/books/acl2s/demos/dsp-type-and-fixer-defuns.lisp
@@ -370,7 +370,7 @@
     (if (shorterp p p0 g) p p0)))
 
 
-(defund shortest-path-fxr2 (a b p g) ;dont use
+(defund shortest-path-fxr2 (a b p g) ;don't use
   (b* (((mv p g) (path-from-to-fix p a b g)))
       ;lets add paths that might be shorter
       (mv (pick-shortest (find-all-simple-paths a b g) g p) g)))
Index: acl2-8.4dfsg/books/centaur/aignet/observability.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/aignet/observability.lisp
+++ acl2-8.4dfsg/books/centaur/aignet/observability.lisp
@@ -324,7 +324,7 @@
                                         (state))
   ;; Lit is a literal in aignet2.  Find a satisfying assignment for it if one
   ;; exists.  Update the copies of the PIs and regs of aignet to be new ones of
-  ;; the form: if (lit or dont-care in minimized counterex) then
+  ;; the form: if (lit or don't-care in minimized counterex) then
   ;; previous-copy-value, else satisfying-assign-value.
   ;; If unsat, map all inputs to false.  If sat check fails, don't remap the inputs.
 
Index: acl2-8.4dfsg/books/centaur/esim/occform/top.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/esim/occform/top.lisp
+++ acl2-8.4dfsg/books/centaur/esim/occform/top.lisp
@@ -761,7 +761,7 @@ module instance."
                        dangerous because whereas NCVerilog properly carries ~
                        out a comparison between 2's complement numbers, ~
                        Verilog-XL incorrectly uses an unsigned comparison.  ~
-                       We follow the Verilog-2005 standard and mimick ~
+                       We follow the Verilog-2005 standard and mimic ~
                        NCVerilog, but to ensure compatibility across Verilog ~
                        implementations, you should probably not use signed ~
                        comparisons.  Some typical causes of signedness are ~
Index: acl2-8.4dfsg/books/centaur/esim/stv/stv-compile.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/esim/stv/stv-compile.lisp
+++ acl2-8.4dfsg/books/centaur/esim/stv/stv-compile.lisp
@@ -192,12 +192,12 @@ turned into a list like @('(|opcode[0]|
                     bits wide." pnum name width))
         (or prev-val
             (raise "Phase ~x0 for ~x1: value ~~ is not legal here.  It must ~
-                    be preceeded by a constant true or false, so it cannot be ~
+                    be preceded by a constant true or false, so it cannot be ~
                     used at the start of a line." pnum name))
         (or (equal prev-val (list *4vt-sexpr*))
             (equal prev-val (list *4vf-sexpr*))
             (raise "Phase ~x0 for ~x1: value ~~ is not legal here.  It must ~
-                    be preceeded by a constant true or false, but the ~
+                    be preceded by a constant true or false, but the ~
                     previous value was ~x2." pnum name prev-val))
         (mv (if (equal prev-val (list *4vt-sexpr*))
                 (list *4vf-sexpr*)
Index: acl2-8.4dfsg/books/centaur/fgl/interp.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/fgl/interp.lisp
+++ acl2-8.4dfsg/books/centaur/fgl/interp.lisp
@@ -288,7 +288,7 @@
                       (if (or (consp err) (stringp err)) err "(no message)"))))
        ((unless (fgl-bfr-object-p val (interp-st-bfr-state)))
         (fgl-interp-error
-         :msg (fgl-msg "Syntax-bind error: ~x0 evaluted to an illformed symbolic object, saved as debug object."
+         :msg (fgl-msg "Syntax-bind error: ~x0 evaluated to an illformed symbolic object, saved as debug object."
                       (pseudo-term-quote->val untrans))
          :debug-obj val)))
     (fgl-interp-value val))
Index: acl2-8.4dfsg/books/centaur/ipasir/ipasir-interface-raw.lsp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/ipasir/ipasir-interface-raw.lsp
+++ acl2-8.4dfsg/books/centaur/ipasir/ipasir-interface-raw.lsp
@@ -371,7 +371,7 @@
 (defun ipasir-val$c (ipasir lit)
   (let* ((dimacs-lit (satlink::satlink-to-dimacs-lit lit))
          (result-lit (ipasir-raw::ipasir-val (ipasir-get-raw ipasir) dimacs-lit)))
-    (cond ((int= result-lit 0) nil) ;; dont-care
+    (cond ((int= result-lit 0) nil) ;; don't-care
           ((int= result-lit (- dimacs-lit)) 0)
           ((int= result-lit dimacs-lit) 1)
           (t (er hard? 'ipasir-val
Index: acl2-8.4dfsg/books/centaur/vl/loader/parser/insts.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/vl/loader/parser/insts.lisp
+++ acl2-8.4dfsg/books/centaur/vl/loader/parser/insts.lisp
@@ -95,7 +95,7 @@ with no ports.  And a funny consequence
 a one-port module with a blank, unless named argument lists are used.</p>
 
 <p>Cadence's handling seems like the most sensible choice, and we are going to
-mimick it.  Because this is somewhat delicate, we also include a number of unit
+mimic it.  Because this is somewhat delicate, we also include a number of unit
 tests at the bottom of this file.</p>")
 
 ; list_of_port_connections ::=
Index: acl2-8.4dfsg/books/centaur/vl/transforms/annotate/make-implicit-wires.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/vl/transforms/annotate/make-implicit-wires.lisp
+++ acl2-8.4dfsg/books/centaur/vl/transforms/annotate/make-implicit-wires.lisp
@@ -168,7 +168,7 @@ right-hand side of an @('assign') statem
 <p><b>#3</b>.  As expected, NCVerilog allows us to infer implicit nets from the
 left-hand sides of @('assign') elements.  Unfortunately, Verilog-XL complains
 about such wires, which seems to contradict the Verilog-2005 standard.  We
-choose to mimick NCVerilog and infer the implicit net.  Historically we also
+choose to mimic NCVerilog and infer the implicit net.  Historically we also
 issued warnings that other tools like Verilog-XL may not allow the construct,
 but these warnings seemed to be noise and we eventually decided that it would
 be better not to issue them.</p>
@@ -187,7 +187,7 @@ assign w = a;').</p>
 
 <p>This seems arguably incorrect: is not a procedural continuous assignment
 also a continuous assignment, whose LHS should therefore be able to contain
-implicit wires?  But we mimick these tools and disallow the implicit net, even
+implicit wires?  But we mimic these tools and disallow the implicit net, even
 thought the spec might perhaps be interpreted as allowing it.</p>
 
 <p>A nice consequence of disallowing implicit wires here is that it allows us
@@ -258,7 +258,7 @@ buf(c, c2);
 wire c;
 })
 
-<p>We try to be permissive and mimick NCVerilog, but add a (non-fatal) warning
+<p>We try to be permissive and mimic NCVerilog, but add a (non-fatal) warning
 if a wire's net declaration comes before its port declaration to explain that
 some other tools do not permit this.</p>
 
Index: acl2-8.4dfsg/books/centaur/vl2014/loader/parser/insts.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/vl2014/loader/parser/insts.lisp
+++ acl2-8.4dfsg/books/centaur/vl2014/loader/parser/insts.lisp
@@ -95,7 +95,7 @@ with no ports.  And a funny consequence
 a one-port module with a blank, unless named argument lists are used.</p>
 
 <p>Cadence's handling seems like the most sensible choice, and we are going to
-mimick it.  Because this is somewhat delicate, we also include a number of unit
+mimic it.  Because this is somewhat delicate, we also include a number of unit
 tests at the bottom of this file.</p>")
 
 ; list_of_port_connections ::=
Index: acl2-8.4dfsg/books/centaur/vl2014/transforms/always/latchcode.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/vl2014/transforms/always/latchcode.lisp
+++ acl2-8.4dfsg/books/centaur/vl2014/transforms/always/latchcode.lisp
@@ -471,7 +471,7 @@ sanity checking."
        ((unless (posp width))
         (mv x cvtregs
             (dwarn :type :vl-latchcode-fail
-                   :msg "~a0: can't synthesize always block becasue the width ~
+                   :msg "~a0: can't synthesize always block because the width ~
                          of the lhs, ~a1, hasn't been computed or isn't a ~
                          positive number.  Its width is ~a2."
                    :args (list x lhs width))))
Index: acl2-8.4dfsg/books/centaur/vl2014/transforms/annotate/make-implicit-wires.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/vl2014/transforms/annotate/make-implicit-wires.lisp
+++ acl2-8.4dfsg/books/centaur/vl2014/transforms/annotate/make-implicit-wires.lisp
@@ -161,7 +161,7 @@ right-hand side of an @('assign') statem
 <p><b>#3</b>.  As expected, NCVerilog allows us to infer implicit nets from the
 left-hand sides of @('assign') elements.  Unfortunately, Verilog-XL complains
 about such wires, which seems to contradict the Verilog-2005 standard.  As a
-compromise, our approach is to mimick NCVerilog and infer the implicit net, but
+compromise, our approach is to mimic NCVerilog and infer the implicit net, but
 warn that some other tools like Verilog-XL may not allow the construct.</p>
 
 <p>A subtle case is, what if #2 and #3 overlap, i.e., an undeclared wire occurs
@@ -178,7 +178,7 @@ assign w = a;').  But this seems arguabl
 continuous assignment also a continuous assignment, whose LHS should therefore
 be able to contain implicit wires?</p>
 
-<p>We mimick these tools and disallow the implicit net, even thought the spec
+<p>We mimic these tools and disallow the implicit net, even thought the spec
 might perhaps be interpreted as allowing it, because it allows us to avoid
 certain scoping issues.  In particular, suppose we see a procedural continuous
 assignment statement, @('assign w = ...'), where @('w') is not declared.  If
@@ -247,7 +247,7 @@ buf(c, c2);
 wire c;
 })
 
-<p>We try to be permissive and mimick NCVerilog, but add a (non-fatal) warning
+<p>We try to be permissive and mimic NCVerilog, but add a (non-fatal) warning
 if a wire's net declaration comes before its port declaration to explain that
 some other tools do not permit this.</p>
 
Index: acl2-8.4dfsg/books/centaur/vl2014/transforms/expr-size.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/centaur/vl2014/transforms/expr-size.lisp
+++ acl2-8.4dfsg/books/centaur/vl2014/transforms/expr-size.lisp
@@ -356,7 +356,7 @@ instead, producing a final result of 1.
 
 <p>The implementations seem to agree that the types of these operands should
 not matter.  Since we think the spec is vague and does not say one way or
-another, we mimick their behavior.  However, we also issue warnings when we
+another, we mimic their behavior.  However, we also issue warnings when we
 encounter one of these operands with an unsigned self-determined operand and
 signed nonself-determined operands, since this is a case that other
 implementations might be confused about.  See @(see vl-expr-typedecide-aux) for
@@ -1593,7 +1593,7 @@ a signed value since Verilog-XL doesn't
                 follows the Verilog-2005 standard (5.1.12) and treats the ~
                 right-hand side as unsigned, Verilog-XL incorrectly treats ~
                 negative right-shifts as left-shifts.  We follow the ~
-                Verilog-2005 standard and mimick NCVerilog, but to ensure ~
+                Verilog-2005 standard and mimic NCVerilog, but to ensure ~
                 compatibility, you should probably rewrite this expression to ~
                 ensure that the right-hand side is unsigned.  For example, ~
                 you might wrap the right-hand side in a concatnation, e.g., ~
@@ -2354,7 +2354,7 @@ minor warning for assignments where the
                               (eq (vl-nonatom->op b) :vl-concat)))
                  (mv nil
                      (fatal :type :vl-programming-error
-                            :msg "~a0: multple concatenation's second argument ~
+                            :msg "~a0: multiple concatenation's second argument ~
                                isn't a concatenation?? ~a1"
                             :args (list ctx x))
                      x))
Index: acl2-8.4dfsg/books/coi/bags/bind-free-rules.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/coi/bags/bind-free-rules.lisp
+++ acl2-8.4dfsg/books/coi/bags/bind-free-rules.lisp
@@ -57,7 +57,7 @@
 
 ;we look through HYPS for a term of the form (subbagp x y)
 ;if such an item is found, we return (mv t y).  else, we return (mv nil nil)
-;what if multple such things might be found?
+;what if multiple such things might be found?
 (defun find-exact-subbagp-instance (x hyps)
   (declare (type t hyps)
            )
@@ -139,7 +139,7 @@
 ;what does this do?
 ;we look through HYPS for a term of the form (subbagp x BLAH)
 ;if such an item is found, we test whether BLAH equals y.  else, we return nil
-;what if multple such things might be found?
+;what if multiple such things might be found?
 (defun subbagp-instance (x y hyps)
   (declare (type t x y hyps))
   (met ((hit res) (find-exact-subbagp-instance x hyps))
@@ -1289,7 +1289,7 @@
       nil)))
 
 
-;local becasue the :meta rules that come later will be able to get this
+;local because the :meta rules that come later will be able to get this
 (local
  (defthm not-unique-doublet
    (not (bag::unique (list x x)))))
Index: acl2-8.4dfsg/books/coi/defstructure/defstructure.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/coi/defstructure/defstructure.lisp
+++ acl2-8.4dfsg/books/coi/defstructure/defstructure.lisp
@@ -3198,7 +3198,7 @@ For debugging.
         (CAPSULE
          "
 ;  We define the structure and all of the events (except the assertion theory)
-;  in the absoulte minimum theory possible in order to expedite the proofs
+;  in the absolute minimum theory possible in order to expedite the proofs
 ;  and guarantee that they will always work.  If you ever find a case where
 ;  one of these proof fails (except due to user syntax errors) please
 ;  report it as a bug in DEFSTRUCTURE.
Index: acl2-8.4dfsg/books/coi/super-ihs/logical-logops.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/coi/super-ihs/logical-logops.lisp
+++ acl2-8.4dfsg/books/coi/super-ihs/logical-logops.lisp
@@ -798,7 +798,7 @@
 ;;   :hints (("goal" :in-theory (enable logxor logeqv logorc1))))
 
 ;; ;; Perhaps we should just open logxor.  But for now, we'll open it
-;; ;; only when used in conjuction with logical bit-operations.
+;; ;; only when used in conjunction with logical bit-operations.
 ;; (defthm logxor-open
 ;;   (implies (and (integerp x)
 ;;                 (integerp y))
Index: acl2-8.4dfsg/books/data-structures/structures.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/data-structures/structures.lisp
+++ acl2-8.4dfsg/books/data-structures/structures.lisp
@@ -2720,7 +2720,7 @@ For debugging.
 	(CAPSULE
 	 "
 ;  We define the structure and all of the events (except the assertion theory)
-;  in the absoulte minimum theory possible in order to expedite the proofs
+;  in the absolute minimum theory possible in order to expedite the proofs
 ;  and guarantee that they will always work.  If you ever find a case where
 ;  one of these proof fails (except due to user syntax errors) please
 ;  report it as a bug in DEFSTRUCTURE.
Index: acl2-8.4dfsg/books/defexec/other-apps/qsort/intermediate-program.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/defexec/other-apps/qsort/intermediate-program.lisp
+++ acl2-8.4dfsg/books/defexec/other-apps/qsort/intermediate-program.lisp
@@ -64,7 +64,7 @@ should follow easily.
 
 ;; We need to prove something about the lower-part and upper-part functions we
 ;; defined simply to get ourselves to admit the definition of qsort we have in
-;; mind. This sucks big time, but I dont see a more elegant way of proving the
+;; mind. This sucks big time, but I don't see a more elegant way of proving the
 ;; theorems. It is a clean blow to my normal structured proof techniques where I
 ;; define functions separately and prove facts about them later, --- clearly an
 ;; indication that qsort even functionally is not an easy function to reason
Index: acl2-8.4dfsg/books/hints/huet-lang-algorithm.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/hints/huet-lang-algorithm.lisp
+++ acl2-8.4dfsg/books/hints/huet-lang-algorithm.lisp
@@ -2438,7 +2438,7 @@
 
 (defun lambda-free-vars (alist) ; from ACL2 Version_3.0
 
-; We compute the free variables occuring the the lambda expressions in
+; We compute the free variables occurring the the lambda expressions in
 ; the range of the translated functional substitution alist.
 
   (cond ((null alist) nil)
Index: acl2-8.4dfsg/books/interface/emacs/inf-acl2.el
===================================================================
--- acl2-8.4dfsg.orig/books/interface/emacs/inf-acl2.el
+++ acl2-8.4dfsg/books/interface/emacs/inf-acl2.el
@@ -325,7 +325,7 @@ of `inferior-acl2-program').  Runs the h
 	 (filename (temporary-filename (process-id process)))
 	 (in-package-form-written nil))
     
-    ;; Write any IN-PACKAGE form (occuring immediately after a linefeed) 
+    ;; Write any IN-PACKAGE form (occurring immediately after a linefeed)
     ;; preceeding this region. Bevier. 11/5/90
     (save-excursion
       (goto-char begin)
Index: acl2-8.4dfsg/books/kestrel/java/atj/types.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/kestrel/java/atj/types.lisp
+++ acl2-8.4dfsg/books/kestrel/java/atj/types.lisp
@@ -1442,7 +1442,7 @@
         ((booleanp val) (atj-type-acl2 (atj-atype-boolean)))
         ((symbolp val) (atj-type-acl2 (atj-atype-symbol)))
         ((consp val) (atj-type-acl2 (atj-atype-cons)))
-        (t (prog2$ (raise "Internal errror: ~
+        (t (prog2$ (raise "Internal error: ~
                            the value ~x0 is not a number, ~
                            a character, a string, a symbol, or a CONS."
                           val)
Index: acl2-8.4dfsg/books/misc/disassemble.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/misc/disassemble.lisp
+++ acl2-8.4dfsg/books/misc/disassemble.lisp
@@ -96,7 +96,7 @@
                     ((and stobj-function
                           (cltl-def-from-name1 sym stobj-function t wrld))
                      (progn (observation ctx
-                                         "Not dissassembling ~x0, because it ~
+                                         "Not disassembling ~x0, because it ~
                                           is a macro in raw Lisp: the ~
                                           defstobj event for ~x1 specified ~
                                           :inline t.~|~%"
Index: acl2-8.4dfsg/books/misc/expander.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/misc/expander.lisp
+++ acl2-8.4dfsg/books/misc/expander.lisp
@@ -1484,7 +1484,7 @@ as the examples shown above.</p>
 (defun simp-hyps (hyps state hints inhibit-output print-flg simp-flg)
   "Given a list of terms (hyps), return a list that is a subset
   of hyps. The conjunction of hyps should be equal to the
-  conjuction of the returned list. If simp-flg is :t, all we do
+  conjunction of the returned list. If simp-flg is :t, all we do
   is to remove elements of hyps that can be proven to simplify to
   t, assuming the rest of the elements in hyps hold. If simp-flg
   is :term-order, then we replace elements of hyps with what they
Index: acl2-8.4dfsg/books/misc/redef-pkg.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/misc/redef-pkg.lisp
+++ acl2-8.4dfsg/books/misc/redef-pkg.lisp
@@ -137,7 +137,7 @@
         (syms (if (symbolp syms) (list syms) syms)))
     (when (or (null pkg-entry0)
               (null pkg-entry1))
-      (error "Uknown pkg, ~s" pkg))
+      (error "Unknown pkg, ~s" pkg))
     (when (not (symbol-listp syms))
       (error "Not a symbol-listp: ~s" syms))
     (let ((imports0 (package-entry-imports pkg-entry0))
Index: acl2-8.4dfsg/books/nonstd/nsa/trig-approx.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/nonstd/nsa/trig-approx.lisp
+++ acl2-8.4dfsg/books/nonstd/nsa/trig-approx.lisp
@@ -64,7 +64,7 @@
 ;; part and a (non-infinitesimal) small part, based on the epsilon
 ;; precision argument.  We want to claim that both parts of the split
 ;; are limited.  For the first part, we need to show that if nterms is
-;; limited, then so is the sumlist of taylor-sincos-list upto nterms.
+;; limited, then so is the sumlist of taylor-sincos-list up to nterms.
 ;; For the second, we'll need the fact that taylor-sincos-list is an
 ;; alternating sequence "after a while".
 
Index: acl2-8.4dfsg/books/ordinals/ordinal-definitions.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/ordinals/ordinal-definitions.lisp
+++ acl2-8.4dfsg/books/ordinals/ordinal-definitions.lisp
@@ -20,14 +20,14 @@
     (dropn (1- n) (cdr a))))
 
 (defun wcmp (a b)
-  "A comparitor function for numbers"
+  "A comparator function for numbers"
   (declare (xargs :guard (and (rationalp a) (rationalp b))))
   (cond ((= a b) 'eq)
 	((< a b) 'lt)
 	(t 'gt)))
 
 (defun ocmp-aux (x y)
-  "The efficient version of the comparitor function for ordinals"
+  "The efficient version of the comparator function for ordinals"
   (declare (xargs :guard (and (o-p x) (o-p y))))
   (cond ((and (o-finp x)
 	      (o-finp y))
@@ -47,7 +47,7 @@
 	     cmp-fe)))))
 
 (defun ocmp (x y)
-  "An efficient comparitor function for ordinals"
+  "An efficient comparator function for ordinals"
   (declare (xargs :guard (and (o-p x) (o-p y))
 		  :verify-guards nil))
   (mbe :logic (cond ((o< x y) 'lt)
Index: acl2-8.4dfsg/books/parsers/earley/examples/oracle-grammar.txt
===================================================================
--- acl2-8.4dfsg.orig/books/parsers/earley/examples/oracle-grammar.txt
+++ acl2-8.4dfsg/books/parsers/earley/examples/oracle-grammar.txt
@@ -124,7 +124,7 @@
 
 <TypeList> ::= 
     <ReferenceType> 
-  | <ReferenceType> <COMMAD> <TypeList>
+  | <ReferenceType> <COMMAND> <TypeList>
 
 <TypeArgumentsOrDiamond> ::= 
     <LT> <GT> 
Index: acl2-8.4dfsg/books/projects/apply-model-2/apply.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/apply-model-2/apply.lisp
+++ acl2-8.4dfsg/books/projects/apply-model-2/apply.lisp
@@ -1203,7 +1203,7 @@
 (defun guess-ilks-alist (fn new-badge term ilk wrld alist)
 
 ; Fn is the name of a function being defined.  New-badge is either nil or a
-; proposed badge for fn and term is a term (initally the body of fn) occuring
+; proposed badge for fn and term is a term (initally the body of fn) occurring
 ; in a slot of ilk ilk.  Note: term contains no ACL2 lambda applications!  We
 ; try to determine the ilks of the free vars in term, extending alist to record
 ; what we find.  We return (mv msg alist'), where either msg is an error
Index: acl2-8.4dfsg/books/projects/apply-model/apply.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/apply-model/apply.lisp
+++ acl2-8.4dfsg/books/projects/apply-model/apply.lisp
@@ -1139,7 +1139,7 @@
 (defun guess-ilks-alist (fn new-badge term ilk wrld alist)
 
 ; Fn is the name of a function being defined.  New-badge is either nil or a
-; proposed badge for fn and term is a term (initally the body of fn) occuring
+; proposed badge for fn and term is a term (initally the body of fn) occurring
 ; in a slot of ilk ilk.  Note: term contains no lambda applications!  We try to
 ; determine the ilks of the free vars in term, extending alist to record what
 ; we find.  We return (mv msg alist'), where either msg is an error message and
Index: acl2-8.4dfsg/books/projects/cache-coherence/german-protocol/german.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/cache-coherence/german-protocol/german.lisp
+++ acl2-8.4dfsg/books/projects/cache-coherence/german-protocol/german.lisp
@@ -79,7 +79,7 @@ session.  To include the book after cert
 ; Here is the murphy code for the protocol that I had once gotten from Thomas
 ; Wahl.  I suspect that it is different from the code that Anna showed me,
 ; since see showed me properties called ctrlpropinv and datapropinv which I
-; dont see in this version.  But I think possibly the basics of the two codes
+; don't see in this version.  But I think possibly the basics of the two codes
 ; are similar in the description of the protocols.
 
 
@@ -400,7 +400,7 @@ session.  To include the book after cert
           (t st)))))
 
 ;; And finally the initial state (init).  All state variables are nil other
-;; than the clients which are all :idle.  I dont know if this latter
+;; than the clients which are all :idle.  I don't know if this latter
 ;; restriction is important or not, but I tried to model it as per the Murphy
 ;; definition.
 
@@ -488,7 +488,7 @@ session.  To include the book after cert
 ;; All right back to work.  Whenever I define something using quantification I
 ;; disable the definition and all associated lemmas that were introduced,
 ;; because I want to have control on how they are used in a proof process.  For
-;; example I dont want to see a "witness" until I am ready and understand what
+;; example I don't want to see a "witness" until I am ready and understand what
 ;; the witness means in a context.  So I deal with quantifiers principally via
 ;; :use hints.
 
@@ -1099,7 +1099,7 @@ session.  To include the book after cert
 ;; if the client is not changed.  This is in fact an easier property than the
 ;; one we proved before, but we need to prove it anyways.  Maybe I could have
 ;; generalized the property above a little bit and saved myself this lemma.
-;; But I dont bother since I am lazy.
+;; But I don't bother since I am lazy.
 
 (local
  (defthm ch2-client-exclusive-after-arbitrary
@@ -1881,7 +1881,7 @@ session.  To include the book after cert
             (equal (g i hsl) t))))
 
 ;; I should look into this proof carefully later if time.  The proof works but
-;; it does double induction, and I dont like double induction.  So there might
+;; it does double induction, and I don't like double induction.  So there might
 ;; be something I can do about it.  Need to look at subgoal *1/2.
 
 (local
@@ -2262,7 +2262,7 @@ session.  To include the book after cert
                  (equal (action stimulus) :client-receives-shared))
             (invalidate-ack-clients-invariant (german-step st stimulus)))))
 
-;; Now the last case, which is client-receives-exclusive.  I dont like to think
+;; Now the last case, which is client-receives-exclusive.  I don't like to think
 ;; about this one right now --- I am tired after doing the rest of the cases.
 ;; But I am pretty sure that if there is an invalidate-ack somewhere then there
 ;; cannot be a :grant-exclusive.  So for now I posit that as a predicate and go
@@ -2489,7 +2489,7 @@ session.  To include the book after cert
 ;; quantification we would have used the cases hint and applied the
 ;; instantiation of the necc lemma on the first with the witness of the second.
 ;; But here we prove it using induction.  The cases hint we gave can be easily
-;; understood by looking at the failed proof.  But I dont go into that here.
+;; understood by looking at the failed proof.  But I don't go into that here.
 
 (local
  (defthm hsl-ch2-after-setting-hsl
@@ -2555,7 +2555,7 @@ session.  To include the book after cert
 
 ;; How does this work? I first know that if hil-hsl holds then every index in
 ;; hil must have hsl t.  When home-sends-invalidate, the hil is t and hence hsl
-;; is t.  Since hsl is T anyways I dont have to think about what is added to
+;; is t.  Since hsl is T anyways I don't have to think about what is added to
 ;; ch2.
 
 (local
@@ -3976,7 +3976,7 @@ session.  To include the book after cert
             (hil-invalidate-invariant (german-step st stimulus)))))
 
 ;; Now it must also be ok when home receives it.  Now it sets ch3 to something
-;; other than invalidate-ack so I dont have to prove anything.
+;; other than invalidate-ack so I don't have to prove anything.
 
 (local
  (defthm hil-invalidate-ack-set
@@ -4052,7 +4052,7 @@ session.  To include the book after cert
 
 (local
  (defun hil-invalidate-witness (hil ch3 keys)
-   (if (endp keys) nil ;; dont care
+   (if (endp keys) nil ;; don't care
      (if (and (equal (g (first keys) ch3) :invalidate-ack)
               (g (first keys) hil))
          (first keys)
@@ -4208,7 +4208,7 @@ session.  To include the book after cert
 
 (local
  (defun hil-invalidate-rwitness (hil ch2 keys)
-   (if (endp keys) nil ;; dont care
+   (if (endp keys) nil ;; don't care
      (if (and (equal (g (first keys) ch2) :invalidate)
               (g (first keys) hil))
          (first keys)
@@ -4468,7 +4468,7 @@ session.  To include the book after cert
 
 ;; Now I handle the hcm-invalidate-ack-invariant.  This says that if (not heg)
 ;; and hcm is equal to :req-shared-access then there is no invalidate-ack.
-;; This should be pretty trivial since under these conditions we dont send an
+;; This should be pretty trivial since under these conditions we don't send an
 ;; invalidate at all.
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -5027,7 +5027,7 @@ session.  To include the book after cert
                                  :home-grants-exclusive))))
             (hsl-client-ch2-invariant (german-step st stimulus)))))
 
-;; Well now if home sends invalidate then I dont have to prove anything.  But
+;; Well now if home sends invalidate then I don't have to prove anything.  But
 ;; first let me prove that it is ok.
 
 (local
@@ -5063,7 +5063,7 @@ session.  To include the book after cert
                  (equal (action stimulus) :home-receives-invalidate))
             (hsl-client-ch2-invariant (german-step st stimulus)))))
 
-;; When sharer invalidates cache it sets ch3 to invalidate-ack and hence I dont
+;; When sharer invalidates cache it sets ch3 to invalidate-ack and hence I don't
 ;; have to prove anything.
 
 (local
Index: acl2-8.4dfsg/books/projects/codewalker/codewalker.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/codewalker/codewalker.lisp
+++ acl2-8.4dfsg/books/projects/codewalker/codewalker.lisp
@@ -4207,7 +4207,7 @@ to be quoted evgs, but pc = ~x0; splitte
                  "The value supplied for :VAR-NAMES is ill-formed.  Each ~
                   element should be of the form (pattern fmt-string term_0 ~
                   ... term_n).  But your term_i involve variable~#0~[~/s~] ~
-                  ~&0 not occuring in the pattern, ~x1, that triggers ~
+                  ~&0 not occurring in the pattern, ~x1, that triggers ~
                   fmt-string ~x2."
                  (set-difference-eq (all-vars1-lst term-lst nil)
                                     (remove1-eq svar (all-vars pattern)))
Index: acl2-8.4dfsg/books/projects/codewalker/simplify-under-hyps.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/codewalker/simplify-under-hyps.lisp
+++ acl2-8.4dfsg/books/projects/codewalker/simplify-under-hyps.lisp
@@ -239,7 +239,7 @@
 
 (defun collect-if-tracker-triples (clauses)
 
-; We collect the ITTs corresponding to those IF-TRACKER literals occuring last
+; We collect the ITTs corresponding to those IF-TRACKER literals occurring last
 ; in each clause of clauses.  We cause an error if some clause does not
 ; conclude with a IF-TRACKER literal.  Such clauses shouldn't exist!
 
Index: acl2-8.4dfsg/books/projects/codewalker/terminatricks.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/codewalker/terminatricks.lisp
+++ acl2-8.4dfsg/books/projects/codewalker/terminatricks.lisp
@@ -1304,7 +1304,7 @@
 
 ; Measure is the measure term being suggested.
 
-; Vars is the list of variable symbols occuring freely in measure.
+; Vars is the list of variable symbols occurring freely in measure.
 
 ; Tests is the list of tests suggesting this measure.  Note: It is possible for
 ; a distilled test to mention a variable not occurring in the measure, as would
@@ -3511,7 +3511,7 @@
 (defun parse-base-from-fnname (fn)
 
 ; We look for a number as printed in one of the bases 2, 8, 10, or 16
-; (preceeded by B, nothing, O, or X) and delimited on the left by hyphen and on
+; (preceded by B, nothing, O, or X) and delimited on the left by hyphen and on
 ; the right by either hyphen or the end of the name.  If we find one, we return
 ; the base (2, 8, 10, or 16) of the leftmost one.  Otherwise, nil.  For
 ; example, SEM-XAB12F and CLK-B01010-CORRECT produce 16 and 2 respectively,
Index: acl2-8.4dfsg/books/projects/concurrent-programs/bakery/final-theorems.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/concurrent-programs/bakery/final-theorems.lisp
+++ acl2-8.4dfsg/books/projects/concurrent-programs/bakery/final-theorems.lisp
@@ -35,7 +35,7 @@ will be the facts that we claim about th
   :rule-classes nil)
 
 
-;; A step of the implementation is a step of the specification upto
+;; A step of the implementation is a step of the specification up to
 ;; stuttering:
 
 (DEFTHM >>-stutter1-b-c
Index: acl2-8.4dfsg/books/projects/concurrent-programs/bakery/initial-state.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/concurrent-programs/bakery/initial-state.lisp
+++ acl2-8.4dfsg/books/projects/concurrent-programs/bakery/initial-state.lisp
@@ -8,7 +8,7 @@
 In this book, we define an encapsulated function, initial-state, and show that
 the invariant inv holds for that state. Thus our stuttering bisimulation will
 claim that there exists an initial state such that if you run the program from
-that state then the execution of the program matches the spec upto finite
+that state then the execution of the program matches the spec up to finite
 stuttering.
 
 |#
Index: acl2-8.4dfsg/books/projects/concurrent-programs/bakery/programs.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/concurrent-programs/bakery/programs.lisp
+++ acl2-8.4dfsg/books/projects/concurrent-programs/bakery/programs.lisp
@@ -6,7 +6,7 @@
   ~~~~~~~~~~~~~
 
 In this book, we define a "simplified" bakery implementation and an abstract
-spec. We will show that the implementation "matches" the spec upto finite
+spec. We will show that the implementation "matches" the spec up to finite
 stuttering. Notice that our implementation is "simpler than the exact bakery
 defined by Lamport. Lamport claims that bakery does not depend on any
 lower-level mutual exclusion. We however, still use a lower-level mutual
@@ -105,9 +105,9 @@ instruction often provided as atomic on
 
 
 ;; Comments on max: We could have chosen an implementation that resets
-;;                  max. However, I dont see how to do it and preserve
+;;                  max. However, I don't see how to do it and preserve
 ;;                  correctness, while still preserving boundedness of
-;;                  max. So I dont go that route and unduly complicate
+;;                  max. So I don't go that route and unduly complicate
 ;;                  matters. In short, I believe (without proof) that
 ;;                  unboundedness of max is a negative feature of the
 ;;                  bakery algorithm in general, and has nothing to do
Index: acl2-8.4dfsg/books/projects/filesystems/test/stat-replicant.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/filesystems/test/stat-replicant.lisp
+++ acl2-8.4dfsg/books/projects/filesystems/test/stat-replicant.lisp
@@ -75,7 +75,7 @@
        (newline channel state)
        (princ$ "    ID: " channel state)
        ;; Choosing to print 0 as a constant here - rather than take it from the
-       ;; stat - becasue the coreutils version has some complicated rules for
+       ;; stat - because the coreutils version has some complicated rules for
        ;; printing the value in the f_fsid field
        (princ$ (fixed-width-print 0 8) channel state)
        (princ$ " Namelen: " channel state)
Index: acl2-8.4dfsg/books/projects/milawa/ACL2/bootstrap/proof-sizes.lsp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/milawa/ACL2/bootstrap/proof-sizes.lsp
+++ acl2-8.4dfsg/books/projects/milawa/ACL2/bootstrap/proof-sizes.lsp
@@ -109,7 +109,7 @@
        (local (ACL2::table tactic-harness 'skeleton (tactic.initial-skeleton (list ',(rw.rule-clause rule)))))
 
 ; This is basically like %autoprove.  We get the hints that were given when the
-; proof was submitted, preceeded by any extra hints that we might want to give
+; proof was submitted, preceded by any extra hints that we might want to give
 ; to fix up theories, etc., then finally give %auto.
 
        (ACL2::value-triple (ACL2::cw "[%Reprove]> Trying to replay the proof.~%"))
Index: acl2-8.4dfsg/books/projects/milawa/ACL2/rewrite/evaluator-bldr.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/milawa/ACL2/rewrite/evaluator-bldr.lisp
+++ acl2-8.4dfsg/books/projects/milawa/ACL2/rewrite/evaluator-bldr.lisp
@@ -136,7 +136,7 @@
                           (and arg1-proof
                                (let ((arg1-prime (logic.=rhs (logic.conclusion arg1-proof))))
                                  (if (logic.unquote arg1-prime)
-                                     ;; Arg1 evaluted to a non-nil constant.
+                                     ;; Arg1 evaluated to a non-nil constant.
                                      (let ((arg2-proof (flag-generic-evaluator-bldr 'term (second args) defs n)))
                                        (and arg2-proof
                                             (eval-lemma-1-bldr arg1-proof arg2-proof (third args))))
@@ -218,7 +218,7 @@
               (cons t (cons first (cdr rest)))
             ;; FAILURE: couldn't evaluate some argument.
             nil))
-      ;; SUCCESS: the empty list can always be evaluted.
+      ;; SUCCESS: the empty list can always be evaluated.
       (cons t nil))))
 
 (definlined generic-evaluator-bldr (x defs n)
@@ -260,7 +260,7 @@
                              (and arg1-proof
                                   (let ((arg1-prime (logic.=rhs (logic.conclusion arg1-proof))))
                                     (if (logic.unquote arg1-prime)
-                                        ;; Arg1 evaluted to a non-nil constant.
+                                        ;; Arg1 evaluated to a non-nil constant.
                                         (let ((arg2-proof (generic-evaluator-bldr (second args) defs n)))
                                           (and arg2-proof
                                                (eval-lemma-1-bldr arg1-proof arg2-proof (third args))))
@@ -353,7 +353,7 @@
                    (cons t (cons first (cdr rest)))
                  ;; FAILURE: couldn't evaluate some argument.
                  nil))
-           ;; SUCCESS: the empty list can always be evaluted.
+           ;; SUCCESS: the empty list can always be evaluated.
            (cons t nil)))
   :rule-classes :definition
   :hints(("Goal"
Index: acl2-8.4dfsg/books/projects/milawa/ACL2/rewrite/evaluator.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/milawa/ACL2/rewrite/evaluator.lisp
+++ acl2-8.4dfsg/books/projects/milawa/ACL2/rewrite/evaluator.lisp
@@ -140,7 +140,7 @@
               (cons t (cons first (cdr rest)))
             ;; FAILURE: couldn't evaluate some argument.
             nil))
-      ;; SUCCESS: the empty list can always be evaluted.
+      ;; SUCCESS: the empty list can always be evaluated.
       (cons t nil))))
 
 (defund generic-evaluator (x defs n)
@@ -231,7 +231,7 @@
                    (cons t (cons first (cdr rest)))
                  ;; FAILURE: couldn't evaluate some argument.
                  nil))
-           ;; SUCCESS: the empty list can always be evaluted.
+           ;; SUCCESS: the empty list can always be evaluated.
            (cons t nil)))
   :rule-classes :definition
   :hints(("Goal" :in-theory (enable generic-evaluator
Index: acl2-8.4dfsg/books/projects/milawa/ACL2/rewrite/syntax-evaluator.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/milawa/ACL2/rewrite/syntax-evaluator.lisp
+++ acl2-8.4dfsg/books/projects/milawa/ACL2/rewrite/syntax-evaluator.lisp
@@ -287,7 +287,7 @@
               (cons t (cons first (cdr rest)))
             ;; FAILURE: couldn't evaluate some argument.
             nil))
-      ;; SUCCESS: the empty list can always be evaluted.
+      ;; SUCCESS: the empty list can always be evaluated.
       (cons t nil))))
 
 (defund rewrite.syntaxp-evaluator (x defs n)
@@ -378,7 +378,7 @@
                    (cons t (cons first (cdr rest)))
                  ;; FAILURE: couldn't evaluate some argument.
                  nil))
-           ;; SUCCESS: the empty list can always be evaluted.
+           ;; SUCCESS: the empty list can always be evaluated.
            (cons t nil)))
   :rule-classes :definition
   :hints(("Goal" :in-theory (enable rewrite.syntaxp-evaluator
Index: acl2-8.4dfsg/books/projects/milawa/ACL2/tactics/elim.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/milawa/ACL2/tactics/elim.lisp
+++ acl2-8.4dfsg/books/projects/milawa/ACL2/tactics/elim.lisp
@@ -207,7 +207,7 @@
 ;; implement a two-phase approach.  First we collect up all the variables which
 ;; have been car'd or cdr'd somewhere in the goal.  If there are any such
 ;; variables, we take the maximally-car/cdr'd variable and eliminate it.
-;; Otherwise, we try to choose the first occuring (consp v) hypothesis.
+;; Otherwise, we try to choose the first occurring (consp v) hypothesis.
 ;; Otherwise, we fail.
 
 (defund elim.flag-collect-destructed-variables (flag x acc)
Index: acl2-8.4dfsg/books/projects/paco/induct.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/paco/induct.lisp
+++ acl2-8.4dfsg/books/projects/paco/induct.lisp
@@ -1141,7 +1141,7 @@
 
 (defun induct-vars1 (lst wrld)
 
-; Lst is a list of terms.  We collect every variable symbol occuring in a
+; Lst is a list of terms.  We collect every variable symbol occurring in a
 ; controller slot of any term in lst.
 
   (cond ((endp lst) nil)
Index: acl2-8.4dfsg/books/projects/rac/lisp/translate.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/rac/lisp/translate.lisp
+++ acl2-8.4dfsg/books/projects/rac/lisp/translate.lisp
@@ -135,7 +135,7 @@ are more than one).  The test of the IF
 
 )
 
-;; The following functions are used in conjuction with the built-in subst-var,
+;; The following functions are used in conjunction with the built-in subst-var,
 ;; which substitutes a term for each occurrence of a variable in an expression.
 
 ;; var-count counts the number of occurrences of a variable in an expression:
Index: acl2-8.4dfsg/books/projects/rp-rewriter/extract-formula.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/rp-rewriter/extract-formula.lisp
+++ acl2-8.4dfsg/books/projects/rp-rewriter/extract-formula.lisp
@@ -522,7 +522,7 @@
                      (& (list rule-name))))) ;;unknown format. assign to rule-name so
            ;; that next test fails.  if rule-name exist on the rhs, then it is
            ;; a recursive function. We do not want to have that definition rule
-           ;; in the rewriter becasue it would be opened up nonstop.
+           ;; in the rewriter because it would be opened up nonstop.
            (if (rp-termp rhs);;for guard
                (not (include-fnc rhs rule-name))
              nil))))
Index: acl2-8.4dfsg/books/projects/rp-rewriter/lib/mult/meta/pp-flatten-meta.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/rp-rewriter/lib/mult/meta/pp-flatten-meta.lisp
+++ acl2-8.4dfsg/books/projects/rp-rewriter/lib/mult/meta/pp-flatten-meta.lisp
@@ -561,7 +561,7 @@
             (true-listp x))))
 
 (local
- ;; auxilary function used only in the local lemmas for correctness proofs.
+ ;; auxiliary function used only in the local lemmas for correctness proofs.
  (define apply-sign-to-pp-lists (lst sign)
    :returns (res pp-lists-p
                  :hyp (pp-lists-p lst))
Index: acl2-8.4dfsg/books/projects/rp-rewriter/lib/mult2/pp-flatten-meta-correct.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/rp-rewriter/lib/mult2/pp-flatten-meta-correct.lisp
+++ acl2-8.4dfsg/books/projects/rp-rewriter/lib/mult2/pp-flatten-meta-correct.lisp
@@ -865,7 +865,7 @@
                  `(binary-sum (-- ,cur) ,(pp-lists-to-term-p+ (cdr lst)))
                `(binary-sum ,cur ,(pp-lists-to-term-p+ (cdr lst))))))))
 
-  ;; auxilary function used only in the local lemmas for correctness proofs.
+  ;; auxiliary function used only in the local lemmas for correctness proofs.
   (local
    (define apply-sign-to-pp-lists (lst sign)
      :returns (res pp-lists-p
Index: acl2-8.4dfsg/books/projects/rp-rewriter/lib/mult2/pp-flatten-meta-fncs.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/rp-rewriter/lib/mult2/pp-flatten-meta-fncs.lisp
+++ acl2-8.4dfsg/books/projects/rp-rewriter/lib/mult2/pp-flatten-meta-fncs.lisp
@@ -592,7 +592,7 @@
             (true-listp x))))
 
 (local
- ;; auxilary function used only in the local lemmas for correctness proofs.
+ ;; auxiliary function used only in the local lemmas for correctness proofs.
  (define apply-sign-to-pp-lists (lst sign)
    :returns (res pp-lists-p
                  :hyp (pp-lists-p lst))
Index: acl2-8.4dfsg/books/projects/rp-rewriter/rp-rewriter.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/rp-rewriter/rp-rewriter.lisp
+++ acl2-8.4dfsg/books/projects/rp-rewriter/rp-rewriter.lisp
@@ -756,7 +756,7 @@ returns (mv rule rules-rest bindings rp-
       (('fmt-to-comment-window ('quote &) ('quote &)
                                ('quote &) ('quote &) ('quote &))
        ;; if all arguments are quoted, then executable counterpart will be
-       ;; triggered anyways, so dont do anything.
+       ;; triggered anyways, so don't do anything.
        nil)
       (('fmt-to-comment-window ('quote str) ('acl2::pairlis2 ''(#\0 #\1 #\2 #\3 #\4
                                                                 #\5 #\6 #\7 #\8 #\9)
Index: acl2-8.4dfsg/books/projects/symbolic/generic/defsimulate.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/symbolic/generic/defsimulate.lisp
+++ acl2-8.4dfsg/books/projects/symbolic/generic/defsimulate.lisp
@@ -31,7 +31,7 @@ these functions.
 2. The function run, if provided (see :define-run keyword in the macro for
 details of what I am talking about) must be a function of two arguments and the
 first argument must be the machine state. I should have changed it to last for
-lack of ambiguity, but since I have (run s n) ingrained in my brain I dont
+lack of ambiguity, but since I have (run s n) ingrained in my brain I don't
 think I can do the change reliably.
 
 ||#
@@ -100,7 +100,7 @@ think I can do the change reliably.
                 (prog2$ (cw "You have decided to use your own run function. ~
                              Please note that we will assume that your ~
                              function is of the form <run s n> where s is the ~
-                             machine-state paramter. If this is not how you ~
+                             machine-state parameter. If this is not how you ~
                              defined it, for example if your function is <run ~
                              n s>, please either abort the macro and redefine ~
                              it this way or call our macro with :define-run? ~
@@ -143,7 +143,7 @@ think I can do the change reliably.
 
            `(defun-nx ,run (,(lastval params) n)
               ;; I add the :non-executable argument in the declare because nextt
-              ;; might otherwise have stobjs or something like that and I dont
+              ;; might otherwise have stobjs or something like that and I don't
               ;; want to deal with them.
               (if (zp n) ,(lastval params)
                 (,run (,nextt ,(lastval params)) (1- n))))))
@@ -155,7 +155,7 @@ think I can do the change reliably.
       ;; theories. This is because I cannot indiscriminately open nextt when I
       ;; am proving the rules by symbolic simulation. For machines such as M5
       ;; and M6 it is vital that nextt is disabled and opened via openers;
-      ;; otherwise I dont know how long a proof might take. I achieve this by
+      ;; otherwise I don't know how long a proof might take. I achieve this by
       ;; storing the theory at the beginning of the events as a deftheory form.
 
       `(local (deftheory oldth (current-theory :here)))
@@ -270,7 +270,7 @@ think I can do the change reliably.
 
          (local (in-theory (theory 'minimal-theory)))
 
-         ;; These are theorems that should be trivial to prove. But I dont want
+         ;; These are theorems that should be trivial to prove. But I don't want
          ;; to needlessly risk symbolic simulation on the concrete
          ;; machine. Rather I know that I have already proved the generic
          ;; theorems so I will functionally instantiate them.
@@ -375,7 +375,7 @@ think I can do the change reliably.
       ;; blow up. This is because ACL2 has inside-out rewriting and hence all
       ;; the nextt would be opened up first before the assertions are
       ;; checked. This can happen (I think) if the code involves a large body
-      ;; of sequential code as complicated as apprentice.  But right now I dont
+      ;; of sequential code as complicated as apprentice.  But right now I don't
       ;; consider efficiency issues. Also I am right now relying on the fact if
       ;; we have the theorems for the two cases (cutpoint s) and (not (cutpoint
       ;; s)) then this theorem should just go through. Since ACL2 does very
@@ -425,7 +425,7 @@ think I can do the change reliably.
       ;; The job of assertion, cutpoint and nextt is done. So I disable them.
       `(local (in-theory (theory 'minimal-theory)))
 
-      ;; The final theorem. please dont be overawed by the number of :use
+      ;; The final theorem. please don't be overawed by the number of :use
       ;; hints. These would not have been required if I were doing theorem
       ;; proving. But here now I am specifying a macro and it better be that
       ;; when I do it I leave nothing to chance (read ACL2's heuristics...:->)
@@ -558,7 +558,7 @@ think I can do the change reliably.
                 (prog2$ (cw "You have decided to use your own run function. ~
                              Please note that we will assume that your ~
                              function is of the form <run s n> where s is the ~
-                             machine-state paramter. If this is not how you ~
+                             machine-state parameter. If this is not how you ~
                              defined it, for example if your function is <run ~
                              n s>, please either abort the macro and redefine ~
                              it this way or call our macro with :define-run? ~
@@ -601,7 +601,7 @@ think I can do the change reliably.
 
            `(defun-nx ,run (,(lastval params) n)
               ;; I add the :non-executable argument in the declare because nextt
-              ;; might otherwise have stobjs or something like that and I dont
+              ;; might otherwise have stobjs or something like that and I don't
               ;; want to deal with them.
               (if (zp n) ,(lastval params)
                 (,run (,nextt ,(lastval params)) (1- n))))))
@@ -731,7 +731,7 @@ think I can do the change reliably.
 
          (local (in-theory (theory 'minimal-theory)))
 
-         ;; These are theorems that should be trivial to prove. But I dont want
+         ;; These are theorems that should be trivial to prove. But I don't want
          ;; to needlessly risk symbolic simulation on the concrete
          ;; machine. Rather I know that I have already proved the generic
          ;; theorems so I will functionally instantiate them.
@@ -839,7 +839,7 @@ think I can do the change reliably.
       ;; blow up. This is because ACL2 has inside-out rewriting and hence all
       ;; the nextt would be opened up first before the assertions are
       ;; checked. This can happen (I think) if the code involves a large body
-      ;; of sequential code as complicated as apprentice.  But right now I dont
+      ;; of sequential code as complicated as apprentice.  But right now I don't
       ;; consider efficiency issues. Also I am right now relying on the fact if
       ;; we have the theorems for the two cases (cutpoint s) and (not (cutpoint
       ;; s)) then this theorem should just go through. Since ACL2 does very
@@ -1021,7 +1021,7 @@ think I can do the change reliably.
       `(local
         (include-book "projects/symbolic/generic/total-correctness" :dir :system))
 
-      ;; The final theorem. please dont be overawed by the number of :use
+      ;; The final theorem. please don't be overawed by the number of :use
       ;; hints. These would not have been required if I were doing theorem
       ;; proving. But here now I am specifying a macro and it better be that
       ;; when I do it I leave nothing to chance (read ACL2's heuristics...:->)
@@ -1231,7 +1231,7 @@ think I can do the change reliably.
 ;; theorems done suddenly start breaking. So I have the tendency of putting
 ;; bogus encapsulates for testing purposes. Maybe I will remove these to a
 ;; "testing book" but since this book takes very little time to certify even
-;; with the encapsulates below I dont bother.
+;; with the encapsulates below I don't bother.
 
 ;; Case 1: Partial correctness. Here is the first example:
 
Index: acl2-8.4dfsg/books/projects/symbolic/generic/factorial-jvm-correct.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/symbolic/generic/factorial-jvm-correct.lisp
+++ acl2-8.4dfsg/books/projects/symbolic/generic/factorial-jvm-correct.lisp
@@ -188,7 +188,7 @@ method referred to in "Inductive Asserti
 ;; You see why I added the thms and hints. If I simply
 ;; open up step to get what I want, but that is sometimes inefficient and
 ;; causes a huge case split. Especially in the context of a model like JVM you
-;; dont want to do that. You need specialized openers which are actually pretty
+;; don't want to do that. You need specialized openers which are actually pretty
 ;; mechanical. And here I show one. This opener is just specifying to open up
 ;; the function when the pc is known. Notice that I can also provide the right
 ;; hints to the macro. Isn't this cool? Of course this is just to show that
Index: acl2-8.4dfsg/books/projects/symbolic/generic/partial-correctness.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/symbolic/generic/partial-correctness.lisp
+++ acl2-8.4dfsg/books/projects/symbolic/generic/partial-correctness.lisp
@@ -340,7 +340,7 @@ that they do not depend much on which ar
                    (run s (+ m n))))))
 
 ;; The nextt rule is an ugly hack and I am almost doing it assuming I
-;; know what I am doing. If I dont use this theorem, the definition of
+;; know what I am doing. If I don't use this theorem, the definition of
 ;; run does not expand in circumstances I want it to. The theorem
 ;; always expands expressions of the form (run <some state> l) whereas
 ;; if it is not l the theorem does not fire. My intention here is that
@@ -702,7 +702,7 @@ that they do not depend much on which ar
 ;; holds for all steps < (big-steps (steps-to-exitpoint s)). But in
 ;; order to deal with the quantifier-free aspect of ACL2, I need a few
 ;; more tricks. Notice that I am trying hard here to curb my natural
-;; tendencies and just introduce a defun-sk. I dont do it since I dont
+;; tendencies and just introduce a defun-sk. I don't do it since I don't
 ;; see that necessary.
 
 ;; The trick that I am doing is to define a function falsifier that
Index: acl2-8.4dfsg/books/projects/symbolic/generic/tiny-fib-correct.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/symbolic/generic/tiny-fib-correct.lisp
+++ acl2-8.4dfsg/books/projects/symbolic/generic/tiny-fib-correct.lisp
@@ -23,7 +23,7 @@ represented.
 (include-book "../tiny-fib/fib-def")
 (include-book "ordinals/ordinals" :dir :system)
 
-;; I dont care about guards at the moment. So do not verify guards.
+;; I don't care about guards at the moment. So do not verify guards.
 
 (set-verify-guards-eagerness 0)
 
@@ -45,7 +45,7 @@ represented.
 
 ;; Maybe I should relax the restriction here. But my initial macro requires
 ;; that each of cutpoint, assertion, precondition, postcondition, etc. must
-;; have the same arity. I dont know a way to relax this restriction because
+;; have the same arity. I don't know a way to relax this restriction because
 ;; otherwise my macro needs to look at the state and then it would not remain
 ;; an embedded-event form. Otherwise I can ask the user to provide the arity of
 ;; each function which is no clumsier than this requirement.
@@ -61,8 +61,8 @@ represented.
   (declare (xargs :stobjs tiny-state))
    (and (program-loaded tiny-state *fib-prog* *prog-start-address*)
         (tiny-statep tiny-state)
-        ;; I dont know if the predicate (signed-byte-p *word-size* n) below is
-        ;; vital. The proofs dont go thru for the loop label otherwise (I
+        ;; I don't know if the predicate (signed-byte-p *word-size* n) below is
+        ;; vital. The proofs don't go thru for the loop label otherwise (I
         ;; think). But I have little understanding of the machine so feel free
         ;; to change this.
         (signed-byte-p *word-size* n)
Index: acl2-8.4dfsg/books/projects/symbolic/generic/total-correctness.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/symbolic/generic/total-correctness.lisp
+++ acl2-8.4dfsg/books/projects/symbolic/generic/total-correctness.lisp
@@ -383,7 +383,7 @@ what the heck!!
                    (run s (+ m n))))))
 
 ;; The nextt rule is an ugly hack and I am almost doing it assuming I
-;; know what I am doing. If I dont use this theorem, the definition of
+;; know what I am doing. If I don't use this theorem, the definition of
 ;; run does not expand in circumstances I want it to. The theorem
 ;; always expands expressions of the form (run <some state> l) whereas
 ;; if it is not l the theorem does not fire. My intention here is that
@@ -711,7 +711,7 @@ what the heck!!
 ;; holds for all steps < (big-steps (steps-to-exitpoint s)). But in
 ;; order to deal with the quantifier-free aspect of ACL2, I need a few
 ;; more tricks. Notice that I am trying hard here to curb my natural
-;; tendencies and just introduce a defun-sk. I dont do it since I dont
+;; tendencies and just introduce a defun-sk. I don't do it since I don't
 ;; see that necessary.
 
 ;; The trick that I am doing is to define a function falsifier that
@@ -852,7 +852,7 @@ what the heck!!
 
 
 ;; Just a little note on this theorem. I am surprised I never needed
-;; this for partial correctness. Maybe I did but I dont remember. This
+;; this for partial correctness. Maybe I did but I don't remember. This
 ;; says that if steps is indeed a number running that many steps leads
 ;; us to a cutpoint.
 
Index: acl2-8.4dfsg/books/projects/symbolic/tiny-triangle/tiny-triangle-correct.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/symbolic/tiny-triangle/tiny-triangle-correct.lisp
+++ acl2-8.4dfsg/books/projects/symbolic/tiny-triangle/tiny-triangle-correct.lisp
@@ -37,7 +37,7 @@ Based On Sandip's tiny-fib-correct.lisp
 
 ;; Maybe I should relax the restriction here. But my initial macro requires
 ;; that each of cutpoint, assertion, precondition, postcondition, etc. must
-;; have the same arity. I dont know a way to relax this restriction because
+;; have the same arity. I don't know a way to relax this restriction because
 ;; otherwise my macro needs to look at the state and then it would not remain
 ;; an embedded-event form. Otherwise I can ask the user to provide the arity of
 ;; each function which is no clumsier than this requirement.
Index: acl2-8.4dfsg/books/projects/x86isa/machine/environment-and-syscalls-raw.lsp
===================================================================
--- acl2-8.4dfsg.orig/books/projects/x86isa/machine/environment-and-syscalls-raw.lsp
+++ acl2-8.4dfsg/books/projects/x86isa/machine/environment-and-syscalls-raw.lsp
@@ -530,7 +530,7 @@
 
 (defun get-bytelist-from-ptr (ptr index size)
   ;; This function is used to retrieve a list of unsigned bytes from
-  ;; the location pointed to by the pointer ptr upto a maximum of
+  ;; the location pointed to by the pointer ptr up to a maximum of
   ;; size, with index being the current index.
   (declare (xargs :mode :program
 		  :guard (and (natp index)
Index: acl2-8.4dfsg/books/proofstyles/invclock/c2i/c2i-total.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/proofstyles/invclock/c2i/c2i-total.lisp
+++ acl2-8.4dfsg/books/proofstyles/invclock/c2i/c2i-total.lisp
@@ -529,7 +529,7 @@ an inductive invariant proof.
                              (s p)
                              (n i)))))))
 
-;; Thus it must be that no-external holds for all the states upto the requisite
+;; Thus it must be that no-external holds for all the states up to the requisite
 ;; value.
 
 (local
Index: acl2-8.4dfsg/books/proofstyles/invclock/c2i/clock-to-inv.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/proofstyles/invclock/c2i/clock-to-inv.lisp
+++ acl2-8.4dfsg/books/proofstyles/invclock/c2i/clock-to-inv.lisp
@@ -116,7 +116,7 @@ generic theorems about clocks and invari
 
           (local (in-theory (disable ,m)))
 
-          ;; I dont need them any more.
+          ;; I don't need them any more.
           (local (in-theory (disable ,next ,pre ,post ,clock)))
 
           (defthm ,pre-has-inv
Index: acl2-8.4dfsg/books/proofstyles/invclock/i2c/i2c-partial.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/proofstyles/invclock/i2c/i2c-partial.lisp
+++ acl2-8.4dfsg/books/proofstyles/invclock/i2c/i2c-partial.lisp
@@ -130,7 +130,7 @@ state".
    (equal (run-partial (next-partial s) n)
           (next-partial (run-partial s n)))))
 
-;; Also prove that inv holds for every run upto find-external.
+;; Also prove that inv holds for every run up to find-external.
 
 (local
  (defthm inv-partial-to-external-partial
@@ -144,7 +144,7 @@ state".
                  (<= j (find-external-partial s n)))
             (inv-partial (run-partial s j)))))
 
-;; Now quantify this and say that forall-inv holds for all states upto an
+;; Now quantify this and say that forall-inv holds for all states up to an
 ;; external state.
 
 (local
@@ -205,7 +205,7 @@ state".
 ;; Now I prove that anything less than external-witness must not be
 ;; external.
 
-;; Comments: I dont like to have to always reason about this
+;; Comments: I don't like to have to always reason about this
 ;; thing. Here is what I mean. If there is a defun-sk then the witness gives me
 ;; one something that has the property that is desired in defun-sk. But it does
 ;; not give a minimal (or maximal) witness. Thus every time we do anything with
Index: acl2-8.4dfsg/books/proofstyles/invclock/i2c/inv-to-clock.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/proofstyles/invclock/i2c/inv-to-clock.lisp
+++ acl2-8.4dfsg/books/proofstyles/invclock/i2c/inv-to-clock.lisp
@@ -415,7 +415,7 @@ theorems about clocks and invariants to
 
 
 ;; Notice that to use the macro one might need to disable the bodies of the
-;; functions next, pre, post etc. So some theory creation is important. I dont
+;; functions next, pre, post etc. So some theory creation is important. I don't
 ;; do that since for all I know the body might have been stubbed out. But you
 ;; are pretty safe in a theory that keeps only the theorems specified as axioms.
 
Index: acl2-8.4dfsg/books/proofstyles/soundness/assertions-partial.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/proofstyles/soundness/assertions-partial.lisp
+++ acl2-8.4dfsg/books/proofstyles/soundness/assertions-partial.lisp
@@ -342,7 +342,7 @@ see a couple of lemmas, proving the fina
                    (run-fn s (+ m n))))))
 
 ;; The step-fn rule is an ugly hack and I am almost doing it assuming I
-;; know what I am doing. If I dont use this theorem, the definition of
+;; know what I am doing. If I don't use this theorem, the definition of
 ;; run-fn does not expand in circumstances I want it to. The theorem
 ;; always expands expressions of the form (run-fn <some state> l) whereas
 ;; if it is not l the theorem does not fire. My intention here is that
@@ -674,7 +674,7 @@ see a couple of lemmas, proving the fina
 ;; holds for all steps < (big-steps (steps-to-exitpoint s)). But in
 ;; order to deal with the quantifier-free aspect of ACL2, I need a few
 ;; more tricks. Notice that I am trying hard here to curb my natural
-;; tendencies and just introduce a defun-sk. I dont do it since I dont
+;; tendencies and just introduce a defun-sk. I don't do it since I don't
 ;; see that necessary.
 
 ;; The trick that I am doing is to define a function falsifier that
Index: acl2-8.4dfsg/books/proofstyles/soundness/assertions-total.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/proofstyles/soundness/assertions-total.lisp
+++ acl2-8.4dfsg/books/proofstyles/soundness/assertions-total.lisp
@@ -358,7 +358,7 @@ see a couple of lemmas, proving the fina
                    (run-fn s (+ m n))))))
 
 ;; The step-fn rule is an ugly hack and I am almost doing it assuming I
-;; know what I am doing. If I dont use this theorem, the definition of
+;; know what I am doing. If I don't use this theorem, the definition of
 ;; run-fn does not expand in circumstances I want it to. The theorem
 ;; always expands expressions of the form (run-fn <some state> l) whereas
 ;; if it is not l the theorem does not fire. My intention here is that
@@ -690,7 +690,7 @@ see a couple of lemmas, proving the fina
 ;; holds for all steps < (big-steps (steps-to-exitpoint s)). But in
 ;; order to deal with the quantifier-free aspect of ACL2, I need a few
 ;; more tricks. Notice that I am trying hard here to curb my natural
-;; tendencies and just introduce a defun-sk. I dont do it since I dont
+;; tendencies and just introduce a defun-sk. I don't do it since I don't
 ;; see that necessary.
 
 ;; The trick that I am doing is to define a function falsifier that
@@ -908,7 +908,7 @@ see a couple of lemmas, proving the fina
 
 
 ;; Just a little note on this theorem. I am surprised I never needed
-;; this for partial correctness. Maybe I did but I dont remember. This
+;; this for partial correctness. Maybe I did but I don't remember. This
 ;; says that if steps is indeed a number run-fnning that many steps leads
 ;; us to a cutpoint.
 
@@ -939,7 +939,7 @@ see a couple of lemmas, proving the fina
 
 
 ;; Just a little note on this theorem. I am surprised I never needed
-;; this for partial correctness. Maybe I did but I dont remember. This
+;; this for partial correctness. Maybe I did but I don't remember. This
 ;; says that if steps is indeed a number run-fnning that many steps leads
 ;; us to a cutpoint.
 
Index: acl2-8.4dfsg/books/quicklisp/bundle/software/html-template-20171227-git/docs/index.html
===================================================================
--- acl2-8.4dfsg.orig/books/quicklisp/bundle/software/html-template-20171227-git/docs/index.html
+++ acl2-8.4dfsg/books/quicklisp/bundle/software/html-template-20171227-git/docs/index.html
@@ -623,7 +623,7 @@ their values. While the template printer
 outer template structure is temporarily &quot;forgotten&quot;
 unless <a
 href="#*value-access-function*"><code>*VALUE-ACCESS-FUNCTION*</code></a>
-(note the <code><i>in-loop-p</i></code> paramter in particular) takes
+(note the <code><i>in-loop-p</i></code> parameter in particular) takes
 care of that.
 
 <pre>
@@ -771,7 +771,7 @@ type of <code><i>template</i></code>.
   <li>If <code><i>template</i></code> is a <a href="http://www.lispworks.com/documentation/HyperSpec/Body/t_string.htm"><b>string</b></a>, it is converted into a <a href="http://www.lispworks.com/reference/HyperSpec/Body/t_stg_st.htm">string stream</a> which is again fed into <code>CREATE-TEMPLATE-PRINTER</code>.
   <li>If <code><i>template</i></code> is a <a href="http://www.lispworks.com/documentation/HyperSpec/Body/t_pn.htm"><b>pathname</b></a>, it should denote an existing text file. The file is opened by <a href="http://www.lispworks.com/reference/HyperSpec/Body/m_w_open.htm"><code>WITH-OPEN-FILE</code></a> and the resulting stream is again fed into <code>CREATE-TEMPLATE-PRINTER</code>. All keyword arguments except <code><i>force</i></code> are used as keyword arguments for <code>WITH-OPEN-FILE</code>. The pathname will be <a href="http://www.lispworks.com/reference/HyperSpec/Body/f_merge_.htm">merged</a> with <a
 href="#*default-template-pathname*"><code>*DEFAULT-TEMPLATE-PATHNAME*</code></a> before it is used.
-    <p>HTML-TEMPLATE maintains a <a href="#cache"><em>cache</em></a> of previously created template printers. If the (merged) pathname can be found in this cache and the file denoted by this pathname hasn't changed since the associated cached template printer was created (which is tested by <a href="http://www.lispworks.com/reference/HyperSpec/Body/f_file_w.htm"><code>FILE-WRITE-DATE</code></a>) the cached value will be used and no new template printer will be created. This can be overriden by the keyword argument <code><i>force</i></code>, i.e. when <code><i>force</i></code> is true a new template printer will unconditionally be created (and cached unless <code><i>force</i></code> is the keyword <code>:DO-NOT-CACHE</code>). The default value for <code><i>force</i></code> is the value of <a href="#*force-default*"><code>*FORCE-DEFAULT*</code></a>.  (See also <a
+    <p>HTML-TEMPLATE maintains a <a href="#cache"><em>cache</em></a> of previously created template printers. If the (merged) pathname can be found in this cache and the file denoted by this pathname hasn't changed since the associated cached template printer was created (which is tested by <a href="http://www.lispworks.com/reference/HyperSpec/Body/f_file_w.htm"><code>FILE-WRITE-DATE</code></a>) the cached value will be used and no new template printer will be created. This can be overridden by the keyword argument <code><i>force</i></code>, i.e. when <code><i>force</i></code> is true a new template printer will unconditionally be created (and cached unless <code><i>force</i></code> is the keyword <code>:DO-NOT-CACHE</code>). The default value for <code><i>force</i></code> is the value of <a href="#*force-default*"><code>*FORCE-DEFAULT*</code></a>.  (See also <a
 href="#*no-cache-check*"><code>*NO-CACHE-CHECK*</code></a>.) Note that you may have to use <code><i>force</i></code> if you've changed one of the customization variables described <a href="#custom">below</a> and want to create a template printer based on these new settings although the template file itself hasn't changed. Also note that <code>FILE-WRITE-DATE</code> might not be able to see a difference if the newer version of a file is only fractions of a second newer than the older one.
 </ul>
 
Index: acl2-8.4dfsg/books/rtl/rel11/rel9-rtl-pkg/arithmetic/expo-proofs.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/rtl/rel11/rel9-rtl-pkg/arithmetic/expo-proofs.lisp
+++ acl2-8.4dfsg/books/rtl/rel11/rel9-rtl-pkg/arithmetic/expo-proofs.lisp
@@ -309,7 +309,7 @@
 
 (in-theory (disable EXPO-2**N)) ;why?
 
-;dont export?
+;don't export?
 ;like EXPO-2**N but better (now hypothesis-free)
 (defthm expo-expt2
   (equal (expo (expt 2 i))
Index: acl2-8.4dfsg/books/rtl/rel11/rel9-rtl-pkg/arithmetic/expo.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/rtl/rel11/rel9-rtl-pkg/arithmetic/expo.lisp
+++ acl2-8.4dfsg/books/rtl/rel11/rel9-rtl-pkg/arithmetic/expo.lisp
@@ -147,7 +147,7 @@
            (equal (expo (expt 2 n))
                   n)))
 
-;dont export?
+;don't export?
 ;like EXPO-2**N but better (now hypothesis-free)
 ;This rule, together with expt-compare allows any comparison using <, >, <=, or >= of two terms which have the
 ;form of powers of 2 to be rewritten to a claim about the exponents.  actually, we need a rule about (expo (/ <powerof2>))
Index: acl2-8.4dfsg/books/rtl/rel4/arithmetic/expo-proofs.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/rtl/rel4/arithmetic/expo-proofs.lisp
+++ acl2-8.4dfsg/books/rtl/rel4/arithmetic/expo-proofs.lisp
@@ -282,7 +282,7 @@
 
 (in-theory (disable EXPO-2**N)) ;why?
 
-;dont export?
+;don't export?
 ;like EXPO-2**N but better (now hypothesis-free)
 (defthm expo-expt2
   (equal (expo (expt 2 i))
Index: acl2-8.4dfsg/books/rtl/rel4/arithmetic/expo.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/rtl/rel4/arithmetic/expo.lisp
+++ acl2-8.4dfsg/books/rtl/rel4/arithmetic/expo.lisp
@@ -120,7 +120,7 @@
            (equal (expo (expt 2 n))
                   n)))
 
-;dont export?
+;don't export?
 ;like EXPO-2**N but better (now hypothesis-free)
 ;This rule, together with expt-compare allows any comparison using <, >, <=, or >= of two terms which have the
 ;form of powers of 2 to be rewritten to a claim about the exponents.  actually, we need a rule about (expo (/ <powerof2>))
Index: acl2-8.4dfsg/books/rtl/rel9/arithmetic/expo-proofs.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/rtl/rel9/arithmetic/expo-proofs.lisp
+++ acl2-8.4dfsg/books/rtl/rel9/arithmetic/expo-proofs.lisp
@@ -294,7 +294,7 @@
 
 (in-theory (disable EXPO-2**N)) ;why?
 
-;dont export?
+;don't export?
 ;like EXPO-2**N but better (now hypothesis-free)
 (defthm expo-expt2
   (equal (expo (expt 2 i))
Index: acl2-8.4dfsg/books/rtl/rel9/arithmetic/expo.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/rtl/rel9/arithmetic/expo.lisp
+++ acl2-8.4dfsg/books/rtl/rel9/arithmetic/expo.lisp
@@ -132,7 +132,7 @@
            (equal (expo (expt 2 n))
                   n)))
 
-;dont export?
+;don't export?
 ;like EXPO-2**N but better (now hypothesis-free)
 ;This rule, together with expt-compare allows any comparison using <, >, <=, or >= of two terms which have the
 ;form of powers of 2 to be rewritten to a claim about the exponents.  actually, we need a rule about (expo (/ <powerof2>))
Index: acl2-8.4dfsg/books/system/cantor-pairing-bijective.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/system/cantor-pairing-bijective.lisp
+++ acl2-8.4dfsg/books/system/cantor-pairing-bijective.lisp
@@ -11,7 +11,7 @@
 
 (local (include-book "arithmetic-5/top" :dir :system))
 
-; The cantor pairing function uses n*(n+1)/2, which is the sum of numbers upto n.
+; The cantor pairing function uses n*(n+1)/2, which is the sum of numbers up to n.
 ; Rather than working with *,/ arith ops, I prefer +, 1- and recursion.
 (defun sum (n)
   "find sum of first n numbers"
Index: acl2-8.4dfsg/books/workshops/2000/ruiz/multiset/multiset.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2000/ruiz/multiset/multiset.lisp
+++ acl2-8.4dfsg/books/workshops/2000/ruiz/multiset/multiset.lisp
@@ -472,7 +472,7 @@
 ;;; 2.3 An interesting congruence.
 ;;; ----------------------------------------------------------------------------
 
-;;; These rules are used in conjuction with rewite rules that simplify
+;;; These rules are used in conjunction with rewite rules that simplify
 ;;; multiset differences (w.r.t equal or equal-set)
 
 ;;; REMARK: These two congruence rules will be instantiated by every
Index: acl2-8.4dfsg/books/workshops/2003/ray-matthews-tuttle/support/bisimilarity.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2003/ray-matthews-tuttle/support/bisimilarity.lisp
+++ acl2-8.4dfsg/books/workshops/2003/ray-matthews-tuttle/support/bisimilarity.lisp
@@ -277,7 +277,7 @@ restricted to C.
 
 ;; ACL2 is really stupid in arithmetic. I just add Robert's collection of
 ;; arithmetic books to get it thru with what I want. I need arithmetic really for
-;; very weird reasons, but well, what the heck, I dont want to deal with
+;; very weird reasons, but well, what the heck, I don't want to deal with
 ;; arithmetic myself any ways.
 
 (local
Index: acl2-8.4dfsg/books/workshops/2003/ray-matthews-tuttle/support/certify.lsp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2003/ray-matthews-tuttle/support/certify.lsp
+++ acl2-8.4dfsg/books/workshops/2003/ray-matthews-tuttle/support/certify.lsp
@@ -20,7 +20,7 @@ this file and do the ld.
 (ubt! 1)
 
 ;; This is simply Pete's total order book. I have it in the directory so that I
-;; dont have to change the path-names in the different books that call it.
+;; don't have to change the path-names in the different books that call it.
 
 (certify-book "total-order")
 (u)
Index: acl2-8.4dfsg/books/workshops/2003/ray-matthews-tuttle/support/circuit-bisim.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2003/ray-matthews-tuttle/support/circuit-bisim.lisp
+++ acl2-8.4dfsg/books/workshops/2003/ray-matthews-tuttle/support/circuit-bisim.lisp
@@ -29,7 +29,7 @@ restricted by vars.
                 (<- q (first vars)))
          (evaluation-eq p q (rest vars)))))
 
-;; We prove evaluation-eq is symmetric here, but I dont want to deal with loop
+;; We prove evaluation-eq is symmetric here, but I don't want to deal with loop
 ;; stoppers so we prove it only for the purpose of use hints.
 
 (defthm evaluation-eq-is-symmetric
Index: acl2-8.4dfsg/books/workshops/2003/ray-matthews-tuttle/support/sets.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2003/ray-matthews-tuttle/support/sets.lisp
+++ acl2-8.4dfsg/books/workshops/2003/ray-matthews-tuttle/support/sets.lisp
@@ -7,7 +7,7 @@
 
 In this book, we discuss the basic theory of flat sets. We define the functions
 subset, set-intersect, set-union and set-equal, and prove properties of these
-functions. I include the records book here, just so that I dont have two
+functions. I include the records book here, just so that I don't have two
 set-memberp functions. I do not know if this is going to be useful, but now I
 am not feeling like I want to do much (what with feeling drowsy and depressed
 and all) and so I thought this would just be an interesting exercise and be
Index: acl2-8.4dfsg/books/workshops/2004/davis/support/fast.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2004/davis/support/fast.lisp
+++ acl2-8.4dfsg/books/workshops/2004/davis/support/fast.lisp
@@ -43,7 +43,7 @@
 ;   (1) produces a set, and
 ;   (2) has the correct membership properties
 ;
-; These facts can then be used to make an equal-by-membership argu- ment with
+; These facts can then be used to make an equal-by-membership argument with
 ; the simple versions as required by MBE.
 ;
 ; Note that this file is very ugly.  There are many factors that con- tribute
Index: acl2-8.4dfsg/books/workshops/2004/legato/support/nqthm/modularithmetic-98.events
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2004/legato/support/nqthm/modularithmetic-98.events
+++ acl2-8.4dfsg/books/workshops/2004/legato/support/nqthm/modularithmetic-98.events
@@ -763,7 +763,7 @@
 ;;; they would conflict with plus-difference-commutes-meta.  Furthermore,
 ;;; there is a natural normalization which occurs when plus is expanded.
 ;;; As plus-commutes-meta moves litatoms to the left, expansion of plus will
-;;; tend to distribute sub1's uniformly over all litatoms occuring with the
+;;; tend to distribute sub1's uniformly over all litatoms occurring with the
 ;;; plus nest.
 
 ;;; canonical (needed to avoid "expand" hints)
Index: acl2-8.4dfsg/books/workshops/2004/ray/support/defcoerce.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2004/ray/support/defcoerce.lisp
+++ acl2-8.4dfsg/books/workshops/2004/ray/support/defcoerce.lisp
@@ -29,7 +29,7 @@ implement it.
 Known issues:
 
 1. The macro does not work for stobjs with no array field at all. (In
-the defpun-exec with defcoerce I dont use the macro unless there is
+the defpun-exec with defcoerce I don't use the macro unless there is
 some array field, which is why the negligence.)
 
 2.It also does not work with types T for arrays. I think I will be
Index: acl2-8.4dfsg/books/workshops/2004/ray/support/defpun-exec.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2004/ray/support/defpun-exec.lisp
+++ acl2-8.4dfsg/books/workshops/2004/ray/support/defpun-exec.lisp
@@ -119,7 +119,7 @@ the value is (ebody x)
 (4) If possible do it without changing the defpun macro provided by Manolios
 and Moore.
 
-(5) If guards are provided but the verification fails, I dont want anything to
+(5) If guards are provided but the verification fails, I don't want anything to
 be in the ACL2 universe.
 
 (6) If :ebody is not provided, then a :ebody of (lbody x) is assumed. Hence
@@ -131,7 +131,7 @@ Assumptions and acknowledgments:
 -------------------------------
 
 (1) The book defpun.lisp needs top be on the directory for this book to be
-certified. Note: If you dont want that, simply put the two forms (other than
+certified. Note: If you don't want that, simply put the two forms (other than
 the ; (include-book "defpun") form at the bottom of the defpun.lisp file and
 recertify that book.
 
@@ -517,7 +517,7 @@ described below to make :expand hints na
 
       ;; When I first did this, I was dissatisfied by the following:
       ;;
-      ;; Once the definition rule is present you would think that you dont want
+      ;; Once the definition rule is present you would think that you don't want
       ;; anything to do with foo-logic. So I would not like to have the logical
       ;; body of foo enabled, but rather I would simply have the definition
       ;; rule foo-def above to do what we want with foo. Unfortunately, if the
@@ -552,7 +552,7 @@ described below to make :expand hints na
       (in-theory (disable ,fname (:definition ,(packn (list lfname '-def)))))
 
       ;; I think some form of theory invariants should be present here, since I
-      ;; dont quite like the body of foo and definition foo-def to be both
+      ;; don't quite like the body of foo and definition foo-def to be both
       ;; enabled, because then foo-def ought never to be used. (foo is
       ;; non-recursive.) Of course it is not a big point to have a theory
       ;; invariant, but here is what I am thinking. A user can either use
@@ -643,7 +643,7 @@ described below to make :expand hints na
 Testing
 =======
 
-(1) I dont verify the guard below. So it will produce the logic definition and
+(1) I don't verify the guard below. So it will produce the logic definition and
 the definition rule, but will produce a guard of nil, and hence in effect
 disable the executable counterpart. This has the precise effect of simply
 providing a defpun.
@@ -783,7 +783,7 @@ ACL2 !>(defun foop-exec (foo)
 ;; we had to actually expand out all the stobj calls. This is because defpun
 ;; cannot handle let and let*. I presume it will, at some future time. But
 ;; either way, defpun-exec has no real problem with let and let* (although I
-;; dont support mv-let yet). Anyway, this example shows that you can now do a
+;; don't support mv-let yet). Anyway, this example shows that you can now do a
 ;; slow execution.
 
 ACL2 !>(defpun-exec bar (x foo)
Index: acl2-8.4dfsg/books/workshops/2004/smith-et-al/support/bags/bind-free-rules.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2004/smith-et-al/support/bags/bind-free-rules.lisp
+++ acl2-8.4dfsg/books/workshops/2004/smith-et-al/support/bags/bind-free-rules.lisp
@@ -25,7 +25,7 @@
 
 ;we look through HYPS for a term of the form (subbagp x y)
 ;if such an item is found, we return (mv t y).  else, we return (mv nil nil)
-;what if multple such things might be found?
+;what if multiple such things might be found?
 (defun find-exact-subbagp-instance (x hyps)
   (declare (type t hyps)
            )
@@ -107,7 +107,7 @@
 ;what does this do?
 ;we look through HYPS for a term of the form (subbagp x BLAH)
 ;if such an item is found, we test whether BLAH equals y.  else, we return nil
-;what if multple such things might be found?
+;what if multiple such things might be found?
 (defun subbagp-instance (x y hyps)
   (declare (type t x y hyps))
   (met ((hit res) (find-exact-subbagp-instance x hyps))
Index: acl2-8.4dfsg/books/workshops/2006/cowles-gamboa-euclid/Euclid/ed3.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2006/cowles-gamboa-euclid/Euclid/ed3.lisp
+++ acl2-8.4dfsg/books/workshops/2006/cowles-gamboa-euclid/Euclid/ed3.lisp
@@ -3318,7 +3318,7 @@ To certify this book, first, create a wo
 			   (mv-nth 0 (Bezout1 x y n)))
 		     (**_e y
 			   (mv-nth 1 (Bezout1 x y n))))
-   is nonzero, and the size of the linear conbination is n."
+   is nonzero, and the size of the linear combination is n."
   (declare (xargs :measure (let ((n (nfix n)))
 			            (nfix (- (Size x) n)))))
   (if (and (edp x)
Index: acl2-8.4dfsg/books/workshops/2006/cowles-gamboa-euclid/Euclid/fld-u-poly/fuforma-normal.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2006/cowles-gamboa-euclid/Euclid/fld-u-poly/fuforma-normal.lisp
+++ acl2-8.4dfsg/books/workshops/2006/cowles-gamboa-euclid/Euclid/fld-u-poly/fuforma-normal.lisp
@@ -196,7 +196,7 @@ To certify this book, first, create a wo
   =P (x y)
   "A polynomial is a true list of momomials.
    Determine if x and y are the same list of monomials,
-   upto monomial equivalence."
+   up to monomial equivalence."
   (if (consp x)
       (and (consp y)
 	   (FUMON::= (primero x)
Index: acl2-8.4dfsg/books/workshops/2007/rubio/support/multisets/multiset.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2007/rubio/support/multisets/multiset.lisp
+++ acl2-8.4dfsg/books/workshops/2007/rubio/support/multisets/multiset.lisp
@@ -469,7 +469,7 @@
 ;;; 2.3 An interesting congruence.
 ;;; ----------------------------------------------------------------------------
 
-;;; These rules are used in conjuction with rewite rules that simplify
+;;; These rules are used in conjunction with rewite rules that simplify
 ;;; multiset differences (w.r.t equal or equal-set)
 
 ;;; REMARK: These two congruence rules will be instantiated by every
Index: acl2-8.4dfsg/books/workshops/2011/krug-et-al/support/Symbolic/vanilla-partial-correctness.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2011/krug-et-al/support/Symbolic/vanilla-partial-correctness.lisp
+++ acl2-8.4dfsg/books/workshops/2011/krug-et-al/support/Symbolic/vanilla-partial-correctness.lisp
@@ -346,7 +346,7 @@ package].
                    (run-fn s (+ m n))))))
 
 ;; The next-state rule is an ugly hack and I am almost doing it assuming I
-;; know what I am doing. If I dont use this theorem, the definition of
+;; know what I am doing. If I don't use this theorem, the definition of
 ;; run-fn does not expand in circumstances I want it to. The theorem
 ;; always expands expressions of the form (run-fn <some state> l) whereas
 ;; if it is not l the theorem does not fire. My intention here is that
@@ -668,7 +668,7 @@ package].
 ;; holds for all steps < (big-steps (steps-to-exitpoint s)). But in
 ;; order to deal with the quantifier-free aspect of ACL2, I need a few
 ;; more tricks. Notice that I am trying hard here to curb my natural
-;; tendencies and just introduce a defun-sk. I dont do it since I dont
+;; tendencies and just introduce a defun-sk. I don't do it since I don't
 ;; see that necessary.
 
 ;; The trick that I am doing is to define a function falsifier that
Index: acl2-8.4dfsg/books/workshops/2014/russinoff-oleary/support/translate.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2014/russinoff-oleary/support/translate.lisp
+++ acl2-8.4dfsg/books/workshops/2014/russinoff-oleary/support/translate.lisp
@@ -135,7 +135,7 @@ are more than one).  The test of the IF
 
 )
 
-;; The following functions are used in conjuction with the built-in subst-var,
+;; The following functions are used in conjunction with the built-in subst-var,
 ;; which substitutes a term for each occurrence of a variable in an expression.
 
 ;; var-count counts the number of occurrences of a variable in an expression:
Index: acl2-8.4dfsg/books/workshops/2018/kwan-greenstreet/nesterov-3.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2018/kwan-greenstreet/nesterov-3.lisp
+++ acl2-8.4dfsg/books/workshops/2018/kwan-greenstreet/nesterov-3.lisp
@@ -1281,7 +1281,7 @@
 		 :use ((:instance lemma-14)
 		       (:instance metric-commutativity (vec1 y) (vec2 x)))))))
 
-;; beginning to simplify || z - y || to alpha^2 || y - x || or || x - y || idr doesnt matter
+;; beginning to simplify || z - y || to alpha^2 || y - x || or || x - y || idr doesn't matter
 (local (defthm lemma-16
  (implies (and (real-listp x) (real-listp y) (= (len x) (DIM)) (= (len y) (len x))
 	       (realp alpha) (<= 0 alpha) (<= alpha 1))
Index: acl2-8.4dfsg/books/workshops/2020/sumners/gl-fin-set.lisp
===================================================================
--- acl2-8.4dfsg.orig/books/workshops/2020/sumners/gl-fin-set.lisp
+++ acl2-8.4dfsg/books/workshops/2020/sumners/gl-fin-set.lisp
@@ -18,7 +18,7 @@ This book defines the following GL-based
 Takes a concl and g-bindings (shape specs) similar to def-gl-thm but in
 addition for a specified variable in the g-bindings (i.e. one of the free
 variables), compute-finite-values will produce a finite number of solutions for
-the specified free variable upto some specified limit or potentially a complete
+the specified free variable up to some specified limit or potentially a complete
 set. We use existing GL->AIG->CNF conversion to get a CNF and variable
 correlation through sat-lits and this is then loaded into IPASIR incremental
 SAT state and then iterated on with incremental SAT to find the different
Index: acl2-8.4dfsg/history-management.lisp
===================================================================
--- acl2-8.4dfsg.orig/history-management.lisp
+++ acl2-8.4dfsg/history-management.lisp
@@ -11940,7 +11940,7 @@
 ; ruled by hyps2.  Note that the only free vars in lam-body are gv and iv.  But
 ; gv is always bound to globals as the fancy loop$ scion iterates across
 ; target.  Meanwhile, iv might occur outside the lambda and must be renamed.
-; So iv' be a new variable not occuring in hyps1 and let s be the substitution
+; So iv' be a new variable not occurring in hyps1 and let s be the substitution
 ; {gv <-- globals, iv <-- iv'}.  Then the measure conjecture generated for this
 ; call of (fn d1 ... dn) in lam-body is
 
Index: acl2-8.4dfsg/translate.lisp
===================================================================
--- acl2-8.4dfsg.orig/translate.lisp
+++ acl2-8.4dfsg/translate.lisp
@@ -9106,7 +9106,7 @@
 ; is tail-recursive counterpart.
 
 ;;; Possible Future Work on Loop$: CLTL supports from/downfrom/upfrom and
-;;; to/downto/upto/below/above.  Eventually we should change the parse-loop$ to
+;;; to/downto/up to/below/above.  Eventually we should change the parse-loop$ to
 ;;; parse those and provide the necessary translation, defuns of the necessary
 ;;; enumerators, and proof support.
 
