Diff of /src/clos/std-slot-value.lsp [3c4986] .. [8ac2ec] Maximize Restore

  Switch to side-by-side view

--- a/src/clos/std-slot-value.lsp
+++ b/src/clos/std-slot-value.lsp
@@ -227,7 +227,7 @@
 		(slot-boundp-using-class class self slotd)
 		(values (slot-missing class self slot-name 'SLOT-BOUNDP))))))))
 
-(defun (setf slot-value) (value self slot-name)
+(defun clos::slot-value-set (value self slot-name)
   (with-early-accessors (+standard-class-slots+
 			 +slot-definition-slots+)
     (let* ((class (class-of self))
@@ -243,6 +243,8 @@
 		(slot-missing class self slot-name 'SETF value))))))
   value)
 
+(setf (fdefinition '(setf slot-value)) #'clos::slot-value-set)
+
 ;;;
 ;;; 2) Overloadable methods on which the previous functions are based
 ;;;