X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fmacros.lisp;h=ebddde6f300624744c84571638fc82b4e9438040;hb=6a0601ab48635465ad3400c290e5cfbca28e5367;hp=3da5529a39595495998570522e7d09a1a49257f6;hpb=ab761bf3e9e2b6dd81216db6c6aa2c69aaf07efd;p=sbcl.git

diff --git a/src/code/macros.lisp b/src/code/macros.lisp
index 3da5529..ebddde6 100644
--- 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