search

argumentcomputer / lurk-lisp

Lisp implementation of Lurk.
MIT License
67 stars 6 forks source link

network down issue when dumping image #37

Closed namin closed 2 years ago

namin commented 2 years ago

When I run make on an alternate machine (that was already set up), I get the following error:

% make
bin/cl -Q -sp lurk --dump bin/lurk.image
; Fetching #<URL "http://beta.quicklisp.org/archive/unix-opts/2021-01-24/unix-opts-20210124-git.tgz">
; 15.33KB
Fatal condition:
couldn't read from #<SB-SYS:FD-STREAM for "socket 127.0.0.1:64384, peer: 65.8.198.90:80" {10026F9A73}>: Network is down
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1004AB0143}>
0: ((LAMBDA NIL :IN UIOP/IMAGE:PRINT-BACKTRACE))
1: ((FLET "THUNK" :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX))
2: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<FUNCTION (FLET "THUNK" :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX) {715E94B}>)
3: (UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX #<FUNCTION (LAMBDA NIL :IN UIOP/IMAGE:PRINT-BACKTRACE) {1002C788FB}> :PACKAGE :CL)
4: (UIOP/IMAGE:PRINT-CONDITION-BACKTRACE #<SB-INT:SIMPLE-STREAM-ERROR "~@<~?~@[: ~2I~_~A~]~:>" {1002C76D43}> :STREAM #<SB-SYS:FD-STREAM for "standard error" {1004AB0673}> :COUNT NIL)
5: (UIOP/IMAGE:HANDLE-FATAL-CONDITION #<SB-INT:SIMPLE-STREAM-ERROR "~@<~?~@[: ~2I~_~A~]~:>" {1002C76D43}>)
6: (SB-KERNEL::%SIGNAL #<SB-INT:SIMPLE-STREAM-ERROR "~@<~?~@[: ~2I~_~A~]~:>" {1002C76D43}>)
7: (ERROR SB-INT:SIMPLE-STREAM-ERROR :STREAM #<SB-SYS:FD-STREAM for "socket 127.0.0.1:64384, peer: 65.8.198.90:80" {10026F9A73}> :FORMAT-CONTROL "~@<~?~@[: ~2I~_~A~]~:>" :FORMAT-ARGUMENTS ("couldn't read from ~S" (#<SB-SYS:FD-STREAM for "socket 127.0.0.1:64384, peer: 65.8.198.90:80" {10026F9A73}>) "Network is down"))
8: (SB-IMPL::REFILL-INPUT-BUFFER #<SB-SYS:FD-STREAM for "socket 127.0.0.1:64384, peer: 65.8.198.90:80" {10026F9A73}>)
9: (SB-IMPL::FD-STREAM-READ-N-BYTES #<SB-SYS:FD-STREAM for "socket 127.0.0.1:64384, peer: 65.8.198.90:80" {10026F9A73}> #(255 31 61 122 252 116 59 187 255 123 248 232 ...) 0 8192 NIL)
10: (SB-IMPL:ANSI-STREAM-READ-SEQUENCE #(255 31 61 122 252 116 59 187 255 123 248 232 ...) #<SB-SYS:FD-STREAM for "socket 127.0.0.1:64384, peer: 65.8.198.90:80" {10026F9A73}> 0 NIL)
11: (READ-SEQUENCE #(255 31 61 122 252 116 59 187 255 123 248 232 ...) #<SB-SYS:FD-STREAM for "socket 127.0.0.1:64384, peer: 65.8.198.90:80" {10026F9A73}> :START 0 :END NIL)
12: ((:METHOD QL-HTTP::REFILL (QL-HTTP::CBUF)) #<QL-HTTP::CBUF {1002801103}>) [fast-method]
13: (QL-HTTP::CALL-FOR-N-OCTETS 15695 #<FUNCTION (LAMBDA (QL-HTTP::DATA QL-HTTP::START QL-HTTP::END) :IN QL-HTTP::MAKE-STREAM-WRITER) {1002C741BB}> #<QL-HTTP::CBUF {1002801103}>)
14: (QL-HTTP::SAVE-RESPONSE #P"/Users/namin/quicklisp/dists/quicklisp/archives/unix-opts-20210124-git.tgz" #<QL-HTTP::HEADER 200> #<QL-HTTP::CBUF {1002801103}> :IF-EXISTS :RENAME-AND-DELETE)
15: (QL-HTTP::CALL-WITH-PROGRESS-BAR 15695 #<FUNCTION (LAMBDA NIL :IN QL-HTTP:HTTP-FETCH) {1002B010DB}>)
16: ((LAMBDA (QL-HTTP::CONNECTION) :IN QL-HTTP:HTTP-FETCH) #<SB-SYS:FD-STREAM for "socket 127.0.0.1:64384, peer: 65.8.198.90:80" {10026F9A73}>)
17: ((:METHOD QL-NETWORK::%CALL-WITH-CONNECTION (T T T T)) #<unused argument> "beta.quicklisp.org" 80 #<FUNCTION (LAMBDA (QL-HTTP::CONNECTION) :IN QL-HTTP:HTTP-FETCH) {1001E6E74B}>) [fast-method]
18: (QL-HTTP:HTTP-FETCH #<QL-HTTP:URL "http://beta.quicklisp.org/archive/unix-opts/2021-01-24/unix-opts-20210124-git.tgz"> #P"/Users/namin/quicklisp/dists/quicklisp/archives/unix-opts-20210124-git.tgz" :FOLLOW-REDIRECTS T :QUIETLY NIL :IF-EXISTS :RENAME-AND-DELETE :MAXIMUM-REDIRECTS NIL)
19: ((:METHOD QL-DIST:ENSURE-LOCAL-ARCHIVE-FILE (QL-DIST:RELEASE)) #<QL-DIST:RELEASE unix-opts-20210124-git / quicklisp 2021-08-07>) [fast-method]
20: ((:METHOD QL-DIST:INSTALL (QL-DIST:RELEASE)) #<QL-DIST:RELEASE unix-opts-20210124-git / quicklisp 2021-08-07>) [fast-method]
21: ((:METHOD QL-DIST:ENSURE-INSTALLED (T)) #<QL-DIST:RELEASE unix-opts-20210124-git / quicklisp 2021-08-07>) [fast-method]
22: (SB-KERNEL:%MAP-FOR-EFFECT-ARITY-1 QL-DIST:ENSURE-INSTALLED (#<QL-DIST:RELEASE unix-opts-20210124-git / quicklisp 2021-08-07>))
23: (QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY #<QUICKLISP-CLIENT::LOAD-STRATEGY "unix-opts" (1 asdf, 1 quicklisp)>)
24: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "unix-opts" :PROMPT NIL)
25: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "cl-launch-program" :PROMPT NIL)
26: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (T T)) #<unused argument> #<FUNCTION (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {1004A250FB}>) [fast-method]
27: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION :AROUND (QL-IMPL:SBCL T)) #<QL-IMPL:SBCL {1003ECE4E3}> #<FUNCTION (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {1004A250FB}>) [fast-method]
28: ((:METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) ("cl-launch-program") :PROMPT NIL :SILENT NIL :VERBOSE NIL) [fast-method]
29: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<FUNCTION (LAMBDA NIL :IN QUICKLISP-CLIENT:QUICKLOAD) {1004A1F94B}>)
30: (CL-LAUNCH::LOAD-SYS ("cl-launch-program"))
31: (CL-LAUNCH::BUILD-PROGRAM "bin/lurk.image" ((:LOAD-SYSTEM "lurk")) NIL NIL NIL T)
32: (UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER #<FUNCTION (LAMBDA NIL :IN CL-LAUNCH::RUN) {10024F575B}>)
33: (SB-INT:SIMPLE-EVAL-IN-LEXENV (FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH) :QUICKLISP T :BUILD (QUOTE ((:LOAD-SYSTEM "lurk"))) :DUMP "bin/lurk.image") #<NULL-LEXENV>)
34: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SET-DISPATCH-MACRO-CHARACTER #\# #\! (LAMBDA (STREAM CHAR SB-DEBUG:ARG) (DECLARE (IGNORE CHAR SB-DEBUG:ARG)) (VALUES (READ-LINE STREAM)))) (LOAD "bin/cl" :VERBOSE NIL :PRINT NIL) (FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH) :QUICKLISP T :BUILD (QUOTE ((:LOAD-SYSTEM "lurk"))) :DUMP "bin/lurk.image")) #<NULL-LEXENV>)
35: (EVAL (PROGN (SET-DISPATCH-MACRO-CHARACTER #\# #\! (LAMBDA (STREAM CHAR SB-DEBUG:ARG) (DECLARE (IGNORE CHAR SB-DEBUG:ARG)) (VALUES (READ-LINE STREAM)))) (LOAD "bin/cl" :VERBOSE NIL :PRINT NIL) (FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH) :QUICKLISP T :BUILD (QUOTE ((:LOAD-SYSTEM "lurk"))) :DUMP "bin/lurk.image")))
36: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . #<(SIMPLE-ARRAY CHARACTER (274)) (progn(set-dispatch-macro-character #\# #\! (lambda(stream char arg)(declare(ignore char arg))(values(read-line stream))))(cl:load "bin/cl" :verbose nil :print nil)
(funcall(intern(string :run):cl-lau... {10015302BF}>)))
37: (SB-IMPL::TOPLEVEL-INIT)
38: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
39: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
40: (SB-IMPL::START-LISP)
Above backtrace due to this condition:
couldn't read from #<SB-SYS:FD-STREAM for "socket 127.0.0.1:64384, peer: 65.8.198.90:80" {10026F9A73}>: Network is down
couldn't read from #<SB-SYS:FD-STREAM for "socket 127.0.0.1:64384, peer: 65.8.198.90:80" {10026F9A73}>: Network is down
Failed to dump an image
make: *** [bin/lurk.image] Error 22

I can download the tgz file from the browser. Any ideas what's going on, @fare or @porcuquine ?

Thanks. ~n

namin commented 2 years ago

I tried updating quicklisp and now I get:

 % make
bin/cl -Q -sp lurk --dump bin/lurk.image
Fatal condition:
The archive file "alexandria-20220220-git.tgz" for "alexandria" is the wrong size: expected 56,486, got 45,056
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1004AB0143}>
0: ((LAMBDA NIL :IN UIOP/IMAGE:PRINT-BACKTRACE))
1: ((FLET "THUNK" :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX))
2: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<FUNCTION (FLET "THUNK" :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX) {D8E6DAB}>)
3: (UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX #<FUNCTION (LAMBDA NIL :IN UIOP/IMAGE:PRINT-BACKTRACE) {1001C3A47B}> :PACKAGE :CL)
4: (UIOP/IMAGE:PRINT-CONDITION-BACKTRACE #<QL-DIST:BADLY-SIZED-LOCAL-ARCHIVE {1001C38003}> :STREAM #<SB-SYS:FD-STREAM for "standard error" {1004AB0673}> :COUNT NIL)
5: (UIOP/IMAGE:HANDLE-FATAL-CONDITION #<QL-DIST:BADLY-SIZED-LOCAL-ARCHIVE {1001C38003}>)
6: (SB-KERNEL::%SIGNAL #<QL-DIST:BADLY-SIZED-LOCAL-ARCHIVE {1001C38003}>)
7: (ERROR QL-DIST:BADLY-SIZED-LOCAL-ARCHIVE :FILE #P"/Users/namin/quicklisp/dists/quicklisp/archives/alexandria-20220220-git.tgz" :RELEASE #<QL-DIST:RELEASE alexandria-20220220-git / quicklisp 2022-02-20> :ACTUAL-SIZE 45056 :EXPECTED-SIZE 56486)
8: ((:METHOD QL-DIST:CHECK-LOCAL-ARCHIVE-FILE (QL-DIST:RELEASE)) #<QL-DIST:RELEASE alexandria-20220220-git / quicklisp 2022-02-20>) [fast-method]
9: ((:METHOD QL-DIST:ENSURE-LOCAL-ARCHIVE-FILE (QL-DIST:RELEASE)) #<QL-DIST:RELEASE alexandria-20220220-git / quicklisp 2022-02-20>) [fast-method]
10: ((:METHOD QL-DIST:INSTALL (QL-DIST:RELEASE)) #<QL-DIST:RELEASE alexandria-20220220-git / quicklisp 2022-02-20>) [fast-method]
11: ((:METHOD QL-DIST:ENSURE-INSTALLED (T)) #<QL-DIST:RELEASE alexandria-20220220-git / quicklisp 2022-02-20>) [fast-method]
12: (SB-KERNEL:%MAP-FOR-EFFECT-ARITY-1 QL-DIST:ENSURE-INSTALLED (#<QL-DIST:RELEASE alexandria-20220220-git / #1=quicklisp #2=2022-02-20> #<QL-DIST:RELEASE fiveam-20220220-git / #1# #2#>))
13: (QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY #<QUICKLISP-CLIENT::LOAD-STRATEGY "fiveam" (3 asdf, 2 quicklisp)>)
14: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "fiveam" :PROMPT NIL)
15: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "cl-launch-program" :PROMPT NIL)
16: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (T T)) #<unused argument> #<FUNCTION (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {1004A250FB}>) [fast-method]
17: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION :AROUND (QL-IMPL:SBCL T)) #<QL-IMPL:SBCL {1003ECE4E3}> #<FUNCTION (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {1004A250FB}>) [fast-method]
18: ((:METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) ("cl-launch-program") :PROMPT NIL :SILENT NIL :VERBOSE NIL) [fast-method]
19: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<FUNCTION (LAMBDA NIL :IN QUICKLISP-CLIENT:QUICKLOAD) {1004A1F94B}>)
20: (CL-LAUNCH::LOAD-SYS ("cl-launch-program"))
21: (CL-LAUNCH::BUILD-PROGRAM "bin/lurk.image" ((:LOAD-SYSTEM "lurk")) NIL NIL NIL T)
22: (UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER #<FUNCTION (LAMBDA NIL :IN CL-LAUNCH::RUN) {10024F575B}>)
23: (SB-INT:SIMPLE-EVAL-IN-LEXENV (FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH) :QUICKLISP T :BUILD (QUOTE ((:LOAD-SYSTEM "lurk"))) :DUMP "bin/lurk.image") #<NULL-LEXENV>)
24: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SET-DISPATCH-MACRO-CHARACTER #\# #\! (LAMBDA (STREAM CHAR SB-DEBUG:ARG) (DECLARE (IGNORE CHAR SB-DEBUG:ARG)) (VALUES (READ-LINE STREAM)))) (LOAD "bin/cl" :VERBOSE NIL :PRINT NIL) (FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH) :QUICKLISP T :BUILD (QUOTE ((:LOAD-SYSTEM "lurk"))) :DUMP "bin/lurk.image")) #<NULL-LEXENV>)
25: (EVAL (PROGN (SET-DISPATCH-MACRO-CHARACTER #\# #\! (LAMBDA (STREAM CHAR SB-DEBUG:ARG) (DECLARE (IGNORE CHAR SB-DEBUG:ARG)) (VALUES (READ-LINE STREAM)))) (LOAD "bin/cl" :VERBOSE NIL :PRINT NIL) (FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH) :QUICKLISP T :BUILD (QUOTE ((:LOAD-SYSTEM "lurk"))) :DUMP "bin/lurk.image")))
26: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . #<(SIMPLE-ARRAY CHARACTER (274)) (progn(set-dispatch-macro-character #\# #\! (lambda(stream char arg)(declare(ignore char arg))(values(read-line stream))))(cl:load "bin/cl" :verbose nil :print nil)
(funcall(intern(string :run):cl-lau... {10015302BF}>)))
27: (SB-IMPL::TOPLEVEL-INIT)
28: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
29: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
30: (SB-IMPL::START-LISP)
Above backtrace due to this condition:
The archive file "alexandria-20220220-git.tgz" for "alexandria" is the wrong size: expected 56,486, got 45,056
The archive file "alexandria-20220220-git.tgz" for "alexandria" is the wrong size: expected 56,486, got 45,056
Failed to dump an image
make: *** [bin/lurk.image] Error 22
namin commented 2 years ago

I copied the quicklisp directory of a functioning machine to avoid network calls (as suggested by @fare), and I dodged the problem this way.