X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fconstraint.lisp;h=5056510d55b4756b01c393820dce424557bf928a;hb=beddcfe1ea23d2cfdddde2fa7cde6436799715a2;hp=88a8252b0359279a87d49be115233ea92bc1d801;hpb=74a2974b2fd2fd94bd0b58d828f846a24cbdf3d7;p=sbcl.git

diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp
index 88a8252..5056510 100644
--- a/src/compiler/constraint.lisp
+++ b/src/compiler/constraint.lisp
@@ -427,6 +427,7 @@
          (when ,constraints
            (let ((,min (conset-min ,conset))
                  (,max (conset-max ,conset)))
+             (declare (optimize speed))
              (map nil (lambda (constraint)
                         (declare (type constraint constraint))
                         (let ((number (constraint-number constraint)))