errors when using cmucl to build `lisp-stripper`
Hi,
when I use cl-launch and CMUCL to build lisp-stripper
as an executable, some strange errors been reported. It seems to be the problem of CMUCL itself. Below is the situation I meet:
tianyu@tianyu-Lenovo-G450:/tmp$ cl -l cmucl -Q -sp lisp-stripper \
> -E main --output ./lispwc --dump ! --verbose
+ exec /usr/local/bin/cmucl -quiet -noinit -batch -eval (progn(set-dispatch-macro-character #\# #\! (lambda(stream char arg)(declare(ignore char arg))(values(read-line stream))))(cl:load "/usr/local/bin/cl" :verbose nil :print nil)
(funcall(intern(string :run):cl-launch) :quicklisp t :build '((:load-system "lisp-stripper")) :dump "./lispwc" :restart '("(lambda()(main uiop:*command-line-arguments*))" . :lisp-stripper))) --
[Doing purification: Done.]
[Undoing binding stack... done]
[Saving current lisp image as executable into "/tmp/lispwc":
[Writing core objects
Read-Only: 30751352 bytes...
Static: 6010040 bytes...
Dynamic: 8192 bytes...
done]
Linking executable...
[/usr/local/bin/./../lib/cmucl/lib/linker.sh: linking /tmp/lispwc...
done]
done.
tianyu@tianyu-Lenovo-G450:/tmp$ ./lispwc /usr/local/src/asdf/*.lisp
ASDF 3.1.5.12
Fatal condition:
File-error in function LISP::FD-OPEN: Error opening #P"-quiet", No such file or directory.
0: (DEBUG:BACKTRACE 536870911 #<Stream for Standard Error>)
1: (UIOP/IMAGE:RAW-PRINT-BACKTRACE :STREAM #<Stream for Standard Error>
:COUNT NIL
:CONDITION #<unused-arg>)
2: ("WITH-UPGRADABILITY NIL")
3: ("WITH-UPGRADABILITY NIL")
4: (LISP::%WITH-STANDARD-IO-SYNTAX
#<Closure Over Function "WITH-UPGRADABILITY NIL" {58135A79}>)
5: (UIOP/IMAGE:PRINT-CONDITION-BACKTRACE #<KERNEL:SIMPLE-FILE-ERROR {5812B1BD}>
:STREAM #<Stream for Standard Error>
:COUNT NIL)
6: (UIOP/IMAGE:HANDLE-FATAL-CONDITION #<KERNEL:SIMPLE-FILE-ERROR {5812B1BD}>)
7: (SIGNAL #<KERNEL:SIMPLE-FILE-ERROR {5812B1BD}>)
8: (CERROR "Return NIL."
KERNEL:SIMPLE-FILE-ERROR
:PATHNAME #1=#P"-quiet"
:FORMAT-CONTROL "Error opening ~S, ~A."
:FORMAT-ARGUMENTS (#1# "No such file or directory"))
9: (LISP::FD-OPEN #P"-quiet" :INPUT NIL NIL :ERROR T)
10: (LISP::OPEN-FD-STREAM
#P"-quiet"
:DIRECTION :INPUT
:ELEMENT-TYPE CHARACTER
:IF-EXISTS NIL
:IF-DOES-NOT-EXIST :ERROR
:EXTERNAL-FORMAT :UTF-8
:CLASS NIL
:DECODING-ERROR NIL
:ENCODING-ERROR NIL)
11: (UIOP/STREAM:CALL-WITH-INPUT-FILE
#P"-quiet"
#<Function "DEFUN COUNT-LISP-LOC" {11AB97C9}>
:ELEMENT-TYPE NIL
:EXTERNAL-FORMAT NIL
:IF-DOES-NOT-EXIST :ERROR)
12: (LISP-STRIPPER::PRINT-LOC-COUNT "-quiet")
13: (MAP
NIL
LISP-STRIPPER::PRINT-LOC-COUNT
("-quiet"
"-noinit"
"-batch"
"-eval"
"(progn(set-dispatch-macro-character #\\# #\\! (lambda(stream char arg)(declare(ignore char arg))(values(read-line stream))))(cl:load \"/usr/local/bin/cl\" :verbose nil :print nil)
(funcall(intern(string :run):cl-launch) :quicklisp t :build '((:load-system \"lisp-stripper\")) :dump \"./lispwc\" :restart '(\"(lambda()(main uiop:*command-line-arguments*))\" . :lisp-stripper)))"
"--"))
14: ("WITH-UPGRADABILITY NIL")
15: (UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER
#<Closure Over Function "WITH-UPGRADABILITY NIL" {5811EC39}>)
16: ((LABELS LISP::RESTART-LISP EXTENSIONS:SAVE-LISP))
Above backtrace due to this condition:
File-error in function LISP::FD-OPEN: Error opening #P"-quiet", No such file or directory.
File-error in function LISP::FD-OPEN: Error opening #P"-quiet", No such file or directory.