From c9750746673aac3c67f6b82838a89cfae04165ee Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
Date: Thu, 14 May 2020 16:36:55 +0200
Subject: [PATCH] - changed function name 'id->user' to 'user-id->user'.

---
 src/db.lisp      | 4 ++--
 src/package.lisp | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/db.lisp b/src/db.lisp
index 1a008a3..ea85786 100644
--- a/src/db.lisp
+++ b/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)
diff --git a/src/package.lisp b/src/package.lisp
index e666fef..e6a853f 100644
--- a/src/package.lisp
+++ b/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