From 554dbe8181db32f7f01f9dac082594e06874045a Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 10 Sep 2023 08:17:58 -0700 Subject: Improved restart messages for some standard hooks --- src/standard-hooks.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/standard-hooks.lisp') 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))))) -- cgit v1.2.3