diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-09-27 11:38:32 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-09-27 11:38:32 -0500 |
| commit | cee07c415eafd0a1111ddb02c15d3a8fc357383e (patch) | |
| tree | d44eff8a2ce026740622fb29ff89cef5420a1acb /utility-apps.lisp | |
| parent | 91c3334389235a1f6992e76e54dac3ba7144f517 (diff) | |
created macros.lisp, bugfix
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 b52baf0..16df32f 100644 --- a/utility-apps.lisp +++ b/utility-apps.lisp @@ -58,7 +58,7 @@ (name :accessor room-name :initarg :name :initform "") (aliases :accessor room-aliases :initarg :aliases :initform nil) (members :accessor room-members :initarg :members :initform nil) - (direct-p :accessor direct-p :initarg :direct-p :initform))) + (direct-p :accessor direct-p :initarg :direct-p :initform nil))) (defclass server-directory () ((directory-table @@ -166,7 +166,7 @@ (find-if (lambda (contact) (or (equal name contact) (and like (search name contact :test #'string-equal)))) - (client-contacts client))) + (client-contacts client)))) ;;; Basic Joiner Bot |