From 85183eb4a05d57b681fe4ed83a6b539b2ae4ef98 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
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(-)

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