-(defun %test-lowtag-and-headers (value target not-p lowtag function-p headers)
- (let ((drop-through (gen-label)))
- (%test-lowtag value (if not-p drop-through target) nil lowtag)
- (%test-headers value target not-p function-p headers drop-through t)))
-
-