summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/tests.lisp10
-rw-r--r--Lisp/type-conversion.lisp3
2 files changed, 9 insertions, 4 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp
index 1404f86..38dd824 100644
--- a/Lisp/tests.lisp
+++ b/Lisp/tests.lisp
@@ -5,7 +5,7 @@
(:shadowing-import-from #:objcl
#:struct #:union #:pointer #:oneway #:out #:in
#:inout #:const #:parse-typespec #:objc-class
- #:bit-field #:opaque))
+ #:bit-field #:opaque #:bycopy #:byref))
(in-package #:mulk.objective-cl.tests)
@@ -81,12 +81,16 @@
(:unsigned-int ())
(:unsigned-int ()))))
((ensure-same (parse-typespec "rnNoV^V[10rjd]4")
- ;; Actually, the order of the qualifiers is not
- ;; important, which means that this test is too dumb.
+ ;; Actually, the order of the qualifiers doesn't
+ ;; matter, which means that this test is dumber than
+ ;; it ought to be.
'(pointer (oneway out inout in const)
(array (oneway)
10
(complex (const) (:double nil))))))
+ ((ensure-same (parse-typespec "ROi")
+ ;; Here, too, the order of the qualifiers is irrelevant.
+ '(:int (bycopy byref))))
((ensure-same (parse-typespec "(?=)")
'(union () "?")))
((ensure-same (parse-typespec "{?=rb123rjf456iii}")
diff --git a/Lisp/type-conversion.lisp b/Lisp/type-conversion.lisp
index 715e906..d9a5431 100644
--- a/Lisp/type-conversion.lisp
+++ b/Lisp/type-conversion.lisp
@@ -96,7 +96,8 @@ Returns: (VALUES typespec byte-position string-position)"
(#\N 'inout)
(#\o 'out)
(#\O 'bycopy)
- (#\V 'oneway))))
+ (#\V 'oneway)
+ (#\R 'byref))))
(and qualifier
(incf string-position)
(push qualifier qualifiers))))