;;; Add the linkage information about a foreign symbol in the
;;; persistent table, and write the linkage-table entry.
(defun link-foreign-symbol (name datap)
(/show0 "link-foreign-symbol")
(let ((table-address (+ (* (hash-table-count *linkage-info*)
;;; Add the linkage information about a foreign symbol in the
;;; persistent table, and write the linkage-table entry.
(defun link-foreign-symbol (name datap)
(/show0 "link-foreign-symbol")
(let ((table-address (+ (* (hash-table-count *linkage-info*)