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

Diff of /gcl/ansi-tests/equalp.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 27  Line 27 
27    (equalpt "abc" "abd")    (equalpt "abc" "abd")
28    nil)    nil)
29    
30    (deftest equalp.5
31      (equalpt (make-array '(0) :element-type nil) #())
32      t)
33    
34    (deftest equalp.6
35      (equalpt (make-array '(0) :element-type nil) "")
36      t)
37    
38  (deftest equalp.order.1  (deftest equalp.order.1
39    (let ((i 0) x y)    (let ((i 0) x y)
40      (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