X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=fbf4fd9fb682589b853cce3289d65435ce0a4327;hb=4aef4760057ae2f236418ef5fcb410f027961a18;hp=bce896c7304ad0ee1658a6624dce5d84a5d87c2b;hpb=5ec8d0c1c8b7939818b75118b472fac1af554f9a;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index bce896c..fbf4fd9 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -29,7 +29,7 @@
 	     #+sb-xc cl:class
 	     (:make-load-form-fun class-make-load-form-fun)
 	     (:include ctype
-		       (:class-info (type-class-or-lose #-sb-xc 'sb!xc:class
+		       (class-info (type-class-or-lose #-sb-xc 'sb!xc:class
 							#+sb-xc 'cl:class)))
 	     (:constructor nil)
 	     #-no-ansi-print-object
@@ -52,7 +52,7 @@
   ;; that CL:CLASS-NAME is a generic function.)
   (%name nil :type symbol)
   ;; the current layout for this class, or NIL if none assigned yet
-  (layout nil :type (or sb!kernel::layout null))
+  (layout nil :type (or layout null))
   ;; How sure are we that this class won't be redefined?
   ;;   :READ-ONLY = We are committed to not changing the effective 
   ;;                slots or superclasses.
@@ -394,8 +394,8 @@
 	(let ((old-length (layout-length old-layout)))
 	  (unless (= old-length length)
 	    (warn "change in instance length of class ~S:~%  ~
-		   ~A length: ~D~%  ~
-		   ~A length: ~D"
+		   ~A length: ~W~%  ~
+		   ~A length: ~W"
 		  name
 		  old-context old-length
 		  context length)
@@ -441,7 +441,6 @@
 (declaim (ftype (function (symbol index simple-vector layout-depthoid) layout)
 		find-and-init-or-check-layout))
 (defun find-and-init-or-check-layout (name length inherits depthoid)
-  (/show0 "entering FIND-AND-INIT-OR-CHECK-LAYOUT")
   (let ((layout (find-layout name)))
     (init-or-check-layout layout
 			  (or (sb!xc:find-class name nil)
@@ -736,6 +735,10 @@
   #-sb-xc (declare (type sb!xc:class new-value))
   (ecase (info :type :kind name)
     ((nil))
+    (:forthcoming-defclass-type
+     ;; XXX Currently, nothing needs to be done in this case. Later, when
+     ;; PCL is integrated tighter into SBCL, this might need more work.
+     nil)
     (:instance
      (let ((old (class-of (sb!xc:find-class name)))
 	   (new (class-of new-value)))
@@ -1131,10 +1134,10 @@
 		generic-sequence collection))
     (null
      :translation (member nil)
-     :inherits (list sequence
+     :inherits (symbol list sequence
 		mutable-sequence mutable-collection
-		generic-sequence collection symbol)
-     :direct-superclasses (list symbol))
+		generic-sequence collection)
+     :direct-superclasses (symbol list))
     (generic-number :state :read-only)
     (number :translation number :inherits (generic-number))
     (complex
@@ -1182,8 +1185,8 @@
      :translation integer
      :inherits (rational real number generic-number))
     (fixnum
-     :translation (integer #.sb!vm:*target-most-negative-fixnum*
-			   #.sb!vm:*target-most-positive-fixnum*)
+     :translation (integer #.sb!xc:most-negative-fixnum
+			   #.sb!xc:most-positive-fixnum)
      :inherits (integer rational real number
 		generic-number)
      :codes (#.sb!vm:even-fixnum-lowtag #.sb!vm:odd-fixnum-lowtag))