projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.3.22: fix with-pinned-object buglets
[sbcl.git]
/
src
/
code
/
foreign.lisp
diff --git
a/src/code/foreign.lisp
b/src/code/foreign.lisp
index
49994d6
..
430614e
100644
(file)
--- a/
src/code/foreign.lisp
+++ b/
src/code/foreign.lisp
@@
-95,7
+95,11
@@
if the symbol isn't found."
#!+os-provides-dlopen
(reopen-shared-objects)
#!+linkage-table
#!+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
;;; Cleanups before saving a core
#-sb-xc-host
@@
-112,6
+116,7
@@
if the symbol isn't found."
#!+os-provides-dlopen
(close-shared-objects))
#!+os-provides-dlopen
(close-shared-objects))
+(declaim (maybe-inline sap-foreign-symbol))
(defun sap-foreign-symbol (sap)
(declare (ignorable sap))
#-sb-xc-host
(defun sap-foreign-symbol (sap)
(declare (ignorable sap))
#-sb-xc-host
@@
-151,9
+156,10
@@
if the symbol isn't found."
(defun !foreign-cold-init ()
(dolist (symbol *!initial-foreign-symbols*)
(setf (gethash (car symbol) *static-foreign-symbols*) (cdr symbol)))
(defun !foreign-cold-init ()
(dolist (symbol *!initial-foreign-symbols*)
(setf (gethash (car symbol) *static-foreign-symbols*) (cdr symbol)))
+ #!+(and os-provides-dlopen (not win32))
+ (setf *runtime-dlhandle* (dlopen-or-lose))
#!+os-provides-dlopen
#!+os-provides-dlopen
- (setf *runtime-dlhandle* (dlopen-or-lose)
- *shared-objects* nil))
+ (setf *shared-objects* nil))
#!-os-provides-dlopen
(define-unsupported-fun load-shared-object)
#!-os-provides-dlopen
(define-unsupported-fun load-shared-object)