;;; -*- Mode: Scheme; pseudoscheme-package: SCHEME -*-

;;;; Pseudoscheme Hacks for SLIME

(let ((swank-package (cl:find-package "SWANK")))
  (if swank-package
      (cl:pushnew `("SCHEME" . ,ps:scheme-readtable)
                  (cl:symbol-value
                   (cl:intern "*READTABLE-ALIST*" swank-package)))))