| 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*.~%"))
|
|---|
