X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcold%2Fshared.lisp;h=62299010701d0a5122b2e686d3b5b4fdad265f0a;hb=a10eba73462a7203914114f3a4bdac98c741ec08;hp=959ecec9f178f1facd8aa0b43bc1413104205526;hpb=bee53328c93be3433477821131ab805557476c8b;p=sbcl.git

diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index 959ecec..6229901 100644
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -274,7 +274,7 @@
     ;; warnings and remove support for this flag. -- WHN 19990323)
     :ignore-failure-p))
 
-(defparameter *stems-and-flags* (read-from-file "stems-and-flags.lisp-expr"))
+(defparameter *stems-and-flags* (read-from-file "build-order.lisp-expr"))
 
 (defmacro do-stems-and-flags ((stem flags) &body body)
   (let ((stem-and-flags (gensym "STEM-AND-FLAGS-")))
@@ -287,7 +287,7 @@
 (let ((stems (make-hash-table :test 'equal)))
   (do-stems-and-flags (stem flags)
     (if (gethash stem stems)
-      (error "duplicate stem ~S in stems-and-flags data" stem)
+      (error "duplicate stem ~S in *STEMS-AND-FLAGS*" stem)
       (setf (gethash stem stems) t))
     (let ((set-difference (set-difference flags *expected-stem-flags*)))
       (when set-difference