(in-package "SB!C")
-(file-comment
- "$Header$")
-
(defun note-this-location (vop kind)
#!+sb-doc
"NOTE-THIS-LOCATION VOP Kind
it."
(let ((loc (note-debug-location vop nil kind)))
(sb!assem:emit-postit (lambda (segment posn)
- (declare (ignore segment))
- (setf (location-info-label loc) posn))))
+ (declare (ignore segment))
+ (setf (location-info-label loc) posn))))
(values))