[cells-gtk-cvs] CVS root/cells-gtk

[pdenno]

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