From abed60dd424a3e47ecf3f69e5b00bd759073be2c Mon Sep 17 00:00:00 2001 From: Colin Okay 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