(let ((lowtag (if function-p fun-pointer-lowtag other-pointer-lowtag)))
(multiple-value-bind (equal less-or-equal greater-or-equal when-true when-false)
;; EQUAL, LESS-OR-EQUAL and GREATER-OR-EQUAL are the conditions for
(let ((lowtag (if function-p fun-pointer-lowtag other-pointer-lowtag)))
(multiple-value-bind (equal less-or-equal greater-or-equal when-true when-false)
;; EQUAL, LESS-OR-EQUAL and GREATER-OR-EQUAL are the conditions for