mdw-base.lisp: Export `case2' correctly.

Alas, `optparse.lisp' miscompiles hopelessly if we don't do this.

diff --git a/mdw-base.lisp b/mdw-base.lisp
index 774ea9f207c877d21d7989672d5eefe738901f6e..aa14f2796a331f127c1a56269714aa601921f84e 100644 (file)
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -342,7 +342,7 @@ (compile-time-defun do-case2-like (kind vform clauses)
                               forms))))
                   clauses)))))
 
                               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
 (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