Преглед изворни кода

[back] fix db loading on server start

Innocenty Enikeew пре 7 година
родитељ
комит
ca6363294f
2 измењених фајлова са 4 додато и 1 уклоњено
  1. 2 0
      back/.gitignore
  2. 2 1
      back/server.lisp

+ 2 - 0
back/.gitignore

@@ -0,0 +1,2 @@
+start.lisp
+config.lisp

+ 2 - 1
back/server.lisp

@@ -166,7 +166,8 @@
 
   ;; Load database
   (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
   (when serve-files