aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2023-09-10 17:28:09 -0700
committercolin <colin@cicadas.surf>2023-09-10 17:28:09 -0700
commitc78ea4c1b5b49ada28cde353e41aed262560f114 (patch)
tree8248b15a7c720c65f4f55188272a0414ab444ed7
parent243f2b0da3e11c6310ed5594076d38f8ba3d4f71 (diff)
typo
-rw-r--r--src/standard-hooks.lisp2
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)))))