capability.lisp

Revision 1736, 226 bytes (checked in by hoan, 3 years ago)
Content addressed datastore, and misc functions.
Property svn:eol-style set to `native` Property svn:keywords set to `author date id revision`

Line
1	(in-package :bknr.utils)
2
3	(defvar capability-count 0)
4
5	(defun make-capability-string ()
6	"return new unique capabilty as a string"
7	(md5-string (format nil "~a.~a" (get-universal-time)
8	(incf capability-count))))

Note: See TracBrowser for help on using the browser.