Changeset 14154 for trunk/source/level-1


Ignore:
Timestamp:
Aug 7, 2010, 7:28:43 AM (9 years ago)
Author:
gb
Message:

Implement CALL-IN-INITIAL-PROCESS in terms of a slightly more general
CALL-IN-PROCESS.

File:
1 edited

Legend:

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

    r13636 r14154  
    749749          (t default))))
    750750
    751 (defun call-in-initial-process (f)
    752   (let* ((process *initial-process*)
    753          (return-values nil)
     751(defun call-in-process (f process)
     752  (let* ((return-values nil)
    754753         (done (make-semaphore)))
    755754    (process-interrupt process
     
    763762    (apply #'values return-values)))
    764763
     764(defun call-in-initial-process (f)
     765  (call-in-process f *initial-process*))
     766
Note: See TracChangeset for help on using the changeset viewer.