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

Diff of /gcl/lsp/arraylib.lsp

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

revision 1.3 by camm, Wed May 22 20:14:51 2002 UTC revision 1.4 by camm, Mon Feb 17 16:50:21 2003 UTC
# Line 30  Line 30 
30            array-dimensions            array-dimensions
31            array-in-bounds-p array-row-major-index            array-in-bounds-p array-row-major-index
32            adjustable-array-p            adjustable-array-p
33            bit sbit            bit sbit
34            bit-and bit-ior bit-xor bit-eqv bit-nand bit-nor            bit-and bit-ior bit-xor bit-eqv bit-nand bit-nor
35            bit-andc1 bit-andc2 bit-orc1 bit-orc2 bit-not            bit-andc1 bit-andc2 bit-orc1 bit-orc2 bit-not
36            array-has-fill-pointer-p fill-pointer            array-has-fill-pointer-p fill-pointer
37            vector-push vector-push-extend vector-pop            vector-push vector-push-extend vector-pop
38            adjust-array))            adjust-array upgraded-array-element-type))
   
39    
40  (in-package 'system)  (in-package 'system)
41    
# Line 64  Line 63 
63                            (return v))))                            (return v))))
64                 t))))                 t))))
65                    
66    (defun upgraded-array-element-type (type &optional environment)
67      (declare (ignore environment))
68      (best-array-element-type type))
69    
70  ;(defun array-displacement (array)  ;(defun array-displacement (array)
71  ;  (let ((x (si:array-displacement1 array)))  ;  (let ((x (si:array-displacement1 array)))
72  ;  (values (car x) (cdr x)))  ;  (values (car x) (cdr x)))

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