patch for compilation problem that Aleksandr Skobelev described
Matthew Danish <[email protected]>
| Newsgroups | gmane.lisp.clg.devel |
|---|---|
| Message-ID | <[email protected]> |
I came across the same compilation problem that Aleksandr did. Probing
further I found it is what seems to be a logic thinko in the
SHARED-INITIALIZE method for the BOXED-CLASS classes. Namely that while
(FIRST ALIEN-NAME) may be T, it may not have a type number; so I changed
it to use either the _type-number_ of (FIRST ALIEN-NAME) OR the
type-number of the default (rather than the type number of either the
alien name or the default).
This patch allows CLG to compile, but I wasn't able to get the
hello-world example to work for some FFI reason...
--- glib/gboxed.lisp 19 Mar 2002 17:06:11 -0000 1.9
+++ glib/gboxed.lisp 30 Aug 2002 17:41:50 -0000
@@ -50,8 +50,8 @@
(let* ((class-name (or name (class-name class)))
(type-number
- (find-type-number
- (or (first alien-name) (default-alien-type-name class-name)))))
+ (or (find-type-number (first alien-name))
+ (find-type-number (default-alien-type-name class-name)))))
(register-type class-name type-number)))
--
; Matthew Danish <[email protected]>
; OpenPGP public key: C24B6010 on keyring.debian.org
; Signed or encrypted mail welcome.
; "There is no dark side of the moon really; matter of fact, it's all dark."
-------------------------------------------------------
This sf.net email is sponsored by: OSDN - Tired of that same old
cell phone? Get a new here for FREE!
https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390