From 17251ef91f8a91ca0ab8aad2a20e61876be27aed Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Sat, 12 Apr 2003 04:40:29 +0000 Subject: [PATCH] 0.pre8.55: Fixed typo in CONTINUATION-CHECK-TYPES (thanks to Gerd Moellmann). --- src/compiler/checkgen.lisp | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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" -- 1.7.10.4