Permalink
Browse files

Fix quoting CFFI types.

  • Loading branch information...
1 parent d19d706 commit b9d5f66c4a66305810b92848cf5fd4074e3ee884 @Ramarren committed Feb 9, 2010
Showing with 4 additions and 4 deletions.
  1. +4 −4 cells-gtk/addon.lisp
View
8 cells-gtk/addon.lisp
@@ -27,12 +27,12 @@
(setf (value self) (get-date self))))
(defmethod get-date ((self calendar))
- (cffi:with-foreign-objects ((year gtk-ffi::guint) (month gtk-ffi::guint) (day gtk-ffi::guint))
+ (cffi:with-foreign-objects ((year 'gtk-ffi::guint) (month 'gtk-ffi::guint) (day 'gtk-ffi::guint))
(gtk-calendar-get-date (id self) year month day)
(encode-universal-time 0 0 0
- (cffi:mem-ref day gtk-ffi::guint)
- (1+ (cffi:mem-ref month gtk-ffi::guint))
- (cffi:mem-ref year gtk-ffi::guint))))
+ (cffi:mem-ref day 'gtk-ffi::guint)
+ (1+ (cffi:mem-ref month 'gtk-ffi::guint))
+ (cffi:mem-ref year 'gtk-ffi::guint))))
(defobserver init ((self calendar))
(when new-value

0 comments on commit b9d5f66

Please sign in to comment.