src/: Use gender-neutral language in commentary.

diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp
index 37bdd8ced396c0279093f6481a8b675127ebe6d8..43d1f9f938178717181ca222823253464522f47b 100644 (file)
--- a/src/parser/scanner-charbuf-impl.lisp
+++ b/src/parser/scanner-charbuf-impl.lisp
@@ -107,8 +107,8 @@ (defclass charbuf-scanner (character-scanner)
 
    Which leaves us with the need to determine whether there are outstanding
    captures.  We simply maintain a counter, and rely on the client releasing
 
    Which leaves us with the need to determine whether there are outstanding
    captures.  We simply maintain a counter, and rely on the client releasing

-   captured places properly when he's finished.  In practice, this is usually
-   done using the `peek' parser macro so there isn't a problem."))
+   captured places properly when they've finished.  In practice, this is
+   usually done using the `peek' parser macro so there isn't a problem."))

 
 (export '(charbuf-scanner-place charbuf-scanner-place-p))
 (defstruct charbuf-scanner-place
 
 (export '(charbuf-scanner-place charbuf-scanner-place-p))
 (defstruct charbuf-scanner-place

diff --git a/src/pset-proto.lisp b/src/pset-proto.lisp
index 5e02d9b9da303adb8d9c507a9199a96bb8da2b9b..09547e8df0baab61eae802cc720c2d153fecc363 100644 (file)
--- a/src/pset-proto.lisp
+++ b/src/pset-proto.lisp
@@ -95,7 +95,7 @@ (defgeneric coerce-property-value (value type wanted)
     (if (eql type wanted) value
        (error "Incorrect type: expected ~A but found ~A" wanted type)))
 
     (if (eql type wanted) value
        (error "Incorrect type: expected ~A but found ~A" wanted type)))
 

-  ;; If the caller asks for type T then give him the raw thing.
+  ;; If the caller asks for type T then give them the raw thing.

   (:method (value type (wanted (eql t)))
     (declare (ignore type))
     value))
   (:method (value type (wanted (eql t)))
     (declare (ignore type))
     value))