diff options
| -rw-r--r-- | src/standard-hooks.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/standard-hooks.lisp b/src/standard-hooks.lisp index 691b537..36c4d8e 100644 --- a/src/standard-hooks.lisp +++ b/src/standard-hooks.lisp @@ -22,7 +22,7 @@ (defun defclass-restarts-expander (form) (let* ((name (second form)) - (restart-name (intern (format nil "UNBIND-FUNCTION-~a" (symbol-name name))))) + (restart-name (intern (format nil "UNBIND-CLASS-~a" (symbol-name name))))) `((,restart-name () (setf (find-class ',name) nil))))) |