diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-18 22:05:52 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-18 22:05:52 +0100 |
| commit | 38938b79024c89ccbadd631e53b73797a98b0fb8 (patch) | |
| tree | f9e86dd4b739d17b7549a2776f58ef62fbda8b52 /Lisp/data-types.lisp | |
| parent | 57d0a7ece7f65a56c09b331fc2af12561632423f (diff) | |
Do not allow foreign methods to return arrays.
darcs-hash:60f115fc6d14d462f11dc77e1c97b68753f52e90
Diffstat (limited to 'Lisp/data-types.lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 164bf1b..cd6ba71 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -253,20 +253,6 @@ an __exception__, you can simply send it the `self' message. (defclass tagged-union (tagged-struct) ()) -;; FIXME: Either document or throw away. (Does the C language actually -;; support returning arrays from functions? It certainly does not -;; support passing them as arguments.) -(defclass foreign-array (foreign-value) - ((element-type :type symbol - :reader foreign-array-element-type - :initarg :element-type) - (length :type integer - :reader foreign-array-length - :initarg :type) - (typespec :reader foreign-value-typespec - :initarg :typespec))) - - ;; FIXME: Document. (defgeneric foreign-value-lisp-managed-p (foreign-value)) (defmethod foreign-value-lisp-managed-p ((foreign-value foreign-value)) |