projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
1.0.12.33: Have foreign.test.sh create .so files under the test directory
[sbcl.git]
/
src
/
code
/
macros.lisp
diff --git
a/src/code/macros.lisp
b/src/code/macros.lisp
index
3da5529
..
ebddde6
100644
(file)
--- a/
src/code/macros.lisp
+++ b/
src/code/macros.lisp
@@
-216,7
+216,7
@@
invoked. In that case it will store into PLACE and start over."
do (when existing
(let ((sb!c::*current-path*
(when (boundp 'sb!c::*source-paths*)
- (or (gethash case sb!c::*source-paths*)
+ (or (sb!c::get-source-path case)
sb!c::*current-path*))))
(warn 'duplicate-case-key-warning
:key k