X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforeign.lisp;h=bd89cd83e8e977a0cfa38553a93a0ab36f06cebd;hb=77d7fddb855305e783c100bfe9b6b46bdb05e4b6;hp=edc559c65f41cabad4899a6cd60a1c04f2abec0c;hpb=32eb2c37fb2d9b12c5b5f674fe33b77f611120cb;p=sbcl.git diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp index edc559c..bd89cd8 100644 --- a/src/code/foreign.lisp +++ b/src/code/foreign.lisp @@ -35,8 +35,8 @@ (values (or (gethash extern table) (gethash (concatenate 'base-string - #!+(and darwin (or x86 x86-64)) "_ldso_stub__" - #!-(and darwin (or x86 x86-64)) "ldso_stub__" + #!+(and darwin (or x86 x86-64 ppc)) "_ldso_stub__" + #!-(and darwin (or x86 x86-64 ppc)) "ldso_stub__" extern) table))))) (defun find-foreign-symbol-address (name) @@ -107,7 +107,7 @@ if the symbol isn't found." ;;; Cleanups before saving a core #-sb-xc-host (defun foreign-deinit () - #!+(and os-provides-dlopen (not linkage-table)) + #!+(and os-provides-dlopen (or (not linkage-table) win32)) (when (dynamic-foreign-symbols-p) (warn "~@