Ignore:
Timestamp:
Dec 1, 2011, 10:55:32 PM (8 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

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

    r14995 r15101  
    592592                            (vstack-size *default-value-stack-size*)
    593593                            (tstack-size *default-temp-stack-size*)
     594                            (persistent nil)
    594595                            (initial-bindings ())
    595                             (persistent nil)
    596596                            (use-standard-initial-bindings t)
     597                            (class (find-class 'process))
     598                            (initargs nil)
    597599                            (termination-semaphore nil)
    598600                            (allocation-quantum (default-allocation-quantum)))
     
    607609                                  :use-standard-initial-bindings use-standard-initial-bindings
    608610                                  :initial-bindings initial-bindings
     611                                  :class class
     612                                  :initargs initargs
    609613                                  :termination-semaphore termination-semaphore
    610614                                  :allocation-quantum allocation-quantum)))
Note: See TracChangeset for help on using the changeset viewer.