mon-key

;;; :FILE-CREATED <Timestamp: #{2012-06-05T14:40:40-04:00Z}#{12232} - by MON>
;;; :FILE mystuff2-model/mystuff2-sqlite.lisp
;;; ==============================

#|


As of 2012-09-20 unverified with version Mystuff2 v2.0

Known to work with MyStuff2 version 1.4x with the following CL implementation:

mon-key

;; quick and dirty elisp for cleaning irc log files pulled from 
;; http://tunes.org/~nef/logs/lisp/
(defun mon-cln-irc-log-buffer ()
  (save-excursion
    (dolist (i '("^.*--- log: .*$"
                 "^.*--- nick: .*$"
                 "^.*--- part: .*$"
                 "^.*--- join: .*$"
                 "^.*--- quit: .*$"))
      (goto-char (point-min))

mon-key

(in-package #:local-time)

(deftype nanosecond-range ()
 '(mod 1000000000))

(deftype second-minute-range ()
 '(mod 60))

(deftype hour-range ()
 '(mod 24))