From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Thu, 8 May 2008 08:53:31 +0000 (+0000)
Subject: 1.0.16.24: slightly more verbose errors for SB-FOO symbols in genesis
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4d9fb924ec5e084743813bf30528af87ce87c41e;p=sbcl.git

1.0.16.24: slightly more verbose errors for SB-FOO symbols in genesis

 * ...faster to fix when the error tells you what the problematic
   symbol was.
---

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index a67217c..2e68ef4 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -1108,6 +1108,8 @@ core and return a descriptor to it."
         *cl-package*
         ;; ordinary case
         (let ((result (symbol-package symbol)))
+          (unless (package-ok-for-target-symbol-p result)
+            (bug "~A in bad package for target: ~A" symbol result))
           (aver (package-ok-for-target-symbol-p result))
           result))))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index e8193af..c22ac8c 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.16.23"
+"1.0.16.24"