Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

Diff of /src/clos/kernel.lsp [645090] .. [93be6c] Maximize Restore

  Switch to side-by-side view

--- a/src/clos/kernel.lsp
+++ b/src/clos/kernel.lsp
@@ -111,6 +111,11 @@
 	(set-funcallable-instance-function gfun 'standard-generic-function)
 	(setf (fdefinition name) gfun)
 	gfun)))
+
+(defun (setf generic-function-name) (new-name gf)
+  (if *clos-booted*
+      (reinitialize-instance gf :name new-name)
+      (setf (slot-value gf 'name) new-name)))
 
 (defun default-dispatch (generic-function)
   (cond ((null *clos-booted*)