X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforeign.lisp;h=b289ba639de8c31a0c0be4ef8c81a57fe45c81c1;hb=22c1de0a40df83bb5628974010a879cb2c17ff53;hp=87d8939f7030acfe774c03e9ed47e50fb1f726b2;hpb=bb7c5beef3a2c45f0ff99f8038409dc4787aa295;p=sbcl.git

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index 87d8939..b289ba6 100644
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -52,13 +52,7 @@
 ;;; On any OS where we don't support foreign object file loading, any
 ;;; query of a foreign symbol value is answered with "no definition
 ;;; known", i.e. NIL.
-;;;
-;;; (On any OS which *does* support foreign object file loading, this
-;;; placeholder implementation is overwritten by a subsequent real
-;;; implementation.)
-;;;
-;;; You may want to use SB-SYS:FOREIGN-SYMBOL-ADDRESS instead of
-;;; calling this directly; see code/target-load.lisp.
+#-(or linux sunos FreeBSD OpenBSD)
 (defun get-dynamic-foreign-symbol-address (symbol)
   (declare (type simple-string symbol) (ignore symbol))
   nil)
@@ -188,6 +182,14 @@
       (unless (zerop possible-result)
 	(return possible-result)))))
 
+;;; Dan Barlow's quick summary from IRC 2003-06-21:
+;;;   fwiw, load-foreign does random stuff with ld so that you can use
+;;;   it with static libraries
+;;;   if you have shared objects, load-1-foreign will do fine
+;;; and
+;;;   I think my position on this matter is consistent with Tim Moore's:
+;;;   use (cmucl equivalent of) load-1-foreign, load-foreign is arse
+;;;   though he may say ass
 (defun load-foreign (files
 		     &key
 		     (libraries '("-lc"))