       "q" 'quit-window
       "r" 'sly-xref-retract)))
 
-
 (def-package! sly-repl-ansi-color
   :defer t
   :init

          "N" #'sly-previous-note
          "s" #'sly-stickers-next-sticker
          "S" #'sly-stickers-prev-sticker)
        (:prefix "h"
          "<" #'sly-who-calls
          ">" #'sly-calls-who
          "~" #'hyperspec-lookup-format

          "r" #'sly-who-references
          "s" #'sly-who-specializes
          "S" #'sly-who-sets)
        (:prefix ("c" . "compile")
          "c" #'sly-compile-file
          "C" #'sly-compile-and-load-file
          "f" #'sly-compile-defun
          "l" #'sly-load-file
          "n" #'sly-remove-notes
          "r" #'sly-compile-region)
        (:prefix ("e" . "evaluate")
          "b" #'sly-eval-buffer
          "e" #'sly-eval-last-expression
          "E" #'sly-eval-print-last-expression
          "f" #'sly-eval-defun
          "F" #'sly-undefine-function
          "r" #'sly-eval-region)
        (:prefix ("m" . "macro")
          "e" #'+common-lisp/macrostep/body
          "E" #'macrostep-expand)
        (:prefix ("r" . "repl")
          "c" #'sly-mrepl-clear-repl
          "q" #'sly-quit-lisp
          "r" #'sly-restart-inferior-lisp
          "s" #'sly-mrepl-sync)
        (:prefix ("s" . "stickers")
          "b" #'sly-stickers-toggle-break-on-stickers
          "c" #'sly-stickers-clear-defun-stickers
          "C" #'sly-stickers-clear-buffer-stickers
          "f" #'sly-stickers-fetch
          "r" #'sly-stickers-replay
          "s" #'sly-stickers-dwim)
        (:prefix ("t" . "trace")
          "t" #'sly-toggle-trace-fdefinition
          "T" #'sly-toggle-fancy-trace
          "u" #'sly-untrace-all))
