0.8.21.13:

[sbcl.git] / src / compiler / generic / vm-array.lisp

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)