Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /src/clos/stdmethod.lsp [3eb0de] .. [2f51a8] Maximize Restore

  Switch to side-by-side view

--- a/src/clos/stdmethod.lsp
+++ b/src/clos/stdmethod.lsp
@@ -25,15 +25,6 @@
 	   ((endp l)
 	    output)
 	(push (first l) output)))))
-
-(defclass standard-accessor-method (standard-method)
-  ((slot-definition :initarg :slot-definition
-		    :initform nil 
-		    :reader accessor-method-slot-definition)))
-
-(defclass standard-reader-method (standard-accessor-method) ())
-
-(defclass standard-writer-method (standard-accessor-method) ())
 
 (defmethod shared-initialize ((method standard-method) slot-names &rest initargs
 			      &key (specializers nil spec-supplied-p)