# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1597200646 14400
# Node ID 88008e9aeac3d5cf2567b5c4fe051417b3722ac0
# Parent  6823350d3792b403e1e86fa697f01877c33d7345
Work around an ECL/ABCL bug

diff -r 6823350d3792 -r 88008e9aeac3 src/main.lisp
--- a/src/main.lisp	Mon Aug 10 23:15:25 2020 -0400
+++ b/src/main.lisp	Tue Aug 11 22:50:46 2020 -0400
@@ -183,7 +183,8 @@
     (progn (r input) (vector))
     (coerce
       (loop
-        :with (c cc) = contained-class
+        :with c = (car contained-class)
+        :with cc = (cadr contained-class)
         :collect (read% c cc input)
             :do (progn
                   (skip-whitespace input)
@@ -216,7 +217,8 @@
     (if (eql (p input) #\})
       (r input)
       (loop
-        :with (c cc) = contained-class
+        :with c = (car contained-class)
+        :with cc = (cadr contained-class)
         :for name = (read% 'string nil input)
         :for sep = (parse-kv-separator 'hash-table input)
         :for value = (progn (skip-whitespace input)