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

Diff of /redefines.lisp

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

revision 5 by rklochkov, Sun Jul 29 15:15:41 2012 UTC revision 6 by rklochkov, Sun Jul 29 16:11:18 2012 UTC
# Line 31  Line 31 
31  (defmethod translate-from-foreign (ptr (type cffi-string))  (defmethod translate-from-foreign (ptr (type cffi-string))
32    (foreign-string-to-lisp ptr))    (foreign-string-to-lisp ptr))
33    
34    (define-foreign-type cffi-keyword ()
35      ()
36      (:simple-parser cffi-keyword)
37      (:actual-type :string))
38    
39    (defmethod translate-to-foreign ((value symbol) (type cffi-keyword))
40      (convert-to-foreign (string-downcase value) :string))
41    
42    (defmethod translate-to-foreign ((value string) (type cffi-keyword))
43      (convert-to-foreign value :string))
44    
45    (define-foreign-type cffi-pathname ()
46      ()
47      (:simple-parser cffi-pathname)
48      (:actual-type :string))
49    
50    (defmethod translate-to-foreign ((value pathname) (type cffi-pathname))
51      (convert-to-foreign (namestring value) :string))
52    
53    (defmethod translate-to-foreign ((value string) (type cffi-pathname))
54      (convert-to-foreign value :string))
55    
56    
57    

Legend:
Removed from v.5  
changed lines
  Added in v.6

  ViewVC Help
Powered by ViewVC 1.1.5