aboutsummaryrefslogtreecommitdiff
path: root/testiere.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'testiere.lisp')
-rw-r--r--testiere.lisp18
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"))