X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fbraid.lisp;h=ec2a19acf006cebc832ec339fd195ccfabf6867f;hb=a260738d7a71680079d972b102b4e4db4e8dc3ae;hp=246b911e9604082e0b2e5614888972cd5a8e417d;hpb=8fa3b333d2b37f45c3702f478f784b8c6f491080;p=sbcl.git

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 246b911..ec2a19a 100644
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -243,7 +243,7 @@
 				    smc
 				    name
 				    value)))
-	(set-slot 'source *load-truename*)
+	(set-slot 'source *load-pathname*)
 	(set-slot 'type 'standard)
 	(set-slot 'documentation "The standard method combination.")
 	(set-slot 'options ()))
@@ -578,7 +578,7 @@
               (sb-kernel:order-layout-inherits
                (map 'simple-vector #'class-wrapper
                     (reverse (rest (class-precedence-list class))))))
-      (sb-kernel:register-layout layout)
+      (sb-kernel:register-layout layout :invalidate nil)
 
       ;; Subclasses of formerly forward-referenced-class may be
       ;; unknown to CL:FIND-CLASS and also anonymous. This