1.0.30.12: make SB-GROVEL ASDF:OOS :FORCE T friendly

 * Use INTERN instead of GENTEMP to generate padding names.

   Patch by Leslie Polzer.

diff --git a/NEWS b/NEWS
index 907941a..0a00d61 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -17,6 +17,8 @@ changes relative to sbcl-1.0.30:
     absence of an explicit DEFGENERIC.
   * improvement: DESCRIBE now reports on symbols naming undefined
     but assumed or declared function as well.
+  * improvement: recompilation of systems using SB-GROVEL now works
+    (thanks to Leslie Polzer)
   * bug fix: the low-level debugger had 32-bit assumptions and was missing
     information about some array types. (thanks to Luis Oliveira)
   * bug fix: moderately complex combinations of inline expansions could

diff --git a/contrib/sb-grovel/foreign-glue.lisp b/contrib/sb-grovel/foreign-glue.lisp
index 4070e74..dcbda61 100644 (file)
--- a/contrib/sb-grovel/foreign-glue.lisp
+++ b/contrib/sb-grovel/foreign-glue.lisp
@@ -97,7 +97,7 @@
                  :type `(array char ,len)
                  :offset offset
                  :size len
-                 :name (gentemp "PADDING")))
+                 :name (intern (format nil "PADDING-~D-~D" len offset))))
 (defun mk-struct (offset &rest children)
   (make-instance 'struct :name (gentemp "STRUCT")
                  :children (remove nil children)

diff --git a/version.lisp-expr b/version.lisp-expr
index fcd4f02..11ba10b 100644 (file)
--- 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.30.11"
+"1.0.30.12"