src/middleware/core.lisp @ 9cf977a17d89

Clean up the godawful utils file
author Steve Losh <steve@stevelosh.com>
date Sat, 09 Apr 2016 21:04:26 +0000
parents dcaf8468adb1
children 3e9db801d234
(in-package #:nrepl)

(defvar *middleware* (fset:empty-map))


(defmacro handle-op (message op fallback &rest body)
  `(if (equal ,op (fset:lookup ,message "op"))
     (progn ,@body)
     (funcall ,fallback ,message)))

(defmacro define-middleware (name op message-binding &rest body)
  (let ((fallback (gensym)))
  `(defun ,name (,fallback)
     (lambda (,message-binding)
       (handle-op ,message-binding ,op ,fallback
                  ,@body)))))