Mon Jan 25 07:03:27 UTC 2010  pix@kepibu.org
  * (cond (a b) (c d) nil) isn't really valid
diff -rN -u old-cl-unification-1/match-block.lisp new-cl-unification-1/match-block.lisp
--- old-cl-unification-1/match-block.lisp	2014-09-11 07:35:34.000000000 +0000
+++ new-cl-unification-1/match-block.lisp	2014-09-11 07:35:34.000000000 +0000
@@ -205,7 +205,7 @@
                  (,errorp
                   (error 'unification-non-exhaustive
                          :format-control "Non exhaustive matching."))
-                 ,(when default-clause (cons t (cdr default-clause)))))))
+                 ,@(when default-clause `((t ,@(cdr default-clause))))))))
     ))