Changeset 14855


Ignore:
Timestamp:
09/03/16 07:12:22 (6 years ago)
Author:
Mark Evenson
Message:

Fix breakage on the way to RUN-PROGRAM (Elias Pipping)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/run-program.lisp

    r14853 r14855  
    216216  (let ((process (%make-process proc)))
    217217    (when inputp
    218       (setf (%process-input process) (%make-process-input-stream proc)))
     218      (setf (process-%input process) (%make-process-input-stream proc)))
    219219    (when outputp
    220       (setf (%process-output process) (%make-process-output-stream proc)))
     220      (setf (process-%output process) (%make-process-output-stream proc)))
    221221    (when errorp
    222       (setf (%process-error process) (%make-process-error-stream proc)))
     222      (setf (process-%error process) (%make-process-error-stream proc)))
    223223    process))
    224224
    225225(defun process-input (process)
    226   (%process-input process))
     226  (process-%input process))
    227227
    228228(defun process-output (process)
    229   (%process-output process))
     229  (process-%output process))
    230230
    231231(defun process-error (process)
    232   (%process-error process))
     232  (process-%error process))
    233233
    234234(defun process-alive-p (process)
Note: See TracChangeset for help on using the changeset viewer.