Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv8041/src/compiler
Modified Files:
fndb.lisp
Log Message:
1.0.17.42: more string trimming fixes
* Return value in the no-op case for non-simple-strings must not be
the underlying simple string object.
* Correct return type (per spec) for STRING-TRIM &co is
STRING-DESIGNATOR, but as long as we take care, we can make it
STRING -- but the old SIMPLE-STRING is still wrong.
* Instead of making WITH-STRING a full-blown Evil Macro, just use
WITH-ARRAY-DATA at the call site.
* Two more test-cases.
patch by James Knight.
Index: fndb.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v
retrieving revision 1.146
retrieving revision 1.147
diff -u -d -r1.146 -r1.147
--- fndb.lisp 4 Jun 2008 18:50:27 -0000 1.146
+++ fndb.lisp 24 Jun 2008 17:12:59 -0000 1.147
@@ -913,7 +913,7 @@
simple-string (flushable))
(defknown (string-trim string-left-trim string-right-trim)
- (sequence string-designator) simple-string (flushable))
+ (sequence string-designator) string (flushable))
(defknown (string-upcase string-downcase string-capitalize)
(string-designator &key (:start index) (:end sequence-end))
|