- ;; Doesn't take care of its own locking -- callers are responsible
- (maphash (lambda (name-and-datap info)
- (let* ((name (car name-and-datap))
- (datap (cdr name-and-datap))
- (table-address (linkage-info-address info))
- (real-address
- (ensure-dynamic-foreign-symbol-address name datap)))
- (aver (and table-address real-address))
- (write-linkage-table-entry table-address
- real-address
- datap)))
- *linkage-info*))
+ (dohash ((name-and-datap info) *linkage-info* :locked t)
+ (let* ((name (car name-and-datap))
+ (datap (cdr name-and-datap))
+ (table-address (linkage-info-address info))
+ (real-address
+ (ensure-dynamic-foreign-symbol-address name datap)))
+ (aver (and table-address real-address))
+ (write-linkage-table-entry table-address
+ real-address
+ datap))))