/[gcl]/gcl/ansi-tests/string-downcase.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/string-downcase.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pfdietz, Wed Jun 18 11:55:24 2003 UTC revision 1.5 by pfdietz, Sun Jul 27 03:47:37 2003 UTC
# Line 81  Line 81 
81    "ABCDE")    "ABCDE")
82    
83  (deftest string-downcase.11  (deftest string-downcase.11
84      :notes (:nil-vectors-are-strings)
85    (string-downcase (make-array '(0) :element-type nil))    (string-downcase (make-array '(0) :element-type nil))
86    "")    "")
87    
   
88  (deftest string-downcase.order.1  (deftest string-downcase.order.1
89    (let ((i 0) a b c (s (copy-seq "ABCDEF")))    (let ((i 0) a b c (s (copy-seq "ABCDEF")))
90      (values      (values

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26