/[cmucl]/src/hemlock/debug.lisp
ViewVC logotype

Diff of /src/hemlock/debug.lisp

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

revision 1.4 by chiles, Sat Oct 12 20:57:29 1991 UTC revision 1.5 by ram, Mon May 31 20:26:29 1993 UTC
# Line 274  Line 274 
274      (when server-info      (when server-info
275        (let ((bpts (buffer-breakpoints buffer))        (let ((bpts (buffer-breakpoints buffer))
276              (wire (server-info-wire server-info)))              (wire (server-info-wire server-info)))
277          (dolist (b bpts)            (dolist (b bpts)
278            (setf *breakpoints* (delete b *breakpoints*))              (setf *breakpoints* (delete b *breakpoints*))
279            (wire:remote wire              (when wire
280              (di:delete-breakpoint (breakpoint-info-remote-object b))))                (wire:remote wire
281          (wire:wire-force-output wire)))))                  (di:delete-breakpoint (breakpoint-info-remote-object b))))
282            (when wire
283              (wire:wire-force-output wire)))))))
284  ;;;  ;;;
285  (add-hook delete-buffer-hook 'delete-breakpoints-buffer-hook)  (add-hook delete-buffer-hook 'delete-breakpoints-buffer-hook)
286    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5