/[gcl]/gcl/lsp/gcl_arraylib.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_arraylib.lsp

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

revision 1.3 by camm, Wed Aug 25 22:48:24 2004 UTC revision 1.4 by camm, Thu Sep 16 21:16:47 2004 UTC
# Line 78  Line 78 
78                          displaced-to (displaced-index-offset 0)                          displaced-to (displaced-index-offset 0)
79                          static)                          static)
80    (when (integerp dimensions) (setq dimensions (list dimensions)))    (when (integerp dimensions) (setq dimensions (list dimensions)))
81    (setq element-type (best-array-element-type element-type))    (setq element-type (or (best-array-element-type element-type) 'string-char))
82    (cond ((= (length dimensions) 1)    (cond ((= (length dimensions) 1)
83           (let ((x (si:make-vector element-type (car dimensions)           (let ((x (si:make-vector element-type (car dimensions)
84                                    adjustable fill-pointer                                    adjustable fill-pointer
# Line 94  Line 94 
94          (t          (t
95           (let ((x           (let ((x
96                  (make-array1                  (make-array1
97                         (the fixnum(get-aelttype element-type))                         (the fixnum (get-aelttype element-type))
98                          static initial-element                          static initial-element
99                         displaced-to (the fixnum displaced-index-offset)                         displaced-to (the fixnum displaced-index-offset)
100                         dimensions)))                         dimensions)))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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