Fix typos in docstrings and function names.

[sbcl.git] / src / code / cas.lisp

diff --git a/src/code/cas.lisp b/src/code/cas.lisp
index 84f4c43..9c1c611 100644 (file)
--- a/src/code/cas.lisp
+++ b/src/code/cas.lisp
@@ -21,7 +21,7 @@
 (def!macro cas (place old new &environment env)
   "Synonym for COMPARE-AND-SWAP.
 
-Addtionally DEFUN, DEFGENERIC, DEFMETHOD, FLET, and LABELS can be also used to
+Additionally DEFUN, DEFGENERIC, DEFMETHOD, FLET, and LABELS can be also used to
 define CAS-functions analogously to SETF-functions:
 
   (defvar *foo* nil)
@@ -80,9 +80,9 @@ Example:
           ,new))))
 
 EXPERIMENTAL: Interface subject to change."
-  (flet ((invalid-place ()
-           (error "Invalid place to CAS: ~S" place)))
     (let ((expanded (sb!xc:macroexpand place environment)))
+      (flet ((invalid-place ()
+           (error "Invalid place to CAS: ~S -> ~S" place expanded)))
       (unless (consp expanded)
         ;; FIXME: Allow (CAS *FOO* <OLD> <NEW>), maybe?
         (invalid-place))