;;; references to functions.
(defun fix-core-source-info (info object source-info)
(declare (type source-info info) (type core-object object))
;;; references to functions.
(defun fix-core-source-info (info object source-info)
(declare (type source-info info) (type core-object object))