-(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) nil lowtag :temp temp)
- (%test-headers value target not-p function-p headers
- :drop-through drop-through :temp temp)))
-