Ignore:
Timestamp:
Sep 21, 2011, 6:32:42 PM (8 years ago)
Author:
gz
Message:

accept an :initargs arg in make-mcl-listener-process

File:
1 edited

Legend:

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

    r14619 r14995  
    168168                          (use-standard-initial-bindings t)
    169169                          (class (find-class 'process))
     170                          (initargs nil)
    170171                          (termination-semaphore ())
    171172                          (allocation-quantum (default-allocation-quantum)))
    172173  "Create and return a new process."
    173   (let* ((p (make-instance
     174  (let* ((p (apply #'make-instance
    174175             class
    175176             :name name
     
    182183             :termination-semaphore (or termination-semaphore
    183184                                        (make-semaphore))
    184              :allocation-quantum allocation-quantum)))
     185             :allocation-quantum allocation-quantum
     186             initargs)))
    185187    (with-slots ((lisp-thread thread)) p
    186188      (unless lisp-thread
Note: See TracChangeset for help on using the changeset viewer.