X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fclass.lisp;h=fbf4fd9fb682589b853cce3289d65435ce0a4327;hb=8097f555eb90f15c51b96e20bd88db15757247b9;hp=913a541823a84aef13b0097dc563ff5d42e90194;hpb=78a057624fecd10d0fb2ead4ef02ffc361b1ee22;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 913a541..fbf4fd9 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -735,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)))
@@ -1181,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))