diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-09-28 20:24:56 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-09-28 20:24:56 -0500 |
| commit | 5dcd748a84bf756c6261b9e1aa2284b791d48bea (patch) | |
| tree | f11aaf025ab08b4e1ca3a335f8074f12a4e8746b /utility-apps.lisp | |
| parent | a8d1917573ee18e18c01e447313b1a8e4fb29884 (diff) | |
better name, adding exports
Diffstat (limited to 'utility-apps.lisp')
| -rw-r--r-- | utility-apps.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utility-apps.lisp b/utility-apps.lisp index da32674..9ef8cde 100644 --- a/utility-apps.lisp +++ b/utility-apps.lisp @@ -198,8 +198,8 @@ (let-cond (room (find-contact client name :like like :get-direct-room t) room) - (room (find-contact client name :like like) - (create-direct-message-room client room)))) + (full-name (find-contact client name :like like) + (create-direct-message-room client full-name)))) (defun create-direct-message-room (client name) |