From 273bc8acf9cc5319062124072a3e568d34efa284 Mon Sep 17 00:00:00 2001 From: Boutade Date: Wed, 25 Sep 2019 21:25:09 -0500 Subject: reorganized --- utility-apps.lisp | 5 ++--- 1 file 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))))) -- cgit v1.2.3