X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fconstraint.lisp;h=123322087a2616684c5ab3277112f45af78d7c7d;hb=3dd90b64c37103d9c86d32b6c36277a6cea4098a;hp=ba008cd267a4e3e5b195a1e10dad1c3fdc7e46c3;hpb=0223a229f6fd1b4cfc809e30e35361df99fb2340;p=sbcl.git

diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp
index ba008cd..1233220 100644
--- a/src/compiler/constraint.lisp
+++ b/src/compiler/constraint.lisp
@@ -155,7 +155,8 @@
 
   (defmacro do-conset-elements ((constraint conset &optional result) &body body)
     (with-unique-names (vector index start end
-                               ignore constraint-universe-end)
+                               #-sb-xc-host ignore
+                               #-sb-xc-host constraint-universe-end)
       (let* ((constraint-universe #+sb-xc-host '*constraint-universe*
                                   #-sb-xc-host (gensym))
              (with-array-data