diff options
| -rw-r--r-- | package.lisp | 3 | ||||
| -rw-r--r-- | testiere.lisp | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/package.lisp b/package.lisp index 11b9171..04ecb26 100644 --- a/package.lisp +++ b/package.lisp @@ -3,7 +3,6 @@ (defpackage #:testiere (:use #:cl) (:import-from #:trivia #:match #:guard) - (:export #:defun+ - #:defmethod+)) + (:export #:defun/t)) diff --git a/testiere.lisp b/testiere.lisp index 1f1d0ec..9f253a7 100644 --- a/testiere.lisp +++ b/testiere.lisp @@ -59,7 +59,7 @@ (list (mapcar (lambda (spec) (build-test name spec)) specs) (append before after)))))) -(defmacro defun+ (name lambda-list &body body) +(defmacro defun/t (name lambda-list &body body) "Like regular DEFUN, but with embedded unit tests. If those tests would fail, the function fails to be defined. " (destructuring-bind (tests function-body) (extract-tests name body) |