- ;; check to see if we can get the context by calling
- ;; nth-interrupt-context, otherwise use the (%caller-frame-and-pc
- ;; vop).
- (let ((context (nth-interrupt-context 0)))
- (if context
- (compute-calling-frame
- (int-sap (sb!vm:context-register context
- sb!vm::cfp-offset))
- (context-pc context) nil)
- (multiple-value-bind (fp pc) (%caller-frame-and-pc)
- (compute-calling-frame (descriptor-sap fp) pc nil)))))
+ (multiple-value-bind (fp pc) (%caller-frame-and-pc)
+ (compute-calling-frame (descriptor-sap fp) pc nil)))