From: Gabor Melis <mega@hotpop.com>
Date: Thu, 5 Jan 2006 14:04:23 +0000 (+0000)
Subject: 0.9.8.11:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3f1617677f5af09b4e23ea345945df945b043e1c;p=sbcl.git

0.9.8.11:
  * fix compiler looping on #p"" when compiled with high debug
    settings (thanks to Xophe support)
  * add the tests missed in .10
---

diff --git a/src/compiler/ir1tran-lambda.lisp b/src/compiler/ir1tran-lambda.lisp
index decdfce..34a4cb0 100644
--- a/src/compiler/ir1tran-lambda.lisp
+++ b/src/compiler/ir1tran-lambda.lisp
@@ -887,7 +887,9 @@
                                  (policy *lexenv* (>= insert-debug-catch 2)))
                             `((catch (locally
                                          (declare (optimize (insert-step-conditions 0)))
-                                    (make-symbol "SB-DEBUG-CATCH-TAG"))
+                                       ;; Using MAKE-SYMBOL would lead
+                                       ;; to recursive disaster.
+                                       (%make-symbol "SB-DEBUG-CATCH-TAG"))
                                 ,@forms))
                             forms))
                  (forms (if (eq result-type *wild-type*)
diff --git a/tests/symbol.pure.lisp b/tests/symbol.pure.lisp
new file mode 100644
index 0000000..b7f3f26
--- /dev/null
+++ b/tests/symbol.pure.lisp
@@ -0,0 +1,21 @@
+;;;; miscellaneous tests of SYMBOL-related stuff
+
+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; While most of SBCL is derived from the CMU CL system, the test
+;;;; files (like this one) were written from scratch after the fork
+;;;; from CMU CL.
+;;;;
+;;;; This software is in the public domain and is provided with
+;;;; absolutely no warranty. See the COPYING and CREDITS files for
+;;;; more information.
+
+(in-package "CL-USER")
+
+;;; Reported by Paul F. Dietz
+(with-test (:name (:symbol :non-simple-string-name))
+  (let ((sym (make-symbol (make-array '(1) :element-type 'character
+                                      :adjustable t :initial-contents "X"))))
+    (assert (simple-string-p (symbol-name sym)))
+    (print sym (make-broadcast-stream))))
diff --git a/version.lisp-expr b/version.lisp-expr
index 3a61685..e6a68d3 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".)
-"0.9.8.10"
+"0.9.8.11"