Ignore:
Timestamp:
Oct 26, 2008, 8:32:58 AM (11 years ago)
Author:
gb
Message:

Make the printing of PROCESS-WHOSTATE optional in the PROCESS
PRINT-OBJECT-METHOD; default to traditional behavior.
(PROCESS-WHOSTATE does SYMBOL-VALUE-IN-PROCESS which has to suspend/
resume the thread; suspend/resume don't work well on Win32, and
SLIME is always printing proceses when logging protocol info for
debugging, so I just want to have fewer bugs to deal with at
any point in time.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-processes.lisp

    r11135 r11225  
    141141  (:primary-p t))
    142142
     143(defparameter *print-process-whostate* t "make it optional")
     144
    143145(defmethod print-object ((p process) s)
    144146  (print-unreadable-object (p s :type t :identity t)
    145     (format s "~a(~d) [~a]" (process-name p)
    146             (process-serial-number p)(process-whostate p))))
     147    (format s "~a(~d)" (process-name p)
     148            (process-serial-number p))
     149    (when *print-process-whostate*
     150      (format s " [~a]" (process-whostate p)))))
    147151
    148152(defvar *process-class* (find-class 'process))
Note: See TracChangeset for help on using the changeset viewer.