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

Diff of /slime/swank.lisp

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

revision 1.710 by heller, Wed Apr 14 17:51:56 2010 UTC revision 1.711 by sboukarev, Sat Apr 17 18:10:20 2010 UTC
# Line 3708  a time.") Line 3708  a time.")
3708  LABELS is a list of attribute names and the remaining lists are the  LABELS is a list of attribute names and the remaining lists are the
3709  corresponding attribute values per thread."  corresponding attribute values per thread."
3710    (setq *thread-list* (all-threads))    (setq *thread-list* (all-threads))
3711      (when (use-threads-p)
3712        (setf *thread-list* (delete (current-thread) *thread-list*)))
3713    (let* ((plist (thread-attributes (car *thread-list*)))    (let* ((plist (thread-attributes (car *thread-list*)))
3714           (labels (loop for (key) on plist by #'cddr           (labels (loop for (key) on plist by #'cddr
3715                         collect key)))                         collect key)))

Legend:
Removed from v.1.710  
changed lines
  Added in v.1.711

  ViewVC Help
Powered by ViewVC 1.1.5