projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
8029bbf
)
glib: Fixed boxed-related-symbols for variant structures
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 7 Aug 2009 22:24:31 +0000
(
02:24
+0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 7 Aug 2009 22:24:31 +0000
(
02:24
+0400)
glib/gobject.boxed.lisp
patch
|
blob
|
history
diff --git
a/glib/gobject.boxed.lisp
b/glib/gobject.boxed.lisp
index
6ab321c
..
218112a
100644
(file)
--- a/
glib/gobject.boxed.lisp
+++ b/
glib/gobject.boxed.lisp
@@
-562,7
+562,8
@@
(iter (for var-struct in (all-structures (g-boxed-variant-cstruct-info-root info)))
(for s-name = (var-structure-name var-struct))
(for cstruct-description = (var-structure-resulting-cstruct-description var-struct))
(iter (for var-struct in (all-structures (g-boxed-variant-cstruct-info-root info)))
(for s-name = (var-structure-name var-struct))
(for cstruct-description = (var-structure-resulting-cstruct-description var-struct))
- (appending (append (list (intern (format nil "MAKE-~A" (symbol-name s-name)))
+ (appending (append (list s-name)
+ (list (intern (format nil "MAKE-~A" (symbol-name s-name)))
(intern (format nil "COPY-~A" (symbol-name s-name))))
(iter (for slot in (cstruct-description-slots cstruct-description))
(for slot-name = (cstruct-slot-description-name slot))
(intern (format nil "COPY-~A" (symbol-name s-name))))
(iter (for slot in (cstruct-description-slots cstruct-description))
(for slot-name = (cstruct-slot-description-name slot))