;;; code for foreign symbol lookup should be here.
(defun find-foreign-symbol-in-table (name table)
(let ((prefixes
- #!+(or linux freebsd) #("" "ldso_stub__")
- #!+openbsd #("" "_")
- #!+sunos #("" "ldso_stub__")))
+ #!+(or osf1 sunos linux freebsd) #("" "ldso_stub__")
+ #!+openbsd #("")))
(declare (notinline some)) ; to suppress bug 117 bogowarning
(some (lambda (prefix)
(gethash (concatenate 'string prefix name)
table
nil))
prefixes)))
-
\f
;;;; stuff for debugging/tuning by collecting statistics on FOPs (?)