diff options
| author | colin <colin@cicadas.surf> | 2023-09-10 08:17:58 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-09-10 08:17:58 -0700 |
| commit | 554dbe8181db32f7f01f9dac082594e06874045a (patch) | |
| tree | f50e1897fa8b9852f26af2a9804fdb506692c136 | |
| parent | 6be426978c86bc7a061cc66c8fda738be2e59a16 (diff) | |
Improved restart messages for some standard hooks
| -rw-r--r-- | src/standard-hooks.lisp | 10 | ||||
| -rw-r--r-- | testiere.asd | 2 |
2 files changed, 7 insertions, 5 deletions
diff --git a/src/standard-hooks.lisp b/src/standard-hooks.lisp index fcf1367..691b537 100644 --- a/src/standard-hooks.lisp +++ b/src/standard-hooks.lisp @@ -21,8 +21,9 @@ ;; (:tests ...)) (defun defclass-restarts-expander (form) - (let ((name (second form))) - `((make-unbound + (let* ((name (second form)) + (restart-name (intern (format nil "UNBIND-FUNCTION-~a" (symbol-name name))))) + `((,restart-name () (setf (find-class ',name) nil))))) @@ -50,8 +51,9 @@ ;; (+ x y z)) (defun defun-restarts-expander (form) - (let ((name (second form))) - `((make-unbound + (let* ((name (second form)) + (restart-name (intern (format nil "UNBIND-CLASS-~a" (symbol-name name))))) + `((,restart-name () (fmakunbound ',name))))) diff --git a/testiere.asd b/testiere.asd index 147b556..374f2e7 100644 --- a/testiere.asd +++ b/testiere.asd @@ -4,7 +4,7 @@ :description "TDD system for Common Lisp" :author "Colin OKeefe <colin@cicadas.surf>" :license "GPLv3" - :version "1.0.0" + :version "1.0.1" :depends-on (:trivia) :pathname "src/" :serial t |