--- 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))