X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmacros.lisp;h=7ec86bdf5d0f2469cb2e52d2ab30f2da7cdf397d;hb=d25e3478acccec70402ff32554669a982be8e281;hp=9a291756c98b3735794e76d2a690ed3e27929a0a;hpb=08d05510b51708853ca998154d8096b21d85edab;p=sbcl.git

diff --git a/src/compiler/macros.lisp b/src/compiler/macros.lisp
index 9a29175..7ec86bd 100644
--- a/src/compiler/macros.lisp
+++ b/src/compiler/macros.lisp
@@ -229,6 +229,12 @@
                                            attribute-names
                                            'get-setf-expansion)))
 
+;;; Otherwise the source locations for DEFTRANSFORM, DEFKNOWN, &c
+;;; would be off by one toplevel form as their source locations are
+;;; determined before cross-compiling where the above PROGN is not
+;;; seen.
+#+sb-xc (progn)
+
 ;;; And now for some gratuitous pseudo-abstraction...
 ;;;
 ;;; ATTRIBUTES-UNION