From 0e57ae91775adca6e67195ccf0208e676720a39d Mon Sep 17 00:00:00 2001
From: Alexey Dejneka <adejneka@comail.ru>
Date: Mon, 23 Sep 2002 03:54:20 +0000
Subject: [PATCH] 0.7.7.39:         New bug: "unbound variable
 SB-C::*LOSSAGE-FUN*".

---
 BUGS              |   22 ++++++++++++++++++++++
 version.lisp-expr |    2 +-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/BUGS b/BUGS
index ea797df..0177a1f 100644
--- a/BUGS
+++ b/BUGS
@@ -1256,6 +1256,28 @@ WORKAROUND:
 
     (FOO ' (1 . 2)) => "NIL IS INTEGER, Y = 1"
 
+202:
+  In 0.6.12.43 compilation of a function definition, contradicting its
+  FTYPE proclamation, causes an error, e.g. COMPILE-FILE on
+
+    (declaim (ftype (function () null) foo))
+    (defun foo () t)
+
+  fails with
+
+    debugger invoked on condition of type UNBOUND-VARIABLE:
+    The variable SB-C::*ERROR-FUNCTION* is unbound.
+
+  in
+
+    (SB-C::NOTE-LOSSAGE
+       "~@<The previously declared FTYPE~2I ~_~S~I ~_~
+                              conflicts with the definition type ~2I~_~S~:>"
+       (FUNCTION NIL NULL)
+       (FUNCTION NIL #))
+
+  (In 0.7.0 the variable was renamed to SB-C::*LOSSAGE-FUN*.)
+
 DEFUNCT CATEGORIES OF BUGS
   IR1-#:
     These labels were used for bugs related to the old IR1 interpreter.
diff --git a/version.lisp-expr b/version.lisp-expr
index a3e051d..61c7d28 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; internal versions off the main CVS branch, it gets hairier, e.g.
 ;;; "0.pre7.14.flaky4.13".)
 
-"0.7.7.38"
+"0.7.7.39"
-- 
1.7.10.4