X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fvm-array.lisp;h=d09673da464ecdbfb9f8ddf9f67aefc9530c4f6c;hb=69ef68ba7393e3492c1b4a756d1140f71c2922bc;hp=f81b1834f0b4197cbe496ad21ea6c8897ffca167;hpb=bf27595fb567015495b7131707cc85af361567fe;p=sbcl.git

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)