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

Diff of /slime/swank-abcl.lisp

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

revision 1.73 by mevenson, Sun Sep 20 09:04:53 2009 UTC revision 1.74 by trittweiler, Sun Sep 20 10:51:50 2009 UTC
# Line 344  Line 344 
344      (backtrace start end)))      (backtrace start end)))
345    
346  (defimplementation print-frame (frame stream)  (defimplementation print-frame (frame stream)
347    (write-string    (write-string
348     #+#.(swank-backend::with-symbol 'backtrace 'sys)     #+#.(swank-backend::with-symbol 'backtrace 'sys)
349     (sys:frame-to-string frame)     (sys:frame-to-string frame)
350     #-#.(swank-backend::with-symbol 'backtrace 'sys)     #-#.(swank-backend::with-symbol 'backtrace 'sys)
# Line 589  part of *sysdep-pathnames* in swank.load Line 589  part of *sysdep-pathnames* in swank.load
589    (defparameter *thread-description-map* (make-hash-table))    (defparameter *thread-description-map* (make-hash-table))
590    
591    (defimplementation thread-description (thread)    (defimplementation thread-description (thread)
592      (synchronized-on *thread-description-map*      (threads:synchronized-on *thread-description-map*
593        (or (gethash thread *thread-description-map*)        (or (gethash thread *thread-description-map*)
594            "No description available.")))            "")))
595    
596    (defimplementation set-thread-description (thread description)    (defimplementation set-thread-description (thread description)
597      (synchronized-on *thread-description-map*      (threads:synchronized-on *thread-description-map*
598        (setf (gethash thread *thread-description-map*) description)))        (setf (gethash thread *thread-description-map*) description)))
599    
600    (defimplementation make-lock (&key name)    (defimplementation make-lock (&key name)

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

  ViewVC Help
Powered by ViewVC 1.1.5