diff options
| -rw-r--r-- | l/src/macro.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/l/src/macro.lisp b/l/src/macro.lisp index 283cf9f..18c7d21 100644 --- a/l/src/macro.lisp +++ b/l/src/macro.lisp @@ -1,9 +1,13 @@ (in-package :extreload) (defmacro filter (predicate list-form) + "Returns a sequence that only includes elements of `list-form` that satisfy +the test of `predicate`." `(remove-if-not ,predicate ,list-form)) (defmacro with-websocket-connection ((client) &body body) + "Open a WebSocket connection on `client` and run `body` forms. The connection +is automatically closed at the end of execution." `(progn (wsd:start-connection ,client) (unwind-protect (progn ,@body) |