96b886c42e68

--- a/src/mop.lisp	Thu Jul 15 20:54:31 2021 -0400
+++ b/src/mop.lisp	Thu Aug 25 23:10:20 2022 -0400
@@ -231,7 +231,7 @@
   (setf (slot-value class slot)
         (cond
           (value? (progn (when (/= 1 (length value))
-                           (error "fuck u"))
+                           (error "Bad json-class ~A value ~A, expected exactly one value." slot value))
                          (first value)))
           (superclasses (slot-value (first superclasses) slot))
           (t default))))