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)

diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp
index bc1cfe4..a7f32f7 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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"