X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fload.lisp;h=2c3371b7b3dabdd28f5fbc62ff9c26ae731638b2;hb=8d490a4d6b9d7f156cf503826b3e3195e6f3ad39;hp=06655dda1d4b9ea24a35908bebda6ad1cb66d2dd;hpb=d57319a52914c481d89415c0860dc6b7ad90ddce;p=sbcl.git

diff --git a/src/code/load.lisp b/src/code/load.lisp
index 06655dd..2c3371b 100644
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -413,20 +413,6 @@
 	;; that this would go away?
 	(fill *current-fop-table* nil))))
   t)
-
-;;; This is used in in target-load and also genesis, using
-;;; *COLD-FOREIGN-SYMBOL-TABLE*. All the speculative prefix-adding
-;;; code for foreign symbol lookup should be here.
-(defun find-foreign-symbol-in-table (name table)
-  (let ((prefixes
-         #!+(or osf1 sunos linux freebsd netbsd darwin) #("" "ldso_stub__")
-	 #!+openbsd #("")))
-    (declare (notinline some)) ; to suppress bug 117 bogowarning
-    (some (lambda (prefix)
-	    (gethash (concatenate 'string prefix name)
-		     table
-		     nil))
-	  prefixes)))
 
 ;;;; stuff for debugging/tuning by collecting statistics on FOPs (?)