/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

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

revision 1.634 by heller, Sat Feb 14 12:33:28 2009 UTC revision 1.635 by heller, Tue Feb 17 09:03:41 2009 UTC
# Line 1151  The processing is done in the extent of Line 1151  The processing is done in the extent of
1151    (destructure-case event    (destructure-case event
1152      ((:emacs-rex form package thread-id id)      ((:emacs-rex form package thread-id id)
1153       (let ((thread (thread-for-evaluation thread-id)))       (let ((thread (thread-for-evaluation thread-id)))
1154         (push thread *active-threads*)         (cond (thread
1155         (send-event thread `(:emacs-rex ,form ,package ,id))))                (push thread *active-threads*)
1156                  (send-event thread `(:emacs-rex ,form ,package ,id)))
1157                 (t
1158                  (encode-message
1159                   (list :invalid-rpc id
1160                         (format nil "Thread not found: ~s" thread-id))
1161                   (current-socket-io))))))
1162      ((:return thread &rest args)      ((:return thread &rest args)
1163       (let ((tail (member thread *active-threads*)))       (let ((tail (member thread *active-threads*)))
1164         (setq *active-threads* (nconc (ldiff *active-threads* tail)         (setq *active-threads* (nconc (ldiff *active-threads* tail)

Legend:
Removed from v.1.634  
changed lines
  Added in v.1.635

  ViewVC Help
Powered by ViewVC 1.1.5