From 01f48d7be09b6f55034028c494100230039513db Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@sift.net>
Date: Mon, 24 Jun 2024 15:07:05 -0500
Subject: [PATCH] Remove unnecessary use of ECASE.

ECASE used when operating over a variable that is set to one of three
known failures. Allegro didn't like that the error case was
unreachable (clever of it to realize it was unreachable).
---
 hddl/hddl-pprint.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hddl/hddl-pprint.lisp b/hddl/hddl-pprint.lisp
index d941ca9..3293e07 100644
--- a/hddl/hddl-pprint.lisp
+++ b/hddl/hddl-pprint.lisp
@@ -124,7 +124,7 @@ in the form of a list of actions."
              (parse-integer line :junk-allowed t)
            (collecting
                (cons id
-                (ecase format
+                (case format
                   (:comma-separated
                    (comma-separated-task->sexp (subseq (string-upcase line) (1+ pos))))
                   (:s-expression
@@ -153,7 +153,7 @@ in the form of a list of actions."
                   (partition-method-line (subseq line (1+ pos)))
                 (declare (type string task-string method-id subtasks))
                 (collecting `(,id
-                              ,(ecase format
+                              ,(case format
                                  (:default
                                   (space-separated-string->hddl-list (string-upcase task-string)))
                                  (:s-expression