88008e9aeac3

Work around an ECL/ABCL bug
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 11 Aug 2020 22:50:46 -0400
parents 6823350d3792
children 52f9e9c8aa31
branches/tags (none)
files src/main.lisp

Changes

--- 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)