From c78ea4c1b5b49ada28cde353e41aed262560f114 Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 10 Sep 2023 17:28:09 -0700 Subject: typo --- src/standard-hooks.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))))) -- cgit v1.2.3