- addr
- sb!vm:linkage-table-space-end)
- (maphash (lambda (name info)
- (let ((table-addr (linkage-info-address info)))
- (when (<= table-addr
- addr
- (+ table-addr sb!vm:linkage-table-entry-size))
- (return-from sap-foreign-symbol name))))
- *linkage-info*))
+ addr
+ sb!vm:linkage-table-space-end)
+ (maphash (lambda (name-and-datap info)
+ (let ((table-addr (linkage-info-address info)))
+ (when (<= table-addr
+ addr
+ (+ table-addr sb!vm:linkage-table-entry-size))
+ (return-from sap-foreign-symbol (car name-and-datap)))))
+ *linkage-info*))