Skip to content
Snippets Groups Projects
Commit 2a2826b4 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Remove unused variable warnings in GCL and more in %use-run-program.

parent b93f2512
No related branches found
No related tags found
No related merge requests found
...@@ -671,7 +671,9 @@ It returns a process-info plist with possible keys: ...@@ -671,7 +671,9 @@ It returns a process-info plist with possible keys:
&key input output error-output ignore-error-status &allow-other-keys) &key input output error-output ignore-error-status &allow-other-keys)
;; helper for RUN-PROGRAM when using %run-program ;; helper for RUN-PROGRAM when using %run-program
#+(or abcl cormanlisp gcl (and lispworks os-windows) mcl mkcl xcl) #+(or abcl cormanlisp gcl (and lispworks os-windows) mcl mkcl xcl)
(error "Not implemented on this platform") (progn
command keys input output error-output ignore-error-status ;; ignore
(error "Not implemented on this platform"))
(assert (not (member :stream (list input output error-output)))) (assert (not (member :stream (list input output error-output))))
(let* ((active-input-p (%active-io-specifier-p input)) (let* ((active-input-p (%active-io-specifier-p input))
(active-output-p (%active-io-specifier-p output)) (active-output-p (%active-io-specifier-p output))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment