/src/util/misc.lisp
http://github.com/skypher/cl-oauth · Lisp · 25 lines · 18 code · 7 blank · 0 comment · 1 complexity · 8d94a6fffb2a4eabd40ae74f918142d0 MD5 · raw file
- (in-package :oauth)
- (defun alist->plist (alist)
- "Converts an alist to plist."
- (let ((keyword-package (find-package :keyword)))
- (loop for i in alist
- collect (if (symbolp (car i))
- (intern (symbol-name (car i)) keyword-package)
- (intern (string-upcase (car i)) keyword-package))
- collect (cdr i))))
- (defun splice-alist (alist)
- (reduce #'nconc (mapcar (lambda (x)
- (list (car x) (cdr x)))
- alist)))
- (defun between (what lower upper)
- (and (>= what lower) (<= what upper)))
- (defconstant +unix-to-universal-time+ 2208988800)
- (defun get-unix-time (&optional (ut (get-universal-time)))
- (- ut +unix-to-universal-time+))