Skip to content
Snippets Groups Projects
Commit a931db91 authored by chiles's avatar chiles
Browse files

This commit was generated by cvs2svn to compensate for changes in r3811,

which included commits to RCS files with non-trunk default branches.
parents 6e7ae1ee 96d837c5
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/eval-server.lisp,v 1.1.1.11 1991/10/01 17:52:59 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/eval-server.lisp,v 1.1.1.12 1991/10/12 21:05:37 chiles Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -35,9 +35,7 @@
; "background" buffer.
background-buffer ; Buffer "background" typescript is in.
(errors ; Array of errors while compiling
(make-array 16
:adjustable t
:fill-pointer 0))
(make-array 16 :adjustable t :fill-pointer 0))
error-index) ; Index of current error.
;;;
(defun print-server-info (obj stream n)
......@@ -170,7 +168,10 @@
(dolist (var '(current-eval-server current-compile-server server-info))
(when (and (hemlock-bound-p var :buffer buffer)
(eq (variable-value var :buffer buffer) server))
(delete-variable var :buffer buffer)))))
(delete-variable var :buffer buffer))))
(setf *breakpoints* (delete-if #'(lambda (b)
(eq (breakpoint-info-slave b) server))
*breakpoints*)))
;;; SERVER-CLEANUP -- Internal.
;;;
......
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