How do i write a comparable cffi:translate-into foreign defmethod for this cffi:translate-from-foreign? up vote 0 down vote favorite ok I tried this translate-from-foreign method and it did work i have these defined in my structs.lisp file in my library which loads first before all my other dependencies (cffi:defcstruct (cv-size :classcv-size-type)(width :int)(height :int))(defmethod cffi:translate-from-foreign (p (type cv-size-type))(let((plist (call-next-method)))(make-size :width (getf plist 'width) :height (getf plist 'height)))) and my opencv wrappers for CvGetSize and cvCreateImage, get-size and create-image, are defined like this ;;CvSizecvGetSize(constCvArr*arr)(cffi:defcfun ("cvGetSize"get-size)(:structcv-size)(arr cv-arr));;IplImage*cvCreateImage(CvSizesize,intdepth,intchannels)(cffi:defcfun ("cvCreateImage"%create-image)ipl-image (size :int64)(depth :int)(channels :int))(defun create-image (size depth channels)"Create an image with dimensions given by SIZE, DEPTH bits per channel, and CHANNELS number of channels."(let((nsize (size->int64 size)))(%create-image nsize depth channels))) here is the definition of size->int64 (DEFUN SIZE->INT64 (S)(+(SIZE-WIDTH S)(ASH (SIZE-HEIGHT S)32)))it converts get-size output which isa structure here:#S(SIZE :WIDTH 640 :HEIGHT 480)into64-bit integer,which CFFI can handle but i love the idea of the translate-foreign defmethod's so i was wondering if you can show my how to make the translate-into-foreign version of the below from method this would really make my library awesome (defmethod cffi:translate-from-foreign (p (type cv-size-type))(let((plist (call-next-method)))(make-size :width (getf plist 'width) :height (getf plist 'height)))) I was going to try stuff and add it but for the get-size output structure, it isnt a plist so not really sure what to put there for the (let((plist (call-next-method))) part, for the (make-size :width (getf plist 'width) :height (getf plist 'height)))) part, i was hoping to find another method other than the size->64 function because that was made 2 years ago when cl-opencv https://github.com/ryepup/cl-opencv first came out and i would like to make an even better wrapper than that...i've already taken cl-opencv added 100 new function 5000 lines of code samples and documentation and a new structs.lisp file so i would love if someone could help me with all the latest cffi tools so i could do something else than int64...plus the if i have a funtion to wrap where the int64 thing wouldnt work ill be ready Thanks again to all the answerers cffi-devel. you all really have helped my library great. Edit:    I also tried it this way, Below is my repl history showing my steps

CL-OPENCV>;;(cffi:foreign-type-size '(:struct cv-size)) = 8 (cffi:defcstruct (cv-size :class cv-size-type) (width :int) (height :int)) (defmethod cffi:translate-from-foreign (p (type cv-size-type)) (let ((plist (call-next-method))) (make-size :width (getf plist 'width):height (getf plist 'height)))) (defmethod cffi:translate-to-foreign (value (type cv-size-type)) (let ((plist ())) (setf (getf plist 'width)(size-width value)(getf plist 'height) (size-height value)) (call-next-method plist type))) ;; CvSize cvGetSize(const CvArr* arr) (cffi:defcfun ("cvGetSize" get-size) (:struct cv-size) (arr (:pointer cv-arr))) ;; IplImage* cvCreateImage(CvSize size, int depth, int channels) (cffi:defcfun ("cvCreateImage" create-image) (:pointer (:struct ipl-image)) (size (:struct cv-size)) (depth :int) (channels :int)) CREATE-IMAGE CL-OPENCV> (defparameter capture (create-camera-capture 0)) (defparameter frame (query-frame capture)) (defparameter img-size (get-size frame)) (defparameter img (create-image img-size +ipl-depth-8u+ 3)) but i get error Thereisnoapplicable method forthe genericfunction#<STANDARD-GENERIC-FUNCTIONCFFI:TRANSLATE-INTO-FOREIGN-MEMORY (5)>whencalled witharguments (#S(SIZE :WIDTH 640:HEIGHT 480)#<CV-SIZE-TYPE CV-SIZE>#.(SB-SYS:INT-SAP #X7FFFE5427FF0)).[Conditionof type SIMPLE-ERROR] because the translate-from-foreign function i have is converting the output from cv-size into a structure CL-OPENCV>img-size #S(SIZE :WIDTH 640 :HEIGHT 480) I appreciate the translate-into foreign function but with the old translate-from-foreign function it isnt woking, because of the make-size part...would you help me figure out what cvCreateImage needs to satisfy it ....here is the link 4 that: http://docs.opencv.org/modules/core/doc/old_basic_structures.html?highlight=... I can get this version below to run right(i show the repl session) 5CL-OPENCV>;TODO SIZE-WIDTH AND HEIGHT ;;CvSizecvGetSize(constCvArr*arr)(cffi:defcfun ("cvGetSize"get-size)(:pointer (:structcv-size))(arr cv-arr));;IplImage*cvCreateImage(CvSizesize,intdepth,intchannels)(cffi:defcfun ("cvCreateImage"create-image)(:pointer (:structipl-image))(size (:pointer (:structcv-size)))(depth :int)(channels :int))STYLE-WARNING:redefining CL-OPENCV:GET-SIZE inDEFUN STYLE-WARNING:redefining CL-OPENCV:CREATE-IMAGE inDEFUN CREATE-IMAGE CL-OPENCV>(defparameter capture (create-camera-capture 0))(defparameter frame (query-frame capture))(defparameter img-size (get-size frame))(defparameter img (create-image img-size +ipl-depth-8u+3))IMG CL-OPENCV>(cffi:with-foreign-slots ((n-size id n-channels alpha-channel depth color-model channel-seq data-order origin align width height roi mask-roi image-id tile-info image-size image-data width-step border-mode border-constimage-data-origin)img(:structipl-image))(format t "n-size = ~a~%id = ~a~%n-channels = ~a~%alpha-channel = ~a~%depth = ~a~%color-model = ~a~%channel-seq = ~a~%data-order = ~a~%origin = ~a~%align = ~a~%width = ~a~%height = ~a~%roi = ~a~%mask-roi = ~a~%image-id = ~a~%tile-info = ~a~%image-size = ~a~%image-data = ~a~%width-step = ~a~%border-mode = ~a~%border-const = ~a~%image-data-origin = ~a~%"n-size id n-channels alpha-channel depth color-model channel-seq data-order origin align width height roi mask-rOI image-id tile-info image-size image-data width-step border-mode border-constimage-data-origin))n-size =144id =0n-channels =3alpha-channel =0depth =8color-model =4343634channel-seq =5392194data-order =0origin =0align =4width =640height =480roi =#.(SB-SYS:INT-SAP #X00000000)mask-roi =#.(SB-SYS:INT-SAP #X00000000)image-id =#.(SB-SYS:INT-SAP #X00000000)tile-info =#.(SB-SYS:INT-SAP #X00000000)image-size =921600image-data =width-step =1920border-mode =#.(SB-SYS:INT-SAP #X00000000)border-const=#.(SB-SYS:INT-SAP #X00000000)image-data-origin =NIL NIL so i get data from the slots for ipl-image but this does'nt seem like correct way because

id have to be able to derefrence the cv-size poiner output by get-size here is documentation on cvGetSize the function im wrapping http://docs.opencv.org/modules/core/doc/old_basic_structures.html?highlight=... as u can see it is a pointer CL-OPENCV>img-size #.(SB-SYS:INT-SAP #X1E000000280) so when i do : (cffi:with-foreign-object(img-size '(:pointer (:struct cv-size))) ;; Initialize the slots ;; Return a list with the coordinates (cffi:with-foreign-slots ((width height) img-size (list width height))) i get Thereisnoapplicable method forthe genericfunction#<STANDARD-GENERIC-FUNCTION CFFI::SLOTS (1)>whencalled witharguments (#<CFFI::FOREIGN-POINTER-TYPE (:POINTER (:STRUCT CV-SIZE))>).[Conditionof type SIMPLE-ERROR] and when i do (cffi:with-foreign-object(img-size '(:struct cv-size)) ;; Initialize the slots ;; Return a list with the coordinates (cffi:with-foreign-slots ((width height) img-size (:struct cv-size)) (list width height))) i get

(346539 0)

just nonsensical output i try mem-refing and mem-arefing the pointer and get unhandled memory fault errors if you can help me figure out how to write compatible translate-from-foreign and translate-into-foreign functions i would be very grateful =).

but if i use make-size or size-width,height anywhere in them the

create-image would have to have the size->int64 in it because they work

only because that function.