Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp:/tmp/cvs-serv14562/root/cells-gtk

Modified Files: addon.lisp Log Message: Use uffi package prefix

--- /project/cells-gtk/cvsroot/root/cells-gtk/addon.lisp 2004/12/06 20:04:12 1.3 +++ /project/cells-gtk/cvsroot/root/cells-gtk/addon.lisp 2006/02/19 20:09:57 1.4 @@ -27,10 +27,10 @@ (setf (md-value self) (get-date self))))

(defmethod get-date ((self calendar)) - (with-foreign-objects ((year :int)(month :int)(day :int)) + (uffi:with-foreign-objects ((year :int)(month :int)(day :int)) (gtk-calendar-get-date (id self) year month day) - (encode-universal-time 0 0 0 (deref-pointer day :int) - (1+ (deref-pointer month :int)) (deref-pointer year :int)))) + (encode-universal-time 0 0 0 (uffi:deref-pointer day :int) + (1+ (uffi:deref-pointer month :int)) (uffi:deref-pointer year :int))))

(def-c-output init ((self calendar)) (when new-value