-(defun do-core-fixups (code fixups)
- (declare (list fixups))
- (dolist (info fixups)
- (let* ((kind (first info))
- (fixup (second info))
+(defun do-core-fixups (code fixup-notes)
+ (declare (list fixup-notes))
+ (dolist (note fixup-notes)
+ (let* ((kind (fixup-note-kind note))
+ (fixup (fixup-note-fixup note))
+ (position (fixup-note-position note))