/[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.10 by pfdietz, Thu Jul 14 02:54:06 2005 UTC revision 1.11 by pfdietz, Mon Jul 25 01:34:09 2005 UTC
# Line 793  Line 793 
793    (8 :initial-contents '(0 1 0 1 1 0 1 0) :element-type 'bit)    (8 :initial-contents '(0 1 0 1 1 0 1 0) :element-type 'bit)
794    #*01011010)    #*01011010)
795    
796  (def-adjust-array-fp-test adjust-array.bit-vectoradjustable.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 (eq (aref a2 3) 0))

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

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