From 62600414b94f59d06b63f687f67d208a53d235e7 Mon Sep 17 00:00:00 2001 From: Vitaly Mayatskikh Date: Mon, 7 Sep 2009 12:23:14 +0200 Subject: [PATCH] Cleanup: remove unneeded package specifiers. --- videodev2.lisp | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/videodev2.lisp b/videodev2.lisp index 01f6360..3c01b0b 100644 --- a/videodev2.lisp +++ b/videodev2.lisp @@ -51,31 +51,31 @@ collect `(defun ,slot-name (inst) ,(if (or (eq slot-type :char) (eq slot-type :uchar)) - `(cffi:convert-from-foreign - (cffi:foreign-slot-value (,raw-accessor inst) ',class-name ',slot) :string) + `(convert-from-foreign + (foreign-slot-value (,raw-accessor inst) ',class-name ',slot) :string) (if (cffi::aggregatep (cffi::parse-type slot-type)) `(make-instance ',slot-type - :pointer (cffi:foreign-slot-value (,raw-accessor inst) ',class-name ',slot)) - `(cffi:foreign-slot-value (,raw-accessor inst) ',class-name ',slot)))) + :pointer (foreign-slot-value (,raw-accessor inst) ',class-name ',slot)) + `(foreign-slot-value (,raw-accessor inst) ',class-name ',slot)))) collect `(setf (gethash (cons ',class-name ',slot) *v4l2-slot-readers*) (fdefinition ',slot-name)) collect `(defun (setf ,slot-name) (new inst) - (setf (cffi:foreign-slot-value (,raw-accessor inst) ',class-name ',slot) - (cffi:convert-to-foreign new ',slot-type))) + (setf (foreign-slot-value (,raw-accessor inst) ',class-name ',slot) + (convert-to-foreign new ',slot-type))) collect `(setf (gethash (cons ',class-name ',slot) *v4l2-slot-writers*) (fdefinition '(setf ,slot-name)))) (defmethod initialize-instance :after ((inst ,class-name) &key pointer) - (let ((obj (or pointer (cffi:foreign-alloc ',class-name)))) + (let ((obj (or pointer (foreign-alloc ',class-name)))) (setf (,raw-accessor inst) obj) (unless pointer - (tg:finalize inst (lambda () - (cl:format t "finalize ~A~%" obj) - (foreign-free obj)))))) + (finalize inst (lambda () + (cl:format t "finalize ~A~%" obj) + (foreign-free obj)))))) ',class-name)))) (defmacro def-c-struct (name &rest args) -- 2.11.4.GIT