From abed60dd424a3e47ecf3f69e5b00bd759073be2c Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Tue, 8 Mar 2022 11:46:40 -0600
Subject: changed name of defun+ to defun/t
---
package.lisp | 3 +--
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)
--
cgit v1.2.3