diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-08 11:46:40 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-08 11:46:40 -0600 |
| commit | abed60dd424a3e47ecf3f69e5b00bd759073be2c (patch) | |
| tree | 775816cb8f4b063eb248d7f4efec5d84cb365703 | |
| parent | 6990d42faca35cab8d832d55e35dc3f128eb94b5 (diff) | |
changed name of defun+ to defun/t
| -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) |