projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10373: 2005-04-03 Kevin Rosenberg (kevin@rosenberg.net)
[uffi.git]
/
examples
/
arrays.lisp
diff --git
a/examples/arrays.lisp
b/examples/arrays.lisp
index 1bc438f623cb6ba2aa853bf03a50d95a58b95dcc..8a5831218293fa01245d30b1852c7fe215277db2 100644
(file)
--- a/
examples/arrays.lisp
+++ b/
examples/arrays.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id
: arrays.lisp,v 1.2 2002/12/03 06:58:39 kevin Exp
$
+;;;; $Id$
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-21,7
+21,7
@@
(uffi:def-constant +column-length+ 10)
(uffi:def-constant +row-length+ 10)
(uffi:def-constant +column-length+ 10)
(uffi:def-constant +row-length+ 10)
-(uffi:def-foreign-type long-ptr
'
(* :long))
+(uffi:def-foreign-type long-ptr (* :long))
(defun test-array-1d ()
"Tests vector"
(defun test-array-1d ()
"Tests vector"