Ticket #48: site-init.lisp

File site-init.lisp, 544 bytes (added by Mark Evenson, 16 years ago)

Patch SLIME HEAD (breaks things further down the line, but as a stopgap works)

Line 
1(in-package :swank)
2
3(defvar *borked-connections* (make-hash-table))
4
5(defun patch ()
6  (if  (gethash *emacs-connection* *borked-connections*)
7       (warn "~A is already recorded as patched." *emacs-connection*)
8       (setf (gethash *emacs-connection* *borked-connections*) *emacs-connection*))
9  (format *standard-output* "Fixing *STANDARD-OUTPUT*.~%")
10  (let ((env (connection.env *emacs-connection*)))
11    (loop :for (var . val) :in env
12       :do (setf (symbol-value var) val)))
13  (format *standard-output* "Fixed *STANDARD-OUTPUT*.~%"))