/[cmucl]/src/interface/interface.lisp
ViewVC logotype

Diff of /src/interface/interface.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by ram, Thu Mar 3 16:58:30 1994 UTC revision 1.8 by ram, Sat Mar 19 21:55:16 1994 UTC
# Line 284  Line 284 
284    (setf *lisp-interface-shell* nil))    (setf *lisp-interface-shell* nil))
285    
286  (defun system-server-status-hook (process)  (defun system-server-status-hook (process)
287    (let ((status (ext:process-status process)))    (unless (ext:process-alive-p process)
288      (unless (ext:process-alive-p process)      (setf *system-motif-server* nil)
289        (setf *system-motif-server* nil)      (warn "Motif server died.~@
290        (warn "Motif server died.~@             Status = ~S, exit code = ~D."
291               Status = ~S, exit code = ~D."            (ext:process-status process)
292              (ext:process-status process)            (ext:process-exit-code process))))
             (ext:process-exit-code process)))))  
293    
294  (defvar *server-startup-timeout* 30)  (defvar *server-startup-timeout* 30)
295    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5