diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-05 15:58:27 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-05 15:58:27 +0100 |
| commit | 02d4f57b64333e94a4051e5299be20e0a600cfd1 (patch) | |
| tree | f1293e127282f1a5d582b9923becc9c030bcc772 | |
| parent | 50acab3664ab433fe4d53a728097ea9132f6cf02 (diff) | |
Add new class FOREIGN-UNION.
darcs-hash:8f87776dce528cb17cf292df0c5aa410fe924247
| -rw-r--r-- | Lisp/data-types.lisp | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 1d460c9..ad464c7 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -256,6 +256,8 @@ an __exception__, you can simply send it the `self' message. :accessor foreign-struct-name :initarg :name))) +(defclass foreign-union (foreign-struct) ()) + ;; The following are for private use only. (defclass opaque-struct (foreign-struct) ()) @@ -264,9 +266,9 @@ an __exception__, you can simply send it the `self' message. ((typespec :reader foreign-value-typespec :initarg :typespec))) -(defclass opaque-union (opaque-struct) ()) +(defclass opaque-union (foreign-union opaque-struct) ()) -(defclass tagged-union (tagged-struct) ()) +(defclass tagged-union (foreign-union tagged-struct) ()) (defgeneric foreign-value-pointer (foreign-value) @@ -292,7 +294,7 @@ behaviour if you need to. ## See also: - __foreign-value-lisp-managed-p__, __foreign-value__, __foreign-struct__")) + __foreign-value-lisp-managed-p__, __foreign-value__")) (defmethod foreign-value-pointer ((foreign-value foreign-value)) @@ -346,7 +348,7 @@ seems like an acceptable trade-off. ## See also: - __foreign-value__, __foreign-struct__")) + __foreign-value__")) (defmethod foreign-value-lisp-managed-p ((foreign-value foreign-value)) |