From 82bc827ff5e927b177796b281406da1757a22954 Mon Sep 17 00:00:00 2001 From: garland <garland> Date: Thu, 4 Feb 1993 22:56:14 +0000 Subject: [PATCH] The inspector/debugger was not behaving properly in the absence of the DISPLAY environment variable. It now correctly senses the lack of X and quietly uses the TTY. --- interface/interface.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/interface/interface.lisp b/interface/interface.lisp index 1a0e56f15..f976b2fef 100644 --- a/interface/interface.lisp +++ b/interface/interface.lisp @@ -256,14 +256,14 @@ (defun use-graphics-interface (&optional (kind *interface-style*)) (cond - ((and (member kind '(:window :windows :graphics :graphical :x)) - (assoc :display ext:*environment-list*)) - t) + ((not (assoc :display ext:*environment-list*)) nil) + ((member kind '(:window :windows :graphics :graphical :x)) t) ((member kind '(:command-line :tty)) nil) (t - (error "Interface specification must be one of :window, :windows, ~%~ - :graphics, :graphical, :x, :command-line, or :tty -- ~%~ - not ~S." kind)))) + (let ((*interface-style* :tty)) + (error "Interface specification must be one of :window, :windows, ~%~ + :graphics, :graphical, :x, :command-line, or :tty -- ~%~ + not ~S." kind))))) (defun close-connection-hook (connection) (declare (ignore connection)) -- GitLab