From 1d5e0a5293d69aa29c8c7b72cda555478622e913 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sat, 26 Oct 2002 13:35:55 +0000 Subject: [PATCH] 0.7.9.4: In the FORMAT apparatus for the ~< directive, change APPLY to REDUCE, to fix a theoretical bug due to small CALL-ARGUMENTS-LIMIT (and to work around an actual bug in CMUCL's byte compiler) --- src/code/late-format.lisp | 2 +- src/code/target-format.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp index bc1cfe4..a7f32f7 100644 --- a/src/code/late-format.lisp +++ b/src/code/late-format.lisp @@ -976,7 +976,7 @@ close params string end) (expand-format-logical-block prefix per-line-p insides suffix atsignp)) - (let ((count (apply #'+ (mapcar (lambda (x) (count-if #'illegal-inside-justification-p x)) segments)))) + (let ((count (reduce #'+ (mapcar (lambda (x) (count-if #'illegal-inside-justification-p x)) segments)))) (when (> count 0) ;; ANSI specifies that "an error is signalled" in this ;; situation. diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp index 5616393..bc90907 100644 --- a/src/code/target-format.lisp +++ b/src/code/target-format.lisp @@ -1061,7 +1061,7 @@ (interpret-format-logical-block stream orig-args args prefix per-line-p insides suffix atsignp)) - (let ((count (apply #'+ (mapcar (lambda (x) (count-if #'illegal-inside-justification-p x)) segments)))) + (let ((count (reduce #'+ (mapcar (lambda (x) (count-if #'illegal-inside-justification-p x)) segments)))) (when (> count 0) ;; ANSI specifies that "an error is signalled" in this ;; situation. diff --git a/version.lisp-expr b/version.lisp-expr index 130d6ed..c414714 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.3" +"0.7.9.4" -- 1.7.10.4