;;; -*- Mode: Emacs-Lisp -*-

;;;; Pseudoscheme Hacks for SLIME

(defun pseudoscheme-package-p (object)
  (or (symbolp object)
      (stringp object)))

(put 'pseudoscheme-package 'safe-local-variable 'pseudoscheme-package-p)

(eval-after-load "slime"
  '(add-hook 'slime-mode-hook
             (lambda ()
               (if (and (boundp 'pseudoscheme-package)
                        pseudoscheme-package)
                   (setq slime-buffer-package
                         (with-output-to-string
                           (prin1 pseudoscheme-package)))))))