Tue Jan 12 09:20:28 UTC 2010 pix@kepibu.org
* Fix (matching (otherwise ...))
(matching (otherwise ...)) expands into (cond (otherwise ...)), which
generates an unbound-variable error when executed, because COND does
not special-case OTHERWISE as CASE does.
hunk ./match-block.lisp 213
- ,@(when default-clause (list default-clause))))))[_^M_][_$_]
+ ,(when default-clause (cons t (cdr default-clause)))))))[_^M_][_$_]