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

Diff of /slime/swank-allegro.lisp

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

revision 1.17 by heller, Wed Mar 3 20:55:38 2004 UTC revision 1.18 by heller, Thu Mar 4 22:15:40 2004 UTC
# Line 309  Line 309 
309          (push (cons (to-string fspec) location) xrefs)))          (push (cons (to-string fspec) location) xrefs)))
310      (group-xrefs xrefs)))      (group-xrefs xrefs)))
311    
312  ;;;; Multiprocessing  ;;;; Inspecting
313    
314    (defmethod inspected-parts (o)
315      (let* ((class (class-of o))
316             (slots (clos:class-slots class)))
317        (values (format nil "~A~%   is a ~A" o class)
318                (mapcar (lambda (slot)
319                          (let ((name (clos:slot-definition-name slot)))
320                            (cons (to-string name)
321                                  (slot-value o name))))
322                        slots))))
323    
324    ;;;; Multithreading
325    
326  (defimplementation startup-multiprocessing ()  (defimplementation startup-multiprocessing ()
327    (mp:start-scheduler))    (mp:start-scheduler))

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5