8 lines
179 B
Common Lisp
8 lines
179 B
Common Lisp
|
(load "~/.sbclrc")
|
||
|
|
(ql:quickload :loop :silent t)
|
||
|
|
(in-package #:loop)
|
||
|
|
;; (format t *default-pathname-defaults*)
|
||
|
|
(read-accounts!)
|
||
|
|
(remove-inactive-users!)
|
||
|
|
(write-accounts!)
|