From: Juho Snellman <jsnell@iki.fi>
Date: Mon, 23 Jun 2008 00:55:47 +0000 (+0000)
Subject: 1.0.17.40: Fix build on -raw-instance-init-vops platforms (probably)
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=004174191177a0845aa5d3d4087091f4f10e58a8;p=sbcl.git

1.0.17.40: Fix build on -raw-instance-init-vops platforms (probably)

        * Reported by Xach
---

diff --git a/src/compiler/generic/vm-ir2tran.lisp b/src/compiler/generic/vm-ir2tran.lisp
index 5df3845..4544f51 100644
--- a/src/compiler/generic/vm-ir2tran.lisp
+++ b/src/compiler/generic/vm-ir2tran.lisp
@@ -54,6 +54,8 @@
     (move-lvar-result node block locs lvar)))
 
 (defun emit-inits (node block name object lowtag instance-length inits args)
+  #!-raw-instance-init-vops
+  (declare (ignore instance-length))
   (let ((unbound-marker-tn nil)
         (funcallable-instance-tramp-tn nil))
     (dolist (init inits)
diff --git a/version.lisp-expr b/version.lisp-expr
index 131aade..ace191b 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; 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".)
-"1.0.17.39"
+"1.0.17.40"