2024-12-05 19:03:09 -03:00
|
|
|
#-quicklisp
|
|
|
|
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
|
|
|
|
(user-homedir-pathname))))
|
|
|
|
(when (probe-file quicklisp-init)
|
|
|
|
(load quicklisp-init)))
|
|
|
|
(ql:quickload :loop :silent t)
|
|
|
|
(in-package #:loop)
|
|
|
|
(connect-index! "message-id.db")
|
2024-12-09 13:37:39 -03:00
|
|
|
(drop-create-index!)
|
2024-12-05 19:03:09 -03:00
|
|
|
(index-from-fs!)
|
|
|
|
(format t "Index built.~%")
|