/[gcl]/gcl/ansi-tests/adjust-array.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/adjust-array.lsp

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

revision 1.11 by pfdietz, Mon Jul 25 01:34:09 2005 UTC revision 1.12 by pfdietz, Sat Aug 13 17:25:04 2005 UTC
# Line 503  Line 503 
503  (def-adjust-array-fp-test adjust-array.string.adjustable.5  (def-adjust-array-fp-test adjust-array.string.adjustable.5
504    (5 :initial-contents "abcde" :fill-pointer 3 :adjustable t :element-type 'character)    (5 :initial-contents "abcde" :fill-pointer 3 :adjustable t :element-type 'character)
505    (4 :element-type 'character :initial-element #\Space)    (4 :element-type 'character :initial-element #\Space)
506    (assert (eq (aref a2 3) #\d))    (assert (eql (aref a2 3) #\d))
507    3 "abc")    3 "abc")
508    
509  (def-adjust-array-fp-test adjust-array.string.adjustable.6  (def-adjust-array-fp-test adjust-array.string.adjustable.6
510    (5 :initial-contents "abcde" :fill-pointer 3 :adjustable t :element-type 'character)    (5 :initial-contents "abcde" :fill-pointer 3 :adjustable t :element-type 'character)
511    (4 :fill-pointer nil :element-type 'character :initial-element #\?)    (4 :fill-pointer nil :element-type 'character :initial-element #\?)
512    (assert (eq (aref a2 3) #\d))    (assert (eql (aref a2 3) #\d))
513    3 "abc")    3 "abc")
514    
515  (def-adjust-array-fp-test adjust-array.string.adjustable.7  (def-adjust-array-fp-test adjust-array.string.adjustable.7
# Line 796  Line 796 
796  (def-adjust-array-fp-test adjust-array.bit-vector.adjustable.5  (def-adjust-array-fp-test adjust-array.bit-vector.adjustable.5
797    (5 :initial-contents '(1 1 1 0 0) :fill-pointer 3 :adjustable t :element-type 'bit)    (5 :initial-contents '(1 1 1 0 0) :fill-pointer 3 :adjustable t :element-type 'bit)
798    (4 :element-type 'bit :initial-element 0)    (4 :element-type 'bit :initial-element 0)
799    (assert (eq (aref a2 3) 0))    (assert (eql (aref a2 3) 0))
800    3 #*111)    3 #*111)
801    
802  (def-adjust-array-fp-test adjust-array.bit-vector.adjustable.6  (def-adjust-array-fp-test adjust-array.bit-vector.adjustable.6
803    (5 :initial-contents '(0 0 0 1 1) :fill-pointer 3 :adjustable t :element-type 'bit)    (5 :initial-contents '(0 0 0 1 1) :fill-pointer 3 :adjustable t :element-type 'bit)
804    (4 :fill-pointer nil :element-type 'bit :initial-element 1)    (4 :fill-pointer nil :element-type 'bit :initial-element 1)
805    (assert (eq (aref a2 3) 1))    (assert (eql (aref a2 3) 1))
806    3 #*000)    3 #*000)
807    
808  (def-adjust-array-fp-test adjust-array.bit-vector.adjustable.7  (def-adjust-array-fp-test adjust-array.bit-vector.adjustable.7

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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