[Sbcl-commits] CVS: sbcl/src/compiler fndb.lisp,1.114,1.115 ir1opt.lisp,1.114,1.115

[<me...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24199/src/compiler

Modified Files:
	fndb.lisp ir1opt.lisp 
Log Message:
0.9.8.10:
  * bug fix: allow non-simple string symbol names (reported by Paul
    Dietz)


Index: fndb.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -d -r1.114 -r1.115
--- fndb.lisp	11 Oct 2005 19:45:14 -0000	1.114
+++ fndb.lisp	5 Jan 2006 11:18:00 -0000	1.115
@@ -164,6 +164,7 @@
 (defknown get-properties (list list) (values t t list) (foldable flushable))
 (defknown symbol-name (symbol) simple-string (movable foldable flushable))
 (defknown make-symbol (string) symbol (flushable))
+(defknown %make-symbol (simple-string) symbol (flushable))
 (defknown copy-symbol (symbol &optional t) symbol (flushable))
 (defknown gensym (&optional (or string unsigned-byte)) symbol ())
 (defknown symbol-package (symbol) (or sb!xc:package null) (flushable))
@@ -1545,4 +1546,3 @@
   (values)
   ())
 (defknown style-warn (string &rest t) null ())
-

Index: ir1opt.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1opt.lisp,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -d -r1.114 -r1.115
--- ir1opt.lisp	15 Nov 2005 04:13:43 -0000	1.114
+++ ir1opt.lisp	5 Jan 2006 11:18:00 -0000	1.115
@@ -1879,3 +1879,6 @@
 
   (unless do-not-optimize
     (setf (node-reoptimize cast) nil)))
+
+(deftransform make-symbol ((string) (simple-string))
+  `(%make-symbol string))