From: Thiemo Seufer <ths@networkno.de>
Date: Wed, 17 Dec 2008 14:36:11 +0000 (+0000)
Subject: 1.0.23.43: More consistent coding style for mips/array.lisp
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6534a9b45728ab44d70ddda027682661ed48869c;p=sbcl.git

1.0.23.43: More consistent coding style for mips/array.lisp
---

diff --git a/src/compiler/mips/array.lisp b/src/compiler/mips/array.lisp
index 801172b..e9dafbc 100644
--- a/src/compiler/mips/array.lisp
+++ b/src/compiler/mips/array.lisp
@@ -144,7 +144,7 @@
   (let* ((elements-per-word (floor n-word-bits bits))
          (bit-shift (1- (integer-length elements-per-word))))
     `(progn
-       (define-vop (,(symbolicate 'DATA-VECTOR-REF/ type))
+       (define-vop (,(symbolicate "DATA-VECTOR-REF/" type))
          (:note "inline array access")
          (:translate data-vector-ref)
          (:policy :fast-safe)
@@ -170,7 +170,7 @@
            (inst srl result temp)
            (inst and result ,(1- (ash 1 bits)))
            (inst sll value result n-fixnum-tag-bits)))
-       (define-vop (,(symbolicate 'DATA-VECTOR-REF-C/ type))
+       (define-vop (,(symbolicate "DATA-VECTOR-REF-C/" type))
          (:translate data-vector-ref)
          (:policy :fast-safe)
          (:args (object :scs (descriptor-reg)))
@@ -195,7 +195,7 @@
                (inst srl result (* extra ,bits)))
              (unless (= extra ,(1- elements-per-word))
                (inst and result ,(1- (ash 1 bits)))))))
-       (define-vop (,(symbolicate 'DATA-VECTOR-SET/ type))
+       (define-vop (,(symbolicate "DATA-VECTOR-SET/" type))
          (:note "inline array store")
          (:translate data-vector-set)
          (:policy :fast-safe)
@@ -244,7 +244,7 @@
               (move result zero-tn))
              (unsigned-reg
               (move result value)))))
-       (define-vop (,(symbolicate 'DATA-VECTOR-SET-C/ type))
+       (define-vop (,(symbolicate "DATA-VECTOR-SET-C/" type))
          (:translate data-vector-set)
          (:policy :fast-safe)
          (:args (object :scs (descriptor-reg))
diff --git a/version.lisp-expr b/version.lisp-expr
index 429d58c..f4235f7 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.23.42"
+"1.0.23.43"