~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Hopefully allow (require :glib) again.
[clg]
/
gffi
/
defpackage.lisp
diff --git
a/gffi/defpackage.lisp
b/gffi/defpackage.lisp
index
4e4dcf8
..
2e9148a
100644
(file)
--- a/
gffi/defpackage.lisp
+++ b/
gffi/defpackage.lisp
@@
-38,6
+38,14
@@
"ALIEN-SAP")
#+cmu(:import-from "C-CALL" "VOID" "C-STRING")
#+sbcl(:import-from "SB-ALIEN" "VOID" "C-STRING")
"ALIEN-SAP")
#+cmu(:import-from "C-CALL" "VOID" "C-STRING")
#+sbcl(:import-from "SB-ALIEN" "VOID" "C-STRING")
+
+ ;; We override COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS for virtual slots
+ ;; and proxy classes.
+ #+(or cmu sbcl)
+ (:import-from
+ #+cmu"PCL" #+sbcl"SB-PCL"
+ "COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS")
+
;; Symbols from memory.lisp
(:export "MAKE-POINTER" "POINTER-ADDRESS" "NULL-POINTER-P" "POINTER="
"POINTER+" "REF-POINTER"
;; Symbols from memory.lisp
(:export "MAKE-POINTER" "POINTER-ADDRESS" "NULL-POINTER-P" "POINTER="
"POINTER+" "REF-POINTER"