# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1661483420 14400
# Node ID 96b886c42e6899f0c64904cfeebe899b3147b451
# Parent  e94de54baaa113eae17919cb2cfa641b929f2cf5
Nicer error

diff -r e94de54baaa1 -r 96b886c42e68 src/mop.lisp
--- 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))))