Skip to content
Snippets Groups Projects
Commit 07c48b04 authored by ram's avatar ram
Browse files

.../systems-work/code/lispinit.lisp, 20-Sep-89 00:27:29, Edit by Chiles.

  Removed WITHOUT-HEMLOCK to put it in hem:rompsite.lisp.
[Was in lispinit in working code...]
parent ae44dab7
No related branches found
No related tags found
No related merge requests found
...@@ -112,21 +112,6 @@ ...@@ -112,21 +112,6 @@
(funcall #'enable-interrupt (car ,it) (cadr ,it) (caddr ,it))))))) (funcall #'enable-interrupt (car ,it) (cadr ,it) (caddr ,it)))))))
(defvar hi::*in-the-editor* nil)
(defmacro without-hemlock (&body body)
`(progn
(when (and hi::*in-the-editor* (null debug::*in-the-debugger*))
(let ((device (hi::device-hunk-device
(hi::window-hunk (hi::current-window)))))
(funcall (hi::device-exit device) device)))
,@body
(when (and hi::*in-the-editor* (null debug::*in-the-debugger*))
(let ((device (hi::device-hunk-device
(hi::window-hunk (hi::current-window)))))
(funcall (hi::device-init device) device)))))
;;; With-Reply-Port -- Public ;;; With-Reply-Port -- Public
;;; ;;;
;;; If we find that the number of ports in use (as indicated by ;;; If we find that the number of ports in use (as indicated by
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment