X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flate-vmdef.lisp;h=708ec0ea1ed4cacf49024107fcf7482e069b01d8;hb=2378406d6eda78090dfe05e372438495aeace5e0;hp=6cf9fd26bc4d52d6b7cc14198c5e9ba59f03483e;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git diff --git a/src/compiler/late-vmdef.lisp b/src/compiler/late-vmdef.lisp index 6cf9fd2..708ec0e 100644 --- a/src/compiler/late-vmdef.lisp +++ b/src/compiler/late-vmdef.lisp @@ -31,6 +31,6 @@ 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))