Changeset 15101

Timestamp:

Dec 1, 2011, 2:55:32 PM (13 years ago)

Author:

gz

Message:

Make process-run-function accept :class/:initargs args

File:

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

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

@@ -592 +592 @@
                             (vstack-size *default-value-stack-size*)
                             (tstack-size *default-temp-stack-size*)
+                            (persistent nil)
                             (initial-bindings ())
-                            (persistent nil)
                             (use-standard-initial-bindings t)
+                            (class (find-class 'process))
+                            (initargs nil)
                             (termination-semaphore nil)
                             (allocation-quantum (default-allocation-quantum)))
@@ -607 +609 @@
                                   :use-standard-initial-bindings use-standard-initial-bindings
                                   :initial-bindings initial-bindings
+                                  :class class
+                                  :initargs initargs
                                   :termination-semaphore termination-semaphore
                                   :allocation-quantum allocation-quantum)))