From 85183eb4a05d57b681fe4ed83a6b539b2ae4ef98 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 13 Mar 2008 18:31:08 +0100 Subject: Internal type declaration reader macro: Add &REST NIL to the return type by default. darcs-hash:5622add380aaf4eaa7495e34fe07949490a9aac8 --- Lisp/internal-reader-syntax.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Lisp') 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)))) -- cgit v1.2.3