/[cffi-objects]/array.lisp
ViewVC logotype

Diff of /array.lisp

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

revision 7 by rklochkov, Mon Feb 20 18:55:20 2012 UTC revision 8 by rklochkov, Sun Aug 12 17:36:30 2012 UTC
# Line 13  Line 13 
13    ((element-type :initarg :type :accessor element-type))    ((element-type :initarg :type :accessor element-type))
14    (:actual-type :pointer))    (:actual-type :pointer))
15    
16  (define-parse-method carray (type &key free)  (define-parse-method carray (type &rest rest)
17    (make-instance 'cffi-array :type type :free free))    (apply #'make-instance 'cffi-array :type type rest))
18    
19  (defmethod translate-to-foreign (value (cffi-array cffi-array))  (defmethod translate-to-foreign (value (cffi-array cffi-array))
20    (if (pointerp value)    (if (pointerp value)
# Line 38  Line 38 
38    ((element-type :initarg :type :accessor element-type))    ((element-type :initarg :type :accessor element-type))
39    (:actual-type :pointer))    (:actual-type :pointer))
40    
41  (define-parse-method null-array (type &key free)  (define-parse-method null-array (type &rest rest)
42    (make-instance 'cffi-null-array :type type :free free))    (apply #'make-instance 'cffi-null-array :type type rest))
43    
44  (defmethod translate-to-foreign (value (cffi-null-array cffi-null-array))  (defmethod translate-to-foreign (value (cffi-null-array cffi-null-array))
45    (if (pointerp value)    (if (pointerp value)

Legend:
Removed from v.7  
changed lines
  Added in v.8

  ViewVC Help
Powered by ViewVC 1.1.5