/[gcl]/gcl/ansi-tests/equal.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/equal.lsp

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

revision 1.4 by pfdietz, Mon Feb 17 04:22:04 2003 UTC revision 1.5 by pfdietz, Wed Jun 18 11:55:24 2003 UTC
# Line 61  Line 61 
61    (equalt (copy-seq #*000110) (copy-seq #*000111))    (equalt (copy-seq #*000110) (copy-seq #*000111))
62    nil)    nil)
63    
64    (deftest equal.13
65      (let ((x (make-array '(0) :element-type nil))
66            (y (make-array '(0) :element-type nil)))
67        (equalt x y))
68      t)
69    
70    (deftest equal.14
71      (and
72       (equalt (make-array '(0) :element-type nil) "")
73       (equalt "" (make-array '(0) :element-type nil)))
74      t)
75    
76  (deftest equal.order.1  (deftest equal.order.1
77    (let ((i 0) x y)    (let ((i 0) x y)
78      (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