96b886c42e68
Nicer error
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Thu, 25 Aug 2022 23:10:20 -0400 |
parents | e94de54baaa1 |
children | 06299969c903 |
branches/tags | (none) |
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))))