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