From 7d95090df17cdde93fb3db5b188651504926c442 Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Thu, 24 Mar 2022 15:19:34 +0000
Subject: [PATCH] Disable FORMAT.E.20

It invokes undefined behaviour.  Fixes #33
---
 printer/format/format-e.lsp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/printer/format/format-e.lsp b/printer/format/format-e.lsp
index c25f54bf..7eea2a64 100644
--- a/printer/format/format-e.lsp
+++ b/printer/format/format-e.lsp
@@ -313,6 +313,9 @@
           collect (list x s s2)))
   nil)
 
+;;; undefined behaviour: the format string is "~,2,,4E": d is 2 and k
+;;; is 4, but k (4) is not strictly less than d+2 (4).
+#+(or)
 (deftest format.e.20
   (let ((fn (formatter "~,2,,4e")))
     (loop for x in '(1/20 0.05s0 0.05f0 0.05d0 0.05l0)
-- 
GitLab