diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-13 18:31:08 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-13 18:31:08 +0100 |
| commit | 85183eb4a05d57b681fe4ed83a6b539b2ae4ef98 (patch) | |
| tree | dc29833ea981a3f1bebfd2035eec2f224f970e41 /Lisp | |
| parent | 4f294ea0c5f54751e90fa27860613b017c050698 (diff) | |
Internal type declaration reader macro: Add &REST NIL to the return type by default.
darcs-hash:5622add380aaf4eaa7495e34fe07949490a9aac8
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/internal-reader-syntax.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Lisp/internal-reader-syntax.lisp b/Lisp/internal-reader-syntax.lisp index b466163..2c38534 100644 --- a/Lisp/internal-reader-syntax.lisp +++ b/Lisp/internal-reader-syntax.lisp @@ -93,6 +93,10 @@ (arg-types (first typedecl-parts)) (return-types (second typedecl-parts))) `(progn - (declaim (ftype (function (,@arg-types) (values ,@return-types)) + (declaim (ftype (function (,@arg-types) + (values ,@return-types + ,@(unless + (member '&rest return-types) + '(&rest nil)))) ,function-name)) ,defun-form)))) |