summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/data-types.lisp10
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))