From ee18ab21d816b380769748944650e64bfd6a75dc Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Wed, 29 Jul 2009 15:34:15 +0000 Subject: [PATCH] 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. --- NEWS | 2 ++ contrib/sb-grovel/foreign-glue.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index 907941abb..0a00d6177 100644 --- 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 4070e74f4..dcbda61d1 100644 --- 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 fcd4f0246..11ba10b42 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.30.11" +"1.0.30.12" -- 2.11.4.GIT