From 2b64a94305c23ebc8e6f3ff78aef1c6f26e92ef3 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sun, 19 Apr 2015 21:24:00 +0300 Subject: [PATCH] Add source locations for define-primitive-object. --- build-order.lisp-expr | 8 ++++---- src/compiler/generic/vm-macs.lisp | 1 + 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/build-order.lisp-expr b/build-order.lisp-expr index e1287f2e1..1e92c5c96 100644 --- a/build-order.lisp-expr +++ b/build-order.lisp-expr @@ -318,6 +318,10 @@ ;; ("src/code/defbangmacro" was here until sbcl-0.6.7.3.) ("src/compiler/macros") + + ("src/compiler/globaldb") + ("src/compiler/info-functions") + ("src/compiler/generic/vm-macs") ("src/compiler/generic/objdef") @@ -339,10 +343,6 @@ ;; needs "backend" ("src/compiler/target/backend-parms") - ;; for INFO and SB!XC:MACRO-FUNCTION, needed by defmacro.lisp - ("src/compiler/globaldb") - ("src/compiler/info-functions") - ("src/code/force-delayed-defbangconstants") ("src/code/defmacro") ("src/code/force-delayed-defbangmacros") diff --git a/src/compiler/generic/vm-macs.lisp b/src/compiler/generic/vm-macs.lisp index 25735a73c..286dafc64 100644 --- a/src/compiler/generic/vm-macs.lisp +++ b/src/compiler/generic/vm-macs.lisp @@ -130,6 +130,7 @@ ,lowtag ',(inits)))) `(progn (eval-when (:compile-toplevel :load-toplevel :execute) + (setf (info :type :source-location ',name) (source-location)) (!%define-primitive-object ',(make-primitive-object :name name :widetag widetag -- 2.11.4.GIT