File: acl-sys.lisp

package info (click to toggle)
cl-portable-aserve 20190720.gitcac1d69%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 2,240 kB
  • sloc: lisp: 22,564; makefile: 55; sh: 36
file content (18 lines) | stat: -rw-r--r-- 359 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
(in-package :acl-compat.system)

(ignore-errors
(export 'command-line-arguments)
(export 'command-line-argument)
(export 'reap-os-subprocess)

(defun command-line-arguments ()
  ext:*command-line-strings*)

(defun command-line-argument (n)
  (nth n ext:*command-line-strings*))

(defun reap-os-subprocess (&key (wait nil))
  (declare (ignore wait))
  nil)

)