mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
2a0a1c10b9
When a duplicate clause is encountered the CASE macro tries to locate its location, it uses sb-c::*current-path* which may not be bound when loading a source file.
6 lines
165 B
Common Lisp
6 lines
165 B
Common Lisp
(macrolet ((mcase (&rest cases)
|
|
`(case 10
|
|
,@(loop for case in cases
|
|
collect (list case 20)))))
|
|
(mcase 10 10))
|