diff options
| -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) |