(let ((extern (extern-alien-name name)))
(values
(or (gethash extern table)
- (gethash (concatenate 'base-string "ldso_stub__" extern) table)))))
+ (gethash (concatenate 'base-string
+ #!+(and darwin (or x86 x86-64)) "_ldso_stub__"
+ #!-(and darwin (or x86 x86-64)) "ldso_stub__"
+ extern) table)))))
(defun find-foreign-symbol-address (name)
"Returns the address of the foreign symbol NAME, or NIL. Does not enter the
#!+os-provides-dlopen
(reopen-shared-objects)
#!+linkage-table
- (update-linkage-table))
+ ;; Don't warn about undefined aliens on startup. The same core can
+ ;; reasonably be expected to work with different versions of the
+ ;; same library.
+ (handler-bind ((style-warning #'muffle-warning))
+ (update-linkage-table)))
;;; Cleanups before saving a core
#-sb-xc-host