Sun Feb 7 08:42:39 UTC 2010 pix@kepibu.org
* Marginally more straightforward?
diff -rN -u old-cl-unification-1/match-block.lisp new-cl-unification-1/match-block.lisp
--- old-cl-unification-1/match-block.lisp 2013-07-21 19:26:42.000000000 +0000
+++ new-cl-unification-1/match-block.lisp 2013-07-21 19:26:42.000000000 +0000
@@ -86,7 +86,7 @@
(,(clean-unify-var-name v) ,v)))
(expand-clause (clause)
(destructuring-bind (template object &rest body)
- clause
+ (munge-clause clause)
(let* ((template (ensure-template template))
(variables (collect-template-vars template)))
`((setf (values ,match-environment ,match-error)
@@ -112,7 +112,7 @@
(declare (dynamic-extent ,match-environment ,base-environment)
(ignorable ,case-keyform))
(cond
- ,@(mapcar (lambda (c) (expand-clause (munge-clause c))) match-clauses)
+ ,@(mapcar #'expand-clause match-clauses)
,@(when errorp `((,errorp ,(or error-form `(error ,match-error)))))
,@(when default-clauses `((t ,@(cdar default-clauses))))
,@(when default `((t ,default))))))))))