X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcpl.lisp;h=e8c7b58635e44d2805e60a239d1c1cdf6e3aeb4f;hb=416152f084604094445a758ff399871132dff2bd;hp=75bec0d1dc3bf2452c7f754c53675354fdcb4a8d;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/pcl/cpl.lisp b/src/pcl/cpl.lisp
index 75bec0d..e8c7b58 100644
--- a/src/pcl/cpl.lisp
+++ b/src/pcl/cpl.lisp
@@ -22,12 +22,9 @@
 ;;;; specification.
 
 (in-package "SB-PCL")
-
-(sb-int:file-comment
-  "$Header$")
 
-;;; 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.
@@ -81,11 +78,12 @@
   (compute-std-cpl root (class-direct-superclasses root)))
 
 (defstruct (class-precedence-description
-	     (:conc-name nil)
-	     (:print-object (lambda (obj str)
-			      (print-unreadable-object (obj str :type t)
-				(format str "~D" (cpd-count obj)))))
-	     (:constructor make-cpd ()))
+	    (:conc-name nil)
+	    (:print-object (lambda (obj str)
+			     (print-unreadable-object (obj str :type t)
+			       (format str "~D" (cpd-count obj)))))
+	    (:constructor make-cpd ())
+	    (:copier nil))
   (cpd-class  nil)
   (cpd-supers ())
   (cpd-after  ())