l/src/macro.lisp


1
2
3
4
5
6
7
8
9
10

(in-package :extreload)

(defmacro filter (predicate list-form)
  `(remove-if-not ,predicate ,list-form))

(defmacro with-websocket-connection ((client) &body body)
  `(progn
     (wsd:start-connection ,client)
     (unwind-protect (progn ,@body)
       (wsd:close-connection ,client))))