Changeset 14995 for trunk/source/level-1


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

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

Location:
trunk/source/level-1
Files:
2 edited

Legend:

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

    r14440 r14995  
    8282                                  (temp-stack-size *default-temp-stack-size*)
    8383                                  (echoing t)
    84                                   (process))
     84                                  (process)
     85                                  (initargs nil))
    8586  (let ((p (if (typep process class)
    8687             (progn
     
    8990               process)
    9091             (make-process procname
    91                            :class class
     92                           :class class :initargs initargs
    9293                           :stack-size control-stack-size
    9394                           :vstack-size value-stack-size
  • 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.