[back] Minor fix

back/chad-music.asd

@@ -13,6 +13,7 @@
                #:ironclad
                #:jonathan
                #:lack
+	       #:log4cl
                #:myway
                #:plump
                #:quri

back/server.lisp

@@ -268,7 +268,7 @@
 (defun user-token (info)
   (let ((token (crypto:byte-array-to-hex-string
         (crypto:random-data +token-length+))))
-    (setf (gethash token (server-user-tokens *server*)) info)
+    (setf (gethash token (server-token-user *server*)) info)
     (save-server)
     token))
 
@@ -284,8 +284,7 @@
         (if (authorize-user info)
             (200-json `(:|token| ,(user-token info)))
             +401+))
-    (error () +400+)))
-
+    (error (e) (log:error e) +400+)))
 
 (defun user-info (params)
   (declare #.*standard-optimize-settings* (ignorable params))