X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcas.lisp;h=72e5800803fa983974c9235723a66427c8e0752d;hb=f77e81ba7736fc7df9ca7d37b93f662f36dae39f;hp=84f4c4392b80b4e7d3f06652272401fd2a74a5dd;hpb=76db27f585eda84ab93411dd61b32677355f8cc4;p=sbcl.git

diff --git a/src/code/cas.lisp b/src/code/cas.lisp
index 84f4c43..72e5800 100644
--- a/src/code/cas.lisp
+++ b/src/code/cas.lisp
@@ -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))