Commit e9e8db50 authored by Elias Pipping's avatar Elias Pipping
Browse files

Use ext: instead of si: on Embeddable Common-Lisp

The system package (si for short) is internal and "never to be used"
according to

This change does not require testing because (presumably
unintentionally) the process-info-pid function generates an error for
ECL anyway (to be fixed in a follow-up commit)
parent 7e0aec2d
...@@ -554,8 +554,9 @@ It returns a process-info plist with possible keys: ...@@ -554,8 +554,9 @@ It returns a process-info plist with possible keys:
(let ((process (getf process-info :process))) (let ((process (getf process-info :process)))
(declare (ignorable process)) (declare (ignorable process))
#+(or allegro lispworks) process #+(or allegro lispworks) process
#+clasp (si:external-process-pid process)
#+clozure (ccl::external-process-pid process) #+clozure (ccl::external-process-pid process)
#+(or clasp ecl) (si:external-process-pid process) #+ecl (ext:external-process-pid process)
#+(or cmu scl) (ext:process-pid process) #+(or cmu scl) (ext:process-pid process)
#+mkcl (mkcl:process-id process) #+mkcl (mkcl:process-id process)
#+sbcl (sb-ext:process-pid process) #+sbcl (sb-ext:process-pid process)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment