diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-09-25 21:25:09 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-09-25 21:25:09 -0500 |
| commit | 273bc8acf9cc5319062124072a3e568d34efa284 (patch) | |
| tree | cede5be8d318102e9db2dac663e5464f04c37aa8 | |
| parent | cddffced5f2bc46b9a352ece7aa7618eca6b693e (diff) | |
reorganized
| -rw-r--r-- | utility-apps.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/utility-apps.lisp b/utility-apps.lisp index 7f649eb..6165f38 100644 --- a/utility-apps.lisp +++ b/utility-apps.lisp @@ -96,9 +96,8 @@ whose name contains the NAME as a substring is returned. If FULL is T, then the SERVER-ROOM structs themselves are returned." (with-slots (directory-table) client - (loop :for room-id :being :the :hash-keys :of directory-table - :for room :being :the :hash-values :of directory-table + (loop :for room :being :the :hash-values :of directory-table :when (or (string-equal name (room-name room)) (and like (search name (room-name room) :test #'string-equal))) - :collect (if full room room-id)))) + :collect (if full room (room-id room))))) |