projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.45.10: tools-for-build/Makefile path fixes
[sbcl.git]
/
src
/
compiler
/
late-vmdef.lisp
diff --git
a/src/compiler/late-vmdef.lisp
b/src/compiler/late-vmdef.lisp
index
145ef05
..
708ec0e
100644
(file)
--- a/
src/compiler/late-vmdef.lisp
+++ b/
src/compiler/late-vmdef.lisp
@@
-12,9
+12,6
@@
(in-package "SB!C")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
(defun note-this-location (vop kind)
#!+sb-doc
"NOTE-THIS-LOCATION VOP Kind
(defun note-this-location (vop kind)
#!+sb-doc
"NOTE-THIS-LOCATION VOP Kind
@@
-34,6
+31,6
@@
it."
(let ((loc (note-debug-location vop nil kind)))
(sb!assem:emit-postit (lambda (segment posn)
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))
(values))