~mdw
/
lisp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
mdw-base.lisp: Export `case2' correctly.
[lisp]
/
mdw-base.lisp
diff --git
a/mdw-base.lisp
b/mdw-base.lisp
index
774ea9f
..
aa14f27
100644
(file)
--- a/
mdw-base.lisp
+++ b/
mdw-base.lisp
@@
-342,7
+342,7
@@
forms))))
clauses)))))
-(export 'ca
a
se2)
+(export 'case2)
(defmacro case2 (vform &body clauses)
"VFORM is a form which evaluates to two values, SCRUTINEE and ARGUMENT.
The CLAUSES have the form (CASES ([[SCRUVAR] ARGVAR]) FORMS...), where a