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

Diff of /gcl/ansi-tests/bit-andc2.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 24  Line 24 
24  (deftest bit-andc2.3  (deftest bit-andc2.3
25    (let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))    (let* ((s1 (make-array nil :initial-element 0 :element-type 'bit))
26           (s2 (make-array nil :initial-element 1 :element-type 'bit)))           (s2 (make-array nil :initial-element 1 :element-type 'bit)))
27      (values(bit-andc2 s1 s2) s1 s2))      (values (bit-andc2 s1 s2) s1 s2))
28    #0a0    #0a0
29    #0a0    #0a0
30    #0a1)    #0a1)
# Line 218  Line 218 
218    #2a((0 0)(1 1))    #2a((0 0)(1 1))
219    #2a((0 1)(0 0)))    #2a((0 1)(0 0)))
220    
221    (deftest bit-andc2.20
222      (let* ((s1 (make-array 1 :initial-element 0 :element-type 'bit))
223             (s2 (make-array 1 :initial-element 0 :element-type 'bit))
224             (x 0) y z)
225        (values
226         (bit-andc2 (progn (setf y (incf x)) s1)
227                    (progn (setf z (incf x)) s2))
228         x y z))
229      #*0 2 1 2)
230    
231  ;;; Error tests  ;;; Error tests
232    
233  (deftest bit-andc2.error.1  (deftest bit-andc2.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