~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Work around for broken def-type-method
[clg]
/
glib
/
gtype.lisp
diff --git
a/glib/gtype.lisp
b/glib/gtype.lisp
index
012925b
..
866b437
100644
(file)
--- a/
glib/gtype.lisp
+++ b/
glib/gtype.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtype.lisp,v 1.4
5 2006-02-19 19:27:32
espen Exp $
+;; $Id: gtype.lisp,v 1.4
6 2006-02-19 22:25:31
espen Exp $
(in-package "GLIB")
(in-package "GLIB")
@@
-376,8
+376,9
@@
;; A ginstance should never be invalidated since it is ref counted
nil)
;; A ginstance should never be invalidated since it is ref counted
nil)
-(defmethod callback-from-alien-form (form (type t) &rest args)
- (apply #'from-alien-form form type args))
+(defmethod callback-from-alien-form (form (class ginstance-class) &rest args)
+ (declare (ignore args))
+ (from-alien-form form class))
(defmethod copy-from-alien-form (location (class ginstance-class) &rest args)
(declare (ignore location class args))
(defmethod copy-from-alien-form (location (class ginstance-class) &rest args)
(declare (ignore location class args))