---
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 ,@args)
,@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 ,@args)
,@body))
--
2.10.0