- changed function name 'id->user' to 'user-id->user'.

src/db.lisp

@@ -529,12 +529,12 @@ to the corresponding id in table +table-account+"
 (defun user-exists-p (username)
   (acct->user username))
 
-(defun id->user (id)
+(defun user-id->user (id)
   (fetch-from-id :account id))
 
 (defun user-id->username (user-id)
   "username or acct are synonyms"
-  (when-let ((user (id->user user-id)))
+  (when-let ((user (user-id->user user-id)))
     (db-getf user :acct)))
 
 (defun insert-in-history (prompt input)

src/package.lisp

@@ -727,7 +727,7 @@
    :acct->id
    :username->id
    :user-exists-p
-   :id->user
+   :user-id->user
    :user-id->username
    :insert-in-history
    :previous-in-history