/[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.2 by camm, Fri May 17 22:36:31 2002 UTC revision 1.3 by camm, Wed May 22 20:14:51 2002 UTC
# Line 64  Line 64 
64                            (return v))))                            (return v))))
65                 t))))                 t))))
66                    
67  (defun array-displacement (array)  ;(defun array-displacement (array)
68    (let ((x (si:array-displacement1 array)))  ;  (let ((x (si:array-displacement1 array)))
69    (values (car x) (cdr x)))  ;  (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.2  
changed lines
  Added in v.1.3

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