aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/standard-hooks.lisp10
1 files changed, 6 insertions, 4 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)))))