/[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.1.1.1 by wfs, Mon Dec 6 22:44:05 1999 UTC revision 1.1.1.1.4.1 by camm, Fri Jun 7 22:14:45 2002 UTC
# Line 25  Line 25 
25  (in-package 'lisp)  (in-package 'lisp)
26    
27    
28  (export '(make-array vector  (export '(make-array array-displacement vector
29            array-element-type array-rank array-dimension            array-element-type array-rank array-dimension
30            array-dimensions            array-dimensions
31            array-in-bounds-p array-row-major-index            array-in-bounds-p array-row-major-index
# Line 64  Line 64 
64                            (return v))))                            (return v))))
65                 t))))                 t))))
66                    
67    ;(defun array-displacement (array)
68    ;  (let ((x (si:array-displacement1 array)))
69    ;  (values (car x) (cdr x)))
70    ;  )
71    
72  (defun make-array (dimensions  (defun make-array (dimensions
73                     &key (element-type t)                     &key (element-type t)

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.1.4.1

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