|
@@ -166,7 +166,8 @@
|
|
|
|
|
|
|
|
;; Load database
|
|
;; Load database
|
|
|
(when-let (file (probe-file *db-path*))
|
|
(when-let (file (probe-file *db-path*))
|
|
|
- (setf *db* (load-db file)))
|
|
|
|
|
|
|
+ (let ((*package* (find-package :chad-music.db)))
|
|
|
|
|
+ (setf *db* (load-db file))))
|
|
|
|
|
|
|
|
;; Set up debug file server
|
|
;; Set up debug file server
|
|
|
(when serve-files
|
|
(when serve-files
|