[PATCH] Fix typos in XOR docstring and WITH-{INPUT-FROM,OUTPUT-TO}-FILE error messages

[Steve Losh]

---
 control-flow.lisp | 2 +-
 io.lisp           | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/control-flow.lisp b/control-flow.lisp
index f262443..27a2915 100644
--- a/control-flow.lisp
+++ b/control-flow.lisp
@@ -68,7 +68,7 @@ returns the values of DEFAULT if no keys match."
                ,(expand possibilities 0 random-number)))))))
 
 (defmacro xor (&rest datums)
-  "Evaluates its arguments one at a time, from left to right. If more then one
+  "Evaluates its arguments one at a time, from left to right. If more than one
 argument evaluates to a true value no further DATUMS are evaluated, and NIL is
 returned as both primary and secondary value. If exactly one argument
 evaluates to true, its value is returned as the primary value after all the
diff --git a/io.lisp b/io.lisp
index f36dd66..28bf5e6 100644
--- a/io.lisp
+++ b/io.lisp
@@ -33,7 +33,7 @@ FILE-NAME. ARGS is sent as is to the call to OPEN except EXTERNAL-FORMAT,
 which is only sent to WITH-OPEN-FILE when it's not NIL."
   (declare (ignore direction))
   (when direction-p
-    (error "Can't specifiy :DIRECTION for WITH-INPUT-FROM-FILE."))
+    (error "Can't specify :DIRECTION for WITH-INPUT-FROM-FILE."))
   `(with-open-file* (,stream-name ,file-name :direction :input , at args)
      , at body))
 
@@ -46,7 +46,7 @@ FILE-NAME. ARGS is sent as is to the call to OPEN except EXTERNAL-FORMAT,
 which is only sent to WITH-OPEN-FILE when it's not NIL."
   (declare (ignore direction))
   (when direction-p
-    (error "Can't specifiy :DIRECTION for WITH-OUTPUT-TO-FILE."))
+    (error "Can't specify :DIRECTION for WITH-OUTPUT-TO-FILE."))
   `(with-open-file* (,stream-name ,file-name :direction :output , at args)
      , at body))
 
-- 
2.10.0