;;; as opposed to C's "extern"). The table contains symbols known at
;;; the time that the program was built, but not symbols defined in
;;; object files which have been loaded dynamically since then.
+#!-sb-dynamic-core
(declaim (type hash-table *static-foreign-symbols*))
+#!-sb-dynamic-core
(defvar *static-foreign-symbols* (make-hash-table :test 'equal))
(declaim
(defun find-foreign-symbol-address (name)
"Returns the address of the foreign symbol NAME, or NIL. Does not enter the
symbol in the linkage table, and never returns an address in the linkage-table."
- (or (find-foreign-symbol-in-table name *static-foreign-symbols*)
+ (or #!-sb-dynamic-core
+ (find-foreign-symbol-in-table name *static-foreign-symbols*)
(find-dynamic-foreign-symbol-address name)))
(defun foreign-symbol-address (name &optional datap)