- 0
- (lambda (segment posn)
- (declare (ignore segment))
- ;; Why use EMIT-BACK-PATCH to cause this PUSH to
- ;; be done later, instead of just doing it now?
- ;; I'm not sure. Perhaps there's some concern
- ;; that POSN isn't known accurately now? Perhaps
- ;; there's a desire for all fixing up to go
- ;; through EMIT-BACK-PATCH whether it needs to or
- ;; not? -- WHN 19990905
- (push (list kind fixup posn) *fixups*)))
+ 0
+ (lambda (segment posn)
+ (declare (ignore segment))
+ ;; Why use EMIT-BACK-PATCH to cause this PUSH to
+ ;; be done later, instead of just doing it now?
+ ;; I'm not sure. Perhaps there's some concern
+ ;; that POSN isn't known accurately now? Perhaps
+ ;; there's a desire for all fixing up to go
+ ;; through EMIT-BACK-PATCH whether it needs to or
+ ;; not? -- WHN 19990905
+ #!+sb-show
+ (when *show-fixups-being-pushed-p*
+ (/show "PUSHING FIXUP" kind fixup posn))
+ (push (make-fixup-note kind fixup posn) *fixup-notes*)))