clfswm

SBCL 1.4.3 / ASDF 3.3.1

clfswm-client

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/clfswm/f745e9682f549b4d92d31e3e7fcec68d561af370/clfswm-20180126-git/contrib/server/md5.lisp
; in: DEFUN UPDATE-MD5-BLOCK
;     (MD5::WITH-MD5-ROUND (MD5::H BLOCK) (MD5::A MD5::B MD5::C MD5::D 5 4 33)
;                          (MD5::D MD5::A MD5::B MD5::C 8 11 34)
;                          (MD5::C MD5::D MD5::A MD5::B 11 16 35)
;                          (MD5::B MD5::C MD5::D MD5::A 14 23 36)
;                          (MD5::A MD5::B MD5::C MD5::D 1 4 37)
;                          (MD5::D MD5::A MD5::B MD5::C 4 11 38)
;                          (MD5::C MD5::D MD5::A MD5::B 7 16 39)
;                          (MD5::B MD5::C MD5::D MD5::A 10 23 40)
;                          (MD5::A MD5::B MD5::C MD5::D 13 4 41)
;                          (MD5::D MD5::A MD5::B MD5::C 0 11 42) ...)
; --> PROGN SETQ THE 
; ==>
;   (MD5::MOD32+ MD5::B
;    (MD5::ROL32
;     (MD5::MOD32+ (MD5::MOD32+ MD5::A (MD5::H MD5::B MD5::C MD5::D))
;      (MD5::MOD32+ (AREF BLOCK 9) 3654602809))
;     4))
; 
; note: *INLINE-EXPANSION-LIMIT* (200) was exceeded, probably trying to
;   inline a recursive function.
; in: LAMBDA (#:EXPR #:ENV)
;     (+ MD5::OFFSET 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (+ MD5::OFFSET 2)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (+ MD5::OFFSET 3)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (+ MD5::OFFSET 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (+ MD5::OFFSET 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (+ MD5::OFFSET 3)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/clfswm/f745e9682f549b4d92d31e3e7fcec68d561af370/clfswm-20180126-git/contrib/server/md5.lisp
; in: DEFUN UPDATE-MD5-STATE
;     (MD5::COPY-TO-BUFFER SEQUENCE MD5::OFFSET MD5::AMOUNT MD5::BUFFER 0)
; --> BLOCK ETYPECASE LET COND IF PROGN LOOP BLOCK LET LET TAGBODY SETF LET* 
; ==>
;   MD5::BUFFER
; 
; note: deleting unreachable code

; --> BLOCK ETYPECASE LET COND IF IF PROGN LOOP BLOCK LET LET TAGBODY SETF LET* 
; ==>
;   MD5::BUFFER
; 
; note: deleting unreachable code

;     (+ (MD5::MD5-STATE-AMOUNT MD5::STATE) MD5::AMOUNT)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (+ (MD5::MD5-STATE-AMOUNT MD5::STATE) (THE FIXNUM (- MD5::END MD5::START)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870911) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER -536870911) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (SETF (MD5::MD5-STATE-AMOUNT MD5::STATE)
;             (+ (MD5::MD5-STATE-AMOUNT MD5::STATE)
;                (THE FIXNUM (- MD5::END MD5::START))))
; --> SB-KERNEL:%INSTANCE-SET SB-KERNEL:THE* MULTIPLE-VALUE-BIND LET UNLESS IF 
; --> TYPEP LET SB-C::%TYPEP-WRAPPER LET OR LET IF LET IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF LOCALLY AND THE >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (INTEGER -536870911), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -536870911), not a FIXNUM.
;       etc.
; in: LAMBDA (#:EXPR #:ENV)
;     (+ MD5::OFFSET 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (+ MD5::OFFSET 2)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (+ MD5::OFFSET 3)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (+ MD5::OFFSET 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (+ MD5::OFFSET 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (+ MD5::OFFSET 3)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/clfswm/f745e9682f549b4d92d31e3e7fcec68d561af370/clfswm-20180126-git/contrib/server/md5.lisp
; in: DEFUN FINALIZE-MD5-STATE
;     (* 8 (MD5::MD5-STATE-AMOUNT MD5::STATE))
; ==>
;   (ASH SB-C::X 3)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

;     (LDB (BYTE 32 32) MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (ASH INT (- SB-C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/clfswm/f745e9682f549b4d92d31e3e7fcec68d561af370/clfswm-20180126-git/contrib/server/net.lisp
; in: DEFUN OPEN-UNIX-SOCKET
;     (DEFUN PORT::OPEN-UNIX-SOCKET
;            (PORT::PATH &KEY (PORT::KIND :STREAM) PORT::BIN)
;       "Opens a unix socket. Path is the location.
;   Kind can be :stream or :datagram."
;       (DECLARE (SIMPLE-STRING PORT::PATH))
;       (OPEN PORT::PATH :ELEMENT-TYPE
;             (IF PORT::BIN
;                 '(UNSIGNED-BYTE 8)
;                 'CHARACTER)
;             :DIRECTION :IO))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA PORT::OPEN-UNIX-SOCKET
;         (PORT::PATH &KEY (PORT::KIND :STREAM) PORT::BIN)
;       "Opens a unix socket. Path is the location.
; Kind can be :stream or :datagram."
;       (DECLARE (SIMPLE-STRING PORT::PATH))
;       (BLOCK PORT::OPEN-UNIX-SOCKET
;         (OPEN PORT::PATH :ELEMENT-TYPE
;               (IF PORT::BIN
;                   '(UNSIGNED-BYTE 8)
;                   'CHARACTER)
;               :DIRECTION :IO)))
; 
; caught STYLE-WARNING:
;   The variable KIND is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "clfswm-client" "net">
; 
; caught ERROR:
;   READ error during COMPILE-FILE: :UTF-8 stream decoding error on #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/clfswm/f745e9682f549b4d92d31e3e7fcec68d561af370/clfswm-20180126-git/contrib/server/crypt.lisp" {100B39EBB3}>: the octet sequence #(233 224 231) cannot be decoded.(in form starting at line: 91, column: 0, position: 3343)
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "clfswm-client" "crypt">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100B8ECBE3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100B8ECBE3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100B8ECBE3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "clfswm-client" "crypt">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "clfswm-client" "crypt">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "clfswm-client" "crypt">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "clfswm-client" "crypt">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10058DE523}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10058DE523}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "clfswm-client"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "clfswm-client">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "clfswm-client">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "clfswm-client")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "clfswm-client") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10058D67EB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005892EDB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "clfswm-client") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "clfswm-client" "clfswm-client")
23: (DEPCHECK::MAGIC "clfswm-client" "clfswm-client" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-rOEW6ZB6/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "clfswm-client" "clfswm-client" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-rOEW6ZB6/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-rOEW6ZB6/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 2 fatal ERROR conditions
;   caught 1 ERROR condition
;   caught 1 STYLE-WARNING condition
;   printed 20 notes