diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 17:46:59 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 17:46:59 +0100 |
commit | b1a461fd11fd36685704fd8c2a03362c417c4a97 (patch) | |
tree | c48f958a0b5866e3b0c7f50ab1349ff4884ac3f2 /Lisp/type-handling.lisp | |
parent | 2e0809c9cf80f7c6d95c5cd21ae4374941c5fd17 (diff) |
Support simple CFFI types as typespecs.
darcs-hash:08236de112dc806e436b6d48a24d7922e33e801a
Diffstat (limited to 'Lisp/type-handling.lisp')
-rw-r--r-- | Lisp/type-handling.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/type-handling.lisp b/Lisp/type-handling.lisp index dfb84e7..a37f756 100644 --- a/Lisp/type-handling.lisp +++ b/Lisp/type-handling.lisp @@ -301,7 +301,7 @@ Returns: (VALUES typespec byte-position string-position)" ;; type found. (cadr (find-if #'(lambda (x) (and (consp x) (eq (car x) 'nominally))) - (cadr typespec)))) + (cadr (typespec typespec))))) (defun typespec-primary-type (typespec) |