/src/util/misc.lisp

(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+))