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

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index 87d8939..2e41227 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)