-(def!method print-object ((fixup fixup) stream)
- (print-unreadable-object (fixup stream :type t)
- (format stream
- ":FLAVOR ~S :NAME ~S :OFFSET ~S"
- (fixup-flavor fixup)
- (fixup-name fixup)
- (fixup-offset fixup))))
-
-;;; KLUDGE: Despite its name, this is not a list of FIXUP objects, but rather a
-;;; list of `(,KIND ,FIXUP ,POSN). Perhaps this non-mnemonicity could be
-;;; reduced by naming what's currently a FIXUP structure a FIXUP-REQUEST, and
-;;; then renaming *FIXUPS* to *NOTED-FIXUPS*.-- WHN 19990905
-(defvar *fixups*)