projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't close runtime dlhandle on Darwin
[sbcl.git]
/
src
/
code
/
cas.lisp
diff --git
a/src/code/cas.lisp
b/src/code/cas.lisp
index
63ff0d9
..
72e5800
100644
(file)
--- a/
src/code/cas.lisp
+++ b/
src/code/cas.lisp
@@
-80,9
+80,9
@@
Example:
,new))))
EXPERIMENTAL: Interface subject to change."
,new))))
EXPERIMENTAL: Interface subject to change."
- (flet ((invalid-place ()
- (error "Invalid place to CAS: ~S" place)))
(let ((expanded (sb!xc:macroexpand place environment)))
(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))
(unless (consp expanded)
;; FIXME: Allow (CAS *FOO* <OLD> <NEW>), maybe?
(invalid-place))
@@
-93,7
+93,7
@@
EXPERIMENTAL: Interface subject to change."
(cond
;; CAS expander.
(info
(cond
;; CAS expander.
(info
- (funcall info place environment))
+ (funcall info expanded environment))
;; Structure accessor
((setf info (info :function :structure-accessor name))
;; Structure accessor
((setf info (info :function :structure-accessor name))