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