Changeset 690

Timestamp:

Mar 22, 2004, 9:30:56 AM (21 years ago)

Author:

Gary Byers

Message:

MAKE-PROCESS takes :CLASS argument.

File:

• trunk/ccl/level-1/l1-processes.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-processes.lisp

@@ -118 +118 @@
      (serial-number :initform (%new-psn) :accessor process-serial-number)
      (creation-time :initform (get-tick-count) :reader process-creation-time)
-     (total-run-time :initform nil :accessor %process-total-run-time))
+     (total-run-time :initform nil :accessor %process-total-run-time)
+     (ui-object :initform (application-ui-object *application*)
+                :accessor process-ui-object))
   
   (:primary-p t))
@@ -142 +144 @@
                           (tstack-size *default-temp-stack-size*)
                           (initial-bindings ())
-                          (use-standard-initial-bindings t))
+                          (use-standard-initial-bindings t)
+                          (class (find-class 'process)))
   (declare (ignore flavor))
   (let* ((p (make-instance
-             'process
+             class
              :name name
              :thread (or thread