В lisp, как подавить вывод предупреждения от groveller? - PullRequest
Новая
       14

В lisp, как подавить вывод предупреждения от groveller?

0 голосов
/ 08 января 2020

Я использую Steel Bank Common Lisp и groveller ; и в некоторых случаях получать предупреждения или ошибки от команды cc, которую она выполняет внутри.

Мне нужно подавить этот вывод.

Код: 

(ql:quickload :cl-libusb :silent t)

Вывод: 

; cc -o /root/.cache/common-lisp/sbcl-1.4.16.debian-linux-x86/root/quicklisp/dists/quicklisp/software/cl-libusb-20191227-git/libusb-grovel__grovel-tmp7LQ0A0VI.o -c -g -O2 -fdebug-prefix-map=/build/sbcl-6gNdxF/sbcl-1.4.16=. -fstack-protector-strong -Wformat -Werror=format-security -g -Wall -Wundef -Wsign-compare -Wpointer-arith -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -fno-pie -fPIC -I/root/quicklisp/dists/quicklisp/software/cffi_0.20.1/ /root/.cache/common-lisp/sbcl-1.4.16.debian-linux-x86/root/quicklisp/dists/quicklisp/software/cl-libusb-20191227-git/libusb-grovel__grovel.c
/root/.cache/common-lisp/sbcl-1.4.16.debian-linux-x86/root/quicklisp/dists/quicklisp/software/cl-libusb-20191227-git/libusb-grovel__grovel.c:6:10: fatal error: usb.h: No such file or directory
 #include <usb.h>
          ^~~~~~~
compilation terminated.
;
; compilation unit aborted
;   caught 1 fatal ERROR condition

В данном конкретном случае проблема заключается в том, что libusb не установлен . Это нормально, но я не хочу, чтобы моя программа выводила пользователю весь этот код sh. Вместо этого я хочу напечатать осмысленное сообщение, такое как «libusb-dev не установлен».

Как подавить вывод этой информации?

...