(:translate symbolp)
(:generator 12
(let ((is-symbol-label (if not-p drop-thru target)))
- (inst cmp value *nil-value*)
+ (inst cmp value nil-value)
(inst jmp :e is-symbol-label)
(test-type value target not-p symbol-header-type))
DROP-THRU))
(define-vop (check-symbol check-type)
(:generator 12
(let ((error (generate-error-code vop object-not-symbol-error value)))
- (inst cmp value *nil-value*)
+ (inst cmp value nil-value)
(inst jmp :e drop-thru)
(test-type value error t symbol-header-type))
DROP-THRU
(:translate consp)
(:generator 8
(let ((is-not-cons-label (if not-p target drop-thru)))
- (inst cmp value *nil-value*)
+ (inst cmp value nil-value)
(inst jmp :e is-not-cons-label)
(test-type value target not-p list-pointer-type))
DROP-THRU))
(define-vop (check-cons check-type)
(:generator 8
(let ((error (generate-error-code vop object-not-cons-error value)))
- (inst cmp value *nil-value*)
+ (inst cmp value nil-value)
(inst jmp :e error)
(test-type value error t list-pointer-type)
(move result value))))