- (if (zerop (ldb (byte 1 13) bad-inst))
- (let* ((rs2 (ldb (byte 5 0) bad-inst))
- (op2 (sb!kernel:make-lisp-obj (context-register context rs2))))
- (if (fixnump op2)
- (values #.(error-number-or-lose 'unknown-error) nil)
- (values #.(error-number-or-lose 'object-not-fixnum-error)
- (list (sb!c::make-sc-offset
- descriptor-reg-sc-number
- rs2)))))
- (values #.(error-number-or-lose 'unknown-error) nil))
- (values #.(error-number-or-lose 'object-not-fixnum-error)
- (list (sb!c::make-sc-offset descriptor-reg-sc-number
- rs1))))))
+ (if (zerop (ldb (byte 1 13) bad-inst))
+ (let* ((rs2 (ldb (byte 5 0) bad-inst))
+ (op2 (sb!kernel:make-lisp-obj (context-register context rs2))))
+ (if (fixnump op2)
+ (values #.(error-number-or-lose 'unknown-error) nil)
+ (values #.(error-number-or-lose 'object-not-fixnum-error)
+ (list (sb!c::make-sc-offset
+ descriptor-reg-sc-number
+ rs2)))))
+ (values #.(error-number-or-lose 'unknown-error) nil))
+ (values #.(error-number-or-lose 'object-not-fixnum-error)
+ (list (sb!c::make-sc-offset descriptor-reg-sc-number
+ rs1))))))