From: Alexey Dejneka <adejneka@comail.ru>
Date: Sat, 12 Apr 2003 04:40:29 +0000 (+0000)
Subject: 0.pre8.55:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=17251ef91f8a91ca0ab8aad2a20e61876be27aed;p=sbcl.git

0.pre8.55:
        Fixed typo in CONTINUATION-CHECK-TYPES (thanks to Gerd
        Moellmann).
---

diff --git a/src/compiler/checkgen.lisp b/src/compiler/checkgen.lisp
index 129c754..134e3b8 100644
--- a/src/compiler/checkgen.lisp
+++ b/src/compiler/checkgen.lisp
@@ -226,7 +226,7 @@
 	(dest (continuation-dest cont)))
     (aver (not (eq ctype *wild-type*)))
     (multiple-value-bind (ctypes count) (no-fun-values-types ctype)
-      (multiple-value-bind (atypes acount) (no-fun-values-types ctype)
+      (multiple-value-bind (atypes acount) (no-fun-values-types atype)
         (aver (eq count acount))
         (cond ((not (eq count :unknown))
                (if (or (exit-p dest)
diff --git a/version.lisp-expr b/version.lisp-expr
index b65a3e3..17ce533 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.pre8.55"
+"0.pre8.56"