Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (11 sloc) 336 Bytes
(in-package :cl-user)
(asdf:operate 'asdf:load-op :hairball)
(in-package :hairball)
(defun init-database ()
(ensure-directories-exist +database-directory+)
(ensure-directories-exist +upload-directory+)
(connect-to-database))
(init-database)
(format t "Successfully created the database... ~%")
(in-package :cl-user)
(quit)