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

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

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

revision 1.1 by pfdietz, Sun Apr 20 22:59:26 2003 UTC revision 1.2 by pfdietz, Fri Oct 24 10:41:26 2003 UTC
# Line 17  Line 17 
17      (values (shiftf (aref x (incf i)) (aref x (incf i)) (incf i)) x i))      (values (shiftf (aref x (incf i)) (aref x (incf i)) (incf i)) x i))
18    d #(a b c e 5 f g h) 5)    d #(a b c e 5 f g h) 5)
19    
20    (deftest shiftf.1
21      (let ((x 0))
22        (values
23         x
24         (shiftf x 1)
25         x))
26      0 0 1)
27    
28    (deftest shiftf.2
29      (let ((x 'a) (y 'b) (z 'c))
30        (values
31         x y z
32         (shiftf x y z 'd)
33         x y z))
34      a b c
35      a
36      b c d)
37        
38    (deftest shiftf.3
39      (let ((x (vector 0 1 2 3)))
40        (values
41         (copy-seq x)
42         (shiftf (aref x (aref x 0))
43                 (aref x (aref x 1))
44                 (aref x (aref x 2))
45                 (aref x (aref x 3))
46                 'foo)
47         (copy-seq x)))
48      #(0 1 2 3)
49      0
50      #(1 2 3 foo))
51        
52    
53  ;;; Need to add more shiftf tests here  ;;; Need to add more shiftf tests here

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