/[gcl]/gcl/ansi-tests/copy-seq.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/copy-seq.lsp

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

revision 1.1 by pfdietz, Sun Nov 3 11:07:16 2002 UTC revision 1.2 by pfdietz, Sun Nov 3 13:21:47 2002 UTC
# Line 148  Line 148 
148    (copy-seq #())    (copy-seq #())
149    #())    #())
150    
151    (deftest copy-seq.18
152      (let* ((x (make-array '(10) :initial-contents '(a b c d e f g h i j)))
153             (y (copy-seq x)))
154        (equal-array x y))
155      t)
156    
157  ;;; Error tests  ;;; Error tests
158    
159  (deftest copy-seq.error.1  (deftest copy-seq.error.1

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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