0.8.21.13:

        * The 1st of April is over, so it's time to be able to build
          SBCL again: remove call of EVAL in MAKE-SAETP.
        * Define cross-versions of some modular funs.

diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp
index 51efcbf..fa6ac68 100644 (file)
--- a/src/code/cross-misc.lisp
+++ b/src/code/cross-misc.lisp
@@ -146,8 +146,13 @@
   (values array start end 0))
 
 #!-(or alpha x86-64)
-(defun sb!vm::ash-left-mod32 (integer amount)
-  (ldb (byte 32 0) (ash integer amount)))
+(progn
+  (defun sb!vm::ash-left-mod32 (integer amount)
+    (ldb (byte 32 0) (ash integer amount)))
+  (defun sb!vm::logxor-mod32 (x y)
+    (ldb (byte 32 0) (logxor x y)))
+  (defun sb!vm::lognot-mod32 (x)
+    (ldb (byte 32 0) (lognot x))))
 #!+(or alpha x86-64)
 (defun sb!vm::ash-left-mod64 (integer amount)
   (ldb (byte 64 0) (ash integer amount)))

diff --git a/src/compiler/generic/vm-array.lisp b/src/compiler/generic/vm-array.lisp
index f81b183..d09673d 100644 (file)
--- a/src/compiler/generic/vm-array.lisp
+++ b/src/compiler/generic/vm-array.lisp
@@ -23,7 +23,7 @@
              primitive-type-name
              &key (n-pad-elements 0) complex-typecode (importance 0)
              &aux (typecode
-                   (eval (symbolicate primitive-type-name "-WIDETAG")))))
+                   (symbol-value (symbolicate primitive-type-name "-WIDETAG")))))
            (:copier nil))
   ;; the element specifier, e.g. BASE-CHAR or (UNSIGNED-BYTE 4)
   (specifier (missing-arg) :type type-specifier :read-only t)

diff --git a/version.lisp-expr b/version.lisp-expr
index 307173a..10e5ba1 100644 (file)
--- 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".)
-"0.8.21.12"
+"0.8.21.13"