-;;; SOURCE-INFO list. We also check that there are no outstanding forward
-;;; references to functions.
-(defun fix-core-source-info (info object source-info)
- (declare (type source-info info) (type core-object object))
- (assert (zerop (hash-table-count (core-object-patch-table object))))
- (let ((res (debug-source-for-info info)))
- (dolist (sinfo res)
- (setf (debug-source-info sinfo) source-info))
+;;; SOURCE-INFO list. We also check that there are no outstanding
+;;; forward references to functions.
+(defun fix-core-source-info (info object &optional function)
+ (declare (type core-object object)
+ (type (or null function) function))
+ (aver (zerop (hash-table-count (core-object-patch-table object))))
+ (let ((source (debug-source-for-info info)))
+ (setf (debug-source-function source) function)