X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsrctran.lisp;h=54da0eefdcc015a3d4a556608429e934d2fcb570;hb=11b8fcf55c80cb2686fb49663fa4d96f9b152ce4;hp=f9b0161ea2392f07b699e4345aae598211866de3;hpb=2f5fe7a459a3c6a5afcb7b2496552af56feaf8b7;p=sbcl.git

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index f9b0161..54da0ee 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -3301,7 +3301,7 @@
               *universal-type*)))))
 
 (defoptimizer (array-element-type derive-type) ((array))
-  (let* ((array-type (continuation-type array)))
+  (let ((array-type (continuation-type array)))
     (labels ((consify (list)
               (if (endp list)
                   '(eql nil)