X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/ba92c444e2ce6a72616cdbe3017a0d6d3e0b8d4f..d9cfb3e0f486ebb403c2456ac5d8f0b2152dd255:/mdw-base.lisp diff --git a/mdw-base.lisp b/mdw-base.lisp index 774ea9f..aa14f27 100644 --- a/mdw-base.lisp +++ b/mdw-base.lisp @@ -342,7 +342,7 @@ forms)))) clauses))))) -(export 'caase2) +(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