?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Unbreak non-x86 builds
[sbcl.git] / tests / case-test.lisp
blob08566d7410e6a87f00cb21876bdc610f39987e19
1 (macrolet ((mcase (&rest cases)
2 `(case 10
3 ,@(loop for case in cases
4 collect (list case 20)))))
5 (mcase 10 10))
Common Lisp compiler and runtime