diff options
| author | Teddy Wing | 2021-02-27 19:12:07 +0100 |
|---|---|---|
| committer | Teddy Wing | 2021-02-27 19:12:07 +0100 |
| commit | 4792097ca56f278344f18a0a78aaca1278fd146e (patch) | |
| tree | 8c48974c3a68b955df597a7a5eaa8b7a3afdefa6 /l/src/macro.lisp | |
| parent | 5e0f58d30c08bd294539ede86757970d46cab4f6 (diff) | |
| download | extreload-4792097ca56f278344f18a0a78aaca1278fd146e.tar.bz2 | |
Move everything from `l/` into the project root
This is the final project. Now that we got rid of the web extension and
native host code, we can move the Lisp code to the root.
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)))) |