From 477c7d44bfaac224160a203667f6856621d50c28 Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 10 Sep 2023 17:31:26 -0700 Subject: yeesh --- 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 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))))) -- cgit v1.2.3