diff options
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")) |