X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcpl.lisp;h=f834b1a6e870852c127363915dd02aa9909e3bbe;hb=9a2e730f74641e7de6ad4099111db92c5ad863bf;hp=8fdd03830376e57824d9f1ff27a0f7b77a0674f1;hpb=0b5610d8a220a4b20cbeac958953ca4d67c00038;p=sbcl.git

diff --git a/src/pcl/cpl.lisp b/src/pcl/cpl.lisp
index 8fdd038..f834b1a 100644
--- a/src/pcl/cpl.lisp
+++ b/src/pcl/cpl.lisp
@@ -23,8 +23,8 @@
 
 (in-package "SB-PCL")
 
-;;; compute-class-precedence-list
-;;;
+;;;; COMPUTE-CLASS-PRECEDENCE-LIST and friends
+
 ;;; Knuth section 2.2.3 has some interesting notes on this.
 ;;;
 ;;; What appears here is basically the algorithm presented there.
@@ -247,21 +247,21 @@
 		 (format nil "named ~S" (class-name class))
 		 class))))
     (mapcar
-      #'(lambda (reason)
-	  (ecase (caddr reason)
-	    (:super
-	      (format
-		nil
-		"The class ~A appears in the supers of the class ~A."
-		(class-or-name (cadr reason))
-		(class-or-name (car reason))))
-	    (:in-supers
-	      (format
-		nil
-		"The class ~A follows the class ~A in the supers of the class ~A."
-		(class-or-name (cadr reason))
-		(class-or-name (car reason))
-		(class-or-name (cadddr reason))))))
+      (lambda (reason)
+	(ecase (caddr reason)
+	  (:super
+	   (format
+	    nil
+	    "The class ~A appears in the supers of the class ~A."
+	    (class-or-name (cadr reason))
+	    (class-or-name (car reason))))
+	  (:in-supers
+	   (format
+	    nil
+	    "The class ~A follows the class ~A in the supers of the class ~A."
+	    (class-or-name (cadr reason))
+	    (class-or-name (car reason))
+	    (class-or-name (cadddr reason))))))
       reasons)))
 
 (defun find-cycle-reasons (all-cpds)