From 2b221b3e54ec6942301db46f8fad35ff06a8fe76 Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Sat, 2 Apr 2005 06:32:29 +0000 Subject: [PATCH] 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. --- src/code/cross-misc.lisp | 9 +++++++-- src/compiler/generic/vm-array.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp index 51efcbf..fa6ac68 100644 --- 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 --- 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 --- 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" -- 1.7.10.4