diff options
author | Colin Okay <okay@toyful.space> | 2022-03-08 12:28:45 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-03-08 12:28:45 -0600 |
commit | b19b9f2ba733790b1d8194aa9f3bba04a8e1df3f (patch) | |
tree | e2fa9827c747b681d4c610c1fa479a73fb8096db /testiere.lisp | |
parent | abed60dd424a3e47ecf3f69e5b00bd759073be2c (diff) |
updated examples
Diffstat (limited to 'testiere.lisp')
-rw-r--r-- | testiere.lisp | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/testiere.lisp b/testiere.lisp index 9f253a7..003647c 100644 --- a/testiere.lisp +++ b/testiere.lisp @@ -68,22 +68,12 @@ (progn ,@tests (defun ,name ,lambda-list ,@function-body)) (error (e) - (format t "~a~%Not defining ~a" e ',name)))))) + (invoke-debugger e) + ))))) + + -(defun parse-defmethod (args) - (match args - ((guard (list* qualifier lambda-list body) - (and (not (listp qualifier)) - (listp lambda-list))) - (list (list qualifier lambda-list) body)) - ((list* lambda-list body) - (list (list lambda-list) body)) - (_ (error "Malformed DEFMETHOD: ~a " args)))) -(defmacro defmethod+ (name &rest args) - "Like regular DEFMETHOD, but with embedded unit tests. If those - test would fail, the method fails to be defined. " - (ERROR "Not yet implemented")) |