Function: CREATE-CFFI-ARGLIST

Source

(defun create-cffi-arglist (args)
  (mapcar (lambda (arg)
	    (cond ((member :out arg) `(,(car arg) :pointer))
		  ((member :class arg) `(,(car arg) ,(second arg)))
		  ((member :flag arg) `(,(car arg) ,(flag-exp-type arg)))
		  ((in (third arg) :const :key) `(,(car arg) ,(second arg)))
		  (t arg)))
	  args))