1 files changed, 6 insertions, 0 deletions
diff --git a/utils.lisp b/utils.lisp
index 34da533..d4a2d77 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -197,3 +197,9 @@ ELEMENT-TYPE as the stream's."
            destination date-control-string universal-time
            (and time-zone-supplied-p time-zone))))
 
+
+(defun single-object (list &optional (errorp t))
+  (assert (null (cdr list)))
+  (when errorp
+    (assert (not (null list))))
+  (first list))