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

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

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

revision 1.1 by pfdietz, Sun Jan 26 21:31:33 2003 UTC revision 1.2 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 68  Line 68 
68       (aref a 5 5)       (aref a 5 5)
69       (sbit a 5 5)))       (sbit a 5 5)))
70    0 0 1 1 1)    0 0 1 1 1)
71    
72    (deftest sbit.order.1
73      (let ((i 0) a b)
74        (values
75         (sbit (progn (setf a (incf i)) #*001001)
76               (progn (setf b (incf i)) 1))
77         i a b))
78      0 2 1 2)
79    
80    (deftest sbit.order.2
81      (let ((i 0) a b c
82            (v (copy-seq #*001001)))
83        (values
84         (setf (sbit (progn (setf a (incf i)) v)
85                     (progn (setf b (incf i)) 1))
86               (progn (setf c (incf i)) 1))
87         v i a b c))
88      1 #*011001 3 1 2 3)
89    
90    (deftest sbit.error.1
91      (classify-error (sbit))
92      program-error)
93    
94      
95      

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