From: Alexey Dejneka <adejneka@comail.ru>
Date: Mon, 4 Nov 2002 09:04:37 +0000 (+0000)
Subject: 0.7.9.27:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=591f88ee8323e7ac196b43fb7949227079674ca5;p=sbcl.git

0.7.9.27:
        Described precisely the return type of
        SB-C::SOURCE-TRANSFORM-INTRANSITIVE (it is important with our
        non-ANSI treating of VALUES type specifier).
---

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index a17d640..b82e87c 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -3173,7 +3173,9 @@
 ;;; Do source transformations for intransitive n-arg functions such as
 ;;; /. With one arg, we form the inverse. With two args we pass.
 ;;; Otherwise we associate into two-arg calls.
-(declaim (ftype (function (symbol list t) list) source-transform-intransitive))
+(declaim (ftype (function (symbol list t)
+                          (values list &optional (member nil t)))
+                source-transform-intransitive))
 (defun source-transform-intransitive (function args inverse)
   (case (length args)
     ((0 2) (values nil t))
diff --git a/version.lisp-expr b/version.lisp-expr
index b789f65..04df8cb 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.9.26"
+"0.7.9.27"