X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Ffacade.lisp;h=4ad42fd8ba4bf40b647c1ecb0e69d9b8bda3ee72;hb=5657e17a4ca8c0319b285be04db2f998106ddd21;hp=a16e88fdb4b5bd4fcf13db2cd0edf5924a5b724a;hpb=e8b227cbde3cf3eeb9b28f347f9ff78acb0cf0a8;p=cl-mock.git diff --git a/src/facade.lisp b/src/facade.lisp index a16e88f..4ad42fd 100644 --- a/src/facade.lisp +++ b/src/facade.lisp @@ -25,7 +25,7 @@ for (form . rest) on forms collect `(,(if rest i T) ,form))))) (if (listp call) - `(match args + `(optima:match args ((list . ,(cdr call)) ,cases) (_ (unhandled))) cases))))))))