diff options
| author | colin <colin@cicadas.surf> | 2023-09-10 17:28:09 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-09-10 17:28:09 -0700 |
| commit | c78ea4c1b5b49ada28cde353e41aed262560f114 (patch) | |
| tree | 8248b15a7c720c65f4f55188272a0414ab444ed7 | |
| parent | 243f2b0da3e11c6310ed5594076d38f8ba3d4f71 (diff) | |
typo
| -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))))) |