From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 7 Oct 2009 09:56:48 +0000 (+0000)
Subject: 1.0.31.30: fix IF docstring
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3ff82c68661051e4c1ac9b80159e5aadcdeb17e7;p=sbcl.git

1.0.31.30: fix IF docstring

  https://bugs.launchpad.net/sbcl/+bug/439264

  ...good thing no-one trusts a docstring, eh. A bug report to the
  effect "IF is broken, executes THEN when condition true" would have
  been mortifying...
---

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index 9b04e0f..1556377 100644
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -26,7 +26,7 @@ forms, returns NIL."
   #!+sb-doc
   "IF predicate then [else]
 
-If PREDICATE evaluates to false, evaluate THEN and return its values,
+If PREDICATE evaluates to true, evaluate THEN and return its values,
 otherwise evaluate ELSE and return its values. ELSE defaults to NIL."
   (let* ((pred-ctran (make-ctran))
          (pred-lvar (make-lvar))
diff --git a/version.lisp-expr b/version.lisp-expr
index 7348d31..1a7df00 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.31.29"
+"1.0.31.30"