From 5657e17a4ca8c0319b285be04db2f998106ddd21 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Mon, 22 Dec 2014 08:04:55 +0000 Subject: [PATCH] Package fixes. --- cl-mock.asd | 2 +- src/facade.lisp | 2 +- src/package.lisp | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/cl-mock.asd b/cl-mock.asd index 7b71beb..6fc2a3c 100644 --- a/cl-mock.asd +++ b/cl-mock.asd @@ -10,7 +10,7 @@ version)." :license "Simplified BSD License" :version "1.0.0" #+asdf-unicode :encoding #+asdf-unicode :utf-8 - :depends-on (#:cl-mock-basic #:closer-mop #:alexandria #:optima) + :depends-on (#:cl-mock-basic #:optima) :in-order-to ((asdf:test-op (asdf:load-op #:cl-mock-tests))) :perform (asdf:test-op :after (op c) (funcall (find-symbol (symbol-name '#:run!) '#:fiveam) 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)))))))) diff --git a/src/package.lisp b/src/package.lisp index 8f802ae..e2725b3 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -3,7 +3,7 @@ (in-package #:cl-user) (defpackage #:cl-mock - (:use #:closer-common-lisp #:alexandria #:optima) + (:use #:closer-common-lisp #:alexandria) (:export ;; regular functions #:maybe-fdefinition -- 1.7.10.4