X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefcombin.lisp;h=dac7e10c8dc90ba68d0471da27d228cf1482f584;hb=2c6b90e36a7c0377cd79625eb6c94d580f98cb93;hp=9306b5bca558fdfeee32e5eb8207da75dd62be92;hpb=f0338f6fa732b21daa4405e19465bd460e0526d9;p=sbcl.git

diff --git a/src/pcl/defcombin.lisp b/src/pcl/defcombin.lisp
index 9306b5b..dac7e10 100644
--- a/src/pcl/defcombin.lisp
+++ b/src/pcl/defcombin.lisp
@@ -32,15 +32,12 @@
 
 ;;;; standard method combination
 
-;;; The STANDARD method combination type is implemented directly by the class
-;;; STANDARD-METHOD-COMBINATION. The method on COMPUTE-EFFECTIVE-METHOD does
-;;; standard method combination directly and is defined by hand in the file
-;;; combin.lisp. The method for FIND-METHOD-COMBINATION must appear in this
-;;; file for bootstrapping reasons.
-;;;
-;;; A commented out copy of this definition appears in combin.lisp.
-;;; If you change this definition here, be sure to change it there
-;;; also.
+;;; The STANDARD method combination type is implemented directly by
+;;; the class STANDARD-METHOD-COMBINATION. The method on
+;;; COMPUTE-EFFECTIVE-METHOD does standard method combination directly
+;;; and is defined by hand in the file combin.lisp. The method for
+;;; FIND-METHOD-COMBINATION must appear in this file for bootstrapping
+;;; reasons.
 (defmethod find-method-combination ((generic-function generic-function)
 				    (type (eql 'standard))
 				    options)
@@ -109,10 +106,10 @@
 	((equal options '(:most-specific-last)))
 	(t
 	 (method-combination-error
-	   "Illegal options to a short method combination type.~%~
-	    The method combination type ~S accepts one option which~%~
-	    must be either :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST."
-	   type)))
+	  "Illegal options to a short method combination type.~%~
+	   The method combination type ~S accepts one option which~%~
+	   must be either :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST."
+	  type)))
   (make-instance 'short-method-combination
 		 :type type
 		 :options options