From: Gabor Melis <mega@hotpop.com>
Date: Fri, 1 Sep 2006 10:53:45 +0000 (+0000)
Subject: 0.9.16.9:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f58928d7f3a60dedfa4b9306533232d7a4923c1c;p=sbcl.git

0.9.16.9:
  * raw slots are of type lispobj instead of long for the sake of
    alpha
---

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index c42fcf8..bd77bbb 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -2820,9 +2820,9 @@ core and return a descriptor to it."
       (when (eq t (dsd-raw-type slot))
         (format t "    lispobj ~A;~%" (cstring (dsd-name slot)))))
     (unless (oddp (+ (dd-length dd) (dd-raw-length dd)))
-      (format t "    long raw_slot_padding;~%"))
+      (format t "    lispobj raw_slot_padding;~%"))
     (dotimes (n (dd-raw-length dd))
-      (format t "    long raw~D;~%" (- (dd-raw-length dd) n 1)))
+      (format t "    lispobj raw~D;~%" (- (dd-raw-length dd) n 1)))
     (format t "};~2%")
     (format t "#endif /* LANGUAGE_ASSEMBLY */~2%")))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index 442bc92..aeead58 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,5 +17,5 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.16.8"
+"0.9.16.9"