From 7c9ee7bd78b239b4fde8ae5533d012a76ff1d2d5 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 12 Jan 2013 10:16:09 +0100 Subject: [PATCH] (SETF GENERIC-FUNCTION) is now a generic function. --- src/clos/fixup.lsp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/clos/fixup.lsp b/src/clos/fixup.lsp index 39457ba92..31715f945 100644 --- a/src/clos/fixup.lsp +++ b/src/clos/fixup.lsp @@ -324,3 +324,6 @@ their lambda lists ~A and ~A are not congruent." (function-to-method 'find-method-combination '((gf standard-generic-function) method-combination-type-name method-combination-options)) + +(function-to-method '(setf generic-function-name) + '((name t) (gf generic-function)))