Changes between Initial Version and Version 1 of Ticket #1010


Ignore:
Timestamp:
08/25/12 21:19:11 (20 months ago)
Author:
gb
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #1010 – Description

    initial v1  
     1{{{ 
    12Clozure CL "Version 1.8-r15286M  (LinuxX8632)" 
    23 
     
    1718                        (warn "(ret-ix) ~A != ~A (num-chars)" ret-ix num-chars)))) 
    1819      char-arr))) 
     20}}} 
    1921 
    2022Running gives: 
    21  
     23{{{ 
    2224  Warning: (ret-ix) 1 != 1 (num-chars) 
    2325  ; While executing: COMMON-LISP-USER::TEST, in process listener(1). 
    2426  > Error: Array index 1000 out of bounds for #<SIMPLE-BIT-VECTOR 1000> 
    25  
     27}}} 
    2628Removing the FIXNUM declaration for RET-IX inside the loop solves it: 
     29{{{ 
    2730  .. 
    2831  with ret-ix = 0 
    2932  .. 
     33}}}