- (%test-lowtag value when-false t lowtag
- :temp temp :temp-loaded temp-loaded)
- (inst ldb (- 3 lowtag) value temp)
- (do ((remaining headers (cdr remaining)))
- ((null remaining))
- (let ((header (car remaining))
- (last (null (cdr remaining))))
- (cond
- ((atom header)
- (if last
- (inst bci equal nil header temp target)
- (inst bci := nil header temp when-true)))
- (t
- (let ((start (car header))
- (end (cdr header)))
- (unless (= start bignum-widetag)
- (inst bci :> nil start temp when-false))
- (if last
- (inst bci greater-or-equal nil end temp target)
- (inst bci :>= nil end temp when-true)))))))
- (emit-label drop-through)))))
+ (%test-lowtag value when-false t lowtag
+ :temp temp :temp-loaded temp-loaded)
+ (inst ldb (- 3 lowtag) value temp)
+ (do ((remaining headers (cdr remaining)))
+ ((null remaining))
+ (let ((header (car remaining))
+ (last (null (cdr remaining))))
+ (cond
+ ((atom header)
+ (if last
+ (inst bci equal nil header temp target)
+ (inst bci := nil header temp when-true)))
+ (t
+ (let ((start (car header))
+ (end (cdr header)))
+ (unless (= start bignum-widetag)
+ (inst bci :> nil start temp when-false))
+ (if last
+ (inst bci greater-or-equal nil end temp target)
+ (inst bci :>= nil end temp when-true)))))))
+ (emit-label drop-through)))))