(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)
+ (let ((source (debug-source-for-info info :function function)))
(dolist (info (core-object-debug-info object))
(setf (debug-info-source info) source)))
(setf (core-object-debug-info object) nil)