diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-29 17:58:58 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-29 17:58:58 +0200 |
commit | 7f829dbfba7de43bbc2402b12ea476c63a2ef1f0 (patch) | |
tree | d4c2f8d285951b7a5a29ed9188fa533d84c80f94 /utils.lisp | |
parent | 29945a7ea76b60795b8dc6d6267924bfa4459357 (diff) |
Store data using CLSQL rather than custom files.
darcs-hash:b736c3a1a111f001b4db43c5d869d42cdf032f94
Diffstat (limited to 'utils.lisp')
-rw-r--r-- | utils.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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)) |