projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6a4c3fe
)
glib: Changed generated-c{struct,union}-name to generate the same names every times...
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 7 Aug 2009 19:28:24 +0000
(23:28 +0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 7 Aug 2009 19:28:24 +0000
(23:28 +0400)
glib/gobject.boxed.lisp
patch
|
blob
|
history
diff --git
a/glib/gobject.boxed.lisp
b/glib/gobject.boxed.lisp
index
661aa6c
..
6ab321c
100644
(file)
--- a/
glib/gobject.boxed.lisp
+++ b/
glib/gobject.boxed.lisp
@@
-336,19
+336,11
@@
:structure (parse-variant-structure-definition variant-name slots parent)))
(collect variant)))
:structure (parse-variant-structure-definition variant-name slots parent)))
(collect variant)))
-(defpackage :gobject.boxed.generated-names)
-
(defun generated-cstruct-name (symbol)
(defun generated-cstruct-name (symbol)
- (or (get symbol 'generated-cstruct-name)
- (setf (get symbol 'generated-cstruct-name) (gentemp (format nil "CSTRUCT-~A" (symbol-name symbol)) (find-package :gobject.boxed.generated-names)))))
+ (intern (format nil "~A-CSTRUCT-GENERATED-BY-GOBJECT-BOXED" (symbol-name symbol)) (symbol-package symbol)))
(defun generated-cunion-name (symbol)
(defun generated-cunion-name (symbol)
- (or (get symbol 'generated-cunion-name)
- (setf (get symbol 'generated-cunion-name) (gentemp (format nil "CUNION-~A" (symbol-name symbol)) (find-package :gobject.boxed.generated-names)))))
-
-(defun generated-fn-name (symbol)
- (or (get symbol 'generated-fn-name)
- (setf (get symbol 'generated-fn-name) (gentemp (format nil "FN~A" (symbol-name symbol)) (find-package :gobject.boxed.generated-names)))))
+ (intern (format nil "~A-CUNION-GENERATED-BY-GOBJECT-BOXED" (symbol-name symbol)) (symbol-package symbol)))
(defun generate-cstruct-1 (struct)
`(defcstruct ,(generated-cstruct-name (cstruct-description-name struct))
(defun generate-cstruct-1 (struct)
`(defcstruct ,(generated-cstruct-name (cstruct-description-name struct))