From 7f829dbfba7de43bbc2402b12ea476c63a2ef1f0 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 29 Sep 2007 17:58:58 +0200
Subject: Store data using CLSQL rather than custom files.

darcs-hash:b736c3a1a111f001b4db43c5d869d42cdf032f94
---
 utils.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'utils.lisp')

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))
-- 
cgit v1.2.3