/[gcl]/gcl/ansi-tests/bit-eqv.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/bit-eqv.lsp

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

revision 1.1 by pfdietz, Mon Jan 27 02:04:48 2003 UTC revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC
# Line 25  Line 25 
25  (deftest bit-eqv.3  (deftest bit-eqv.3
26    (let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))    (let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
27           (s2 (make-array nil :initial-element 1 :element-type 'bit)))           (s2 (make-array nil :initial-element 1 :element-type 'bit)))
28      (values(bit-eqv s1 s2) s1 s2))      (values (bit-eqv s1 s2) s1 s2))
29    #0a0    #0a0
30    #0a0    #0a0
31    #0a1)    #0a1)
# Line 219  Line 219 
219    #2a((0 0)(1 1))    #2a((0 0)(1 1))
220    #2a((1 0)(0 1)))    #2a((1 0)(0 1)))
221    
222    (deftest bit-eqv.20
223      (let* ((s1 (make-array 1 :initial-element 0 :element-type 'bit))
224             (s2 (make-array 1 :initial-element 0 :element-type 'bit))
225             (x 0) y z)
226        (values
227         (bit-eqv (progn (setf y (incf x)) s1)
228                  (progn (setf z (incf x)) s2))
229         x y z))
230      #*1 2 1 2)
231    
232  ;;; Error tests  ;;; Error tests
233    
234  (deftest bit-eqv.error.1  (deftest bit-eqv.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