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

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index de4c4b6..ec2a19a 100644
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -145,10 +145,7 @@
 			(built-in-class built-in-class-wrapper)
 			(structure-class structure-class-wrapper)))
 	     (class (or (find-class name nil)
-			(allocate-standard-instance wrapper))))
-	(when (or (eq meta 'standard-class)
-		  (eq meta 'funcallable-standard-class))
-	  (inform-type-system-about-std-class name))
+			(allocate-standard-instance wrapper))))	
 	(setf (find-class name) class)))
     (dolist (definition *early-class-definitions*)
       (let ((name (ecd-class-name definition))
@@ -246,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 ()))