diff options
Diffstat (limited to 'l/src/macro.lisp')
| -rw-r--r-- | l/src/macro.lisp | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/l/src/macro.lisp b/l/src/macro.lisp deleted file mode 100644 index 18c7d21..0000000 --- a/l/src/macro.lisp +++ /dev/null @@ -1,14 +0,0 @@ -(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) - (wsd:close-connection ,client)))) |