(in-package :swank)

(defun my-repl-eval (string)
  (format t "; Reseting weblocks sessions~%")
  (weblocks:reset-sessions)
  (repl-eval string))

(setq *listener-eval-function* #'my-repl-eval)