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).
rpgoldman · Jun 24, 2024 · 01f48d7 · 01f48d7
1 parent 4b048e6
commit 01f48d7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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