File: case-test.lisp

package info (click to toggle)
sbcl 2%3A2.6.2-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 52,008 kB
  • sloc: lisp: 535,135; ansic: 42,629; sh: 5,737; asm: 2,406; pascal: 717; makefile: 432; python: 56; cpp: 27
file content (5 lines) | stat: -rw-r--r-- 165 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
 
(macrolet ((mcase (&rest cases)
             `(case 10
                ,@(loop for case in cases
                        collect (list case 20)))))
  (mcase 10 10))