Changeset 12224


Ignore:
Timestamp:
Jun 7, 2009, 7:46:41 PM (10 years ago)
Author:
gz
Message:

r11757 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-processes.lisp

    r12204 r12224  
    115115(defclass process ()
    116116    ((name :initform nil :initarg :name :accessor process-name)
    117      (thread :initarg :thread :accessor process-thread)
     117     (thread :initarg :thread :initform nil :accessor process-thread)
    118118     (initial-form :initform (cons nil nil) :reader process-initial-form)
    119119     (priority :initform 0 :initarg :priority :accessor process-priority)
     
    173173             class
    174174             :name name
    175              :thread (or thread
    176                          (new-thread name stack-size  vstack-size  tstack-size))
    177175             :priority priority
    178176             :persistent persistent
     
    184182                                        (make-semaphore))
    185183             :allocation-quantum allocation-quantum)))
     184    (with-slots ((lisp-thread thread)) p
     185      (unless lisp-thread
     186        (setq lisp-thread
     187              (or thread
     188                  (new-thread name stack-size  vstack-size  tstack-size)))))
    186189    (add-to-all-processes p)
    187190    (setf (car (process-splice p)) p)
Note: See TracChangeset for help on using the changeset viewer.