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 | |
| parent | a8d1917573ee18e18c01e447313b1a8e4fb29884 (diff) | |
better name, adding exports
| -rw-r--r-- | package.lisp | 1 | ||||
| -rw-r--r-- | utility-apps.lisp | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/package.lisp b/package.lisp index c0e639b..a498946 100644 --- a/package.lisp +++ b/package.lisp @@ -37,6 +37,7 @@ #:room-member-p #:find-contact #:ensure-direct-room + #:create-direct-message-room #:auto-joiner 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) |