~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4555db9
)
Added missing type method and bug fixes
author
espen
<espen>
Fri, 3 Mar 2006 10:01:47 +0000
(10:01 +0000)
committer
espen
<espen>
Fri, 3 Mar 2006 10:01:47 +0000
(10:01 +0000)
glib/proxy.lisp
patch
|
blob
|
blame
|
history
diff --git
a/glib/proxy.lisp
b/glib/proxy.lisp
index
36fbb58
..
bd74e77
100644
(file)
--- a/
glib/proxy.lisp
+++ b/
glib/proxy.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: proxy.lisp,v 1.3
7 2006-02-26 16:12:25
espen Exp $
+;; $Id: proxy.lisp,v 1.3
8 2006-03-03 10:01:47
espen Exp $
(in-package "GLIB")
(in-package "GLIB")
@@
-674,19
+674,25
@@
will not be released when the proxy is garbage collected."))
(deftype inlined (type) type)
(define-type-method size-of ((type inlined))
(deftype inlined (type) type)
(define-type-method size-of ((type inlined))
- (let ((class (
type-expand (secon
d type))))
+ (let ((class (
second (type-expand-to 'inline
d type))))
(foreign-size class)))
(define-type-method reader-function ((type inlined))
(foreign-size class)))
(define-type-method reader-function ((type inlined))
- (let ((class (
type-expand (secon
d type))))
+ (let ((class (
second (type-expand-to 'inline
d type))))
#'(lambda (location &optional (offset 0) weak-p)
(declare (ignore weak-p))
(ensure-proxy-instance class
(reference-foreign class (sap+ location offset))))))
(define-type-method writer-function ((type inlined))
#'(lambda (location &optional (offset 0) weak-p)
(declare (ignore weak-p))
(ensure-proxy-instance class
(reference-foreign class (sap+ location offset))))))
(define-type-method writer-function ((type inlined))
- (let ((class (
type-expand (secon
d type))))
+ (let ((class (
second (type-expand-to 'inline
d type))))
#'(lambda (instance location &optional (offset 0))
(copy-memory (foreign-location instance) (foreign-size class) (sap+ location offset)))))
#'(lambda (instance location &optional (offset 0))
(copy-memory (foreign-location instance) (foreign-size class) (sap+ location offset)))))
+(define-type-method destroy-function ((type inlined))
+ (declare (ignore type))
+ #'(lambda (location &optional offset)
+ (declare (ignore location offset))))
+
+
(export 'inlined)
(export 'inlined)