diff options
Diffstat (limited to 'src')
| -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 36c4d8e..86725ca 100644 --- a/src/standard-hooks.lisp +++ b/src/standard-hooks.lisp @@ -52,7 +52,7 @@ (defun defun-restarts-expander (form) (let* ((name (second form)) - (restart-name (intern (format nil "UNBIND-CLASS-~a" (symbol-name name))))) + (restart-name (intern (format nil "UNBIND-FUNCTION-~a" (symbol-name name))))) `((,restart-name () (fmakunbound ',name))))) |