diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-12 17:19:16 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-12 17:19:16 +0100 |
commit | 417548a08fd1358cfdbe4d7ce95b0d0220fdfd38 (patch) | |
tree | bf91b469da48598845b84fbfe3e59535efd245fc /Lisp/tests.lisp | |
parent | 17842ec58421437f62b10c1e48024c9676de3726 (diff) |
Typespec handling: Change the way unrecognised tokens and NeXT bit fields are dealt with.
darcs-hash:df914eb9a30b938c49e0b42091aff0299bc50002
Diffstat (limited to 'Lisp/tests.lisp')
-rw-r--r-- | Lisp/tests.lisp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 0e56866..1a63d9d 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -162,11 +162,11 @@ (:int ()) (:int ())) '(struct () "?" - (bit-field (const) nil 123 nil) + (bit-field (const) nil 123) (complex (const) (:float ())) - (:unrecognised ((:type-specifier #\4))) - (:unrecognised ((:type-specifier #\5))) - (:unrecognised ((:type-specifier #\6))) + (:unrecognised () #\4) + (:unrecognised () #\5) + (:unrecognised () #\6) (:int ()) (:int ()) (:int ()))))) @@ -249,11 +249,11 @@ (:int ()) (:int ())) '(struct () "?" - (bit-field (const) nil 123 nil) + (bit-field (const) nil 123) (complex (const) (:float ())) - (:unrecognised ((:type-specifier #\4))) - (:unrecognised ((:type-specifier #\5))) - (:unrecognised ((:type-specifier #\6))) + (:unrecognised () #\4) + (:unrecognised () #\5) + (:unrecognised () #\6) (:int ()) (:int ()) (:int ())))) |