-(defun %test-lowtag-and-headers (value target not-p lowtag function-p headers
- &key temp)
- (let ((drop-through (gen-label)))
- (%test-lowtag value (if not-p drop-through target) not-p lowtag
- :temp temp)
- (%test-headers value target not-p function-p headers
- :temp temp :drop-through drop-through)))
-