From: Juho Snellman <jsnell@iki.fi>
Date: Fri, 2 Mar 2007 02:02:01 +0000 (+0000)
Subject: 1.0.3.9: Allow characters as string designators for SHADOW
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=df06965814a879aa8ccd9367f2b1c450daccc601;p=sbcl.git

1.0.3.9: Allow characters as string designators for SHADOW

         * Patch by Eric Marsden
---

diff --git a/NEWS b/NEWS
index 1e3b512..4b9ed18 100644
--- a/NEWS
+++ b/NEWS
@@ -11,6 +11,8 @@ changes in sbcl-1.0.4 relative to sbcl-1.0.3:
   * bug fix: type-checks for function arguments were compiled using the
     compiler policy settings of the wrong lexical environment (in 1.0.2
     and 1.0.3).
+  * bug fix: SHADOW accepts characters as string designators, as required
+    by the spec (thanks to Eric Marsden)
 
 changes in sbcl-1.0.3 relative to sbcl-1.0.2:
   * new platform: NetBSD/PPC.  (thanks to Aymeric Vincent)
diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp
index a902977..249ff05 100644
--- a/src/compiler/fndb.lisp
+++ b/src/compiler/fndb.lisp
@@ -204,7 +204,7 @@
 (defknown unexport (symbols-designator &optional package-designator) (eql t))
 (defknown shadowing-import (symbols-designator &optional package-designator)
   (eql t))
-(defknown shadow ((or symbol string list) &optional package-designator)
+(defknown shadow ((or symbol character string list) &optional package-designator)
   (eql t))
 (defknown (use-package unuse-package)
   ((or list package-designator) &optional package-designator) (eql t))
diff --git a/tests/packages.impure.lisp b/tests/packages.impure.lisp
index ddfdf18..a392aec 100644
--- a/tests/packages.impure.lisp
+++ b/tests/packages.impure.lisp
@@ -22,3 +22,5 @@
   (package-error (c) (princ c))
   (:no-error (&rest args) (error "(EXPORT :FOO) returned ~S" args)))
 
+(make-package "FOO")
+(assert (shadow #\a :foo))
diff --git a/version.lisp-expr b/version.lisp-expr
index 7b1062c..e48f52e 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.3.8"
+"1.0.3.9"