hg.stevelosh.com > jarl

96b886c42e68 default tip 

Nicer error
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Thu, 25 Aug 2022 23:10:20 -0400
parents e94de54baaa1
children (none)
branches/tags default tip
files src/mop.lisp

Changes

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