From: Christophe R. <cr...@us...> - 2003-10-29 19:15:07
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1:/tmp/cvs-serv4767/src/code Modified Files: target-load.lisp Log Message: 0.8.5.15: More SB-POSIX stuff ... merge patch from Zach Beane (sbcl-devel 2003-10-28) to wrap the stat S_ISFOO macros into callable functions ... merge patch CSR sbcl-devel to detect presence of various symbols at compile-time for conditional function definition ... slight frobs to make these two coexist: "interface" must depend on "alien", and these calls are NEVER-FAILS ... tests from Xach via #lisp IRC ... as yet unresolved: duplication of UNIX-DSO stuff Summarize contrib successes at the end of make.sh ... hope no-one's trisdekaphobic :-) Index: target-load.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/target-load.lisp,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- target-load.lisp 18 Oct 2003 10:14:52 -0000 1.30 +++ target-load.lisp 29 Oct 2003 19:14:59 -0000 1.31 @@ -298,9 +298,12 @@ ;;; SB!SYS:GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS is in foreign.lisp, on ;;; platforms that have dynamic loading +(defun foreign-symbol-address-as-integer-or-nil (foreign-symbol) + (or (find-foreign-symbol-in-table foreign-symbol *static-foreign-symbols*) + (sb!sys:get-dynamic-foreign-symbol-address foreign-symbol))) + (defun foreign-symbol-address-as-integer (foreign-symbol) - (or (find-foreign-symbol-in-table foreign-symbol *static-foreign-symbols*) - (sb!sys:get-dynamic-foreign-symbol-address foreign-symbol) + (or (foreign-symbol-address-as-integer-or-nil foreign-symbol) (error "unknown foreign symbol: ~S" foreign-symbol))) (defun foreign-symbol-address (symbol) |