Plaster

text
; file: /home/rtvd/src/ALIEN/cl-async/src/util/foreign.lisp ; in: DEFUN ADDRINFO-TO-STRING ; (LET* ((TYPE 'LIBUV:ADDRINFO) ; (CL-ASYNC-UTIL::FAMILY ; (LIBUV.ACCESSORS:ADDRINFO-AI-FAMILY CL-ASYNC-UTIL::ADDRINFO)) ; (CL-ASYNC-UTIL::ERR NIL)) ; (CFFI:WITH-FOREIGN-OBJECT (CL-ASYNC-UTIL::BUF :UNSIGNED-CHAR 128) ; (LET ((CL-ASYNC-UTIL::AI-ADDR #)) ; (IF (CFFI-SYS:NULL-POINTER-P CL-ASYNC-UTIL::AI-ADDR) ; (ERROR ; "the addrinfo->ai_addr object was null (stinks of a memory alignment issue)") ; (COND # # #))) ; (VALUES (CFFI:FOREIGN-STRING-TO-LISP CL-ASYNC-UTIL::BUF) ; CL-ASYNC-UTIL::FAMILY CL-ASYNC-UTIL::ERR))) ; ; caught STYLE-WARNING: ; The variable TYPE is defined but never used. ... WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-async/util" "src/util/foreign"> ... ; file: /home/rtvd/src/ALIEN/cl-async/src/util/error.lisp ; in: DEFMACRO CATCH-APP-ERRORS ; (ALEXANDRIA.0.DEV:WITH-GENSYMS (CL-ASYNC-UTIL::EVCB CL-ASYNC-UTIL::ERR ; CL-ASYNC-UTIL::LAST-ERR ; CL-ASYNC-UTIL::THUNK-FN ; CL-ASYNC-UTIL::CONTINUE-FN CL-ASYNC-UTIL::BLK) ; `(LET ((CL-ASYNC-UTIL::*EVCB-ERR* 'NIL) (,CL-ASYNC-UTIL::LAST-ERR NIL)) ; (LABELS ((,CL-ASYNC-UTIL::CONTINUE-FN # ; #) ; (,CL-ASYNC-UTIL::THUNK-FN # ; #)) ; (BLOCK ,CL-ASYNC-UTIL::BLK ; (HANDLER-BIND # ; #))))) ; ==> ; (LET ((CL-ASYNC-UTIL::EVCB (GENSYM "EVCB")) ; (CL-ASYNC-UTIL::ERR (GENSYM "ERR")) ; (CL-ASYNC-UTIL::LAST-ERR (GENSYM "LAST-ERR")) ; (CL-ASYNC-UTIL::THUNK-FN (GENSYM "THUNK-FN")) ; (CL-ASYNC-UTIL::CONTINUE-FN (GENSYM "CONTINUE-FN")) ; (CL-ASYNC-UTIL::BLK (GENSYM "BLK"))) ; `(LET ((CL-ASYNC-UTIL::*EVCB-ERR* 'NIL) (,CL-ASYNC-UTIL::LAST-ERR NIL)) ; (LABELS ((,CL-ASYNC-UTIL::CONTINUE-FN # ; #) ; (,CL-ASYNC-UTIL::THUNK-FN # ; #)) ; (BLOCK ,CL-ASYNC-UTIL::BLK ; (HANDLER-BIND # ; #))))) ; ; caught STYLE-WARNING: ; The variable EVCB is defined but never used. ; file: /home/rtvd/src/ALIEN/cl-async/src/util/error.lisp ; in: DEFMACRO CATCH-APP-ERRORS ; (ALEXANDRIA.0.DEV:WITH-GENSYMS (CL-ASYNC-UTIL::EVCB CL-ASYNC-UTIL::ERR ; CL-ASYNC-UTIL::LAST-ERR ; CL-ASYNC-UTIL::THUNK-FN ; CL-ASYNC-UTIL::CONTINUE-FN CL-ASYNC-UTIL::BLK) ; `(LET ((CL-ASYNC-UTIL::*EVCB-ERR* 'NIL) (,CL-ASYNC-UTIL::LAST-ERR NIL)) ; (LABELS ((,CL-ASYNC-UTIL::CONTINUE-FN # ; #) ; (,CL-ASYNC-UTIL::THUNK-FN # ; #)) ; (BLOCK ,CL-ASYNC-UTIL::BLK ; (HANDLER-BIND # ; #))))) ; ==> ; (LET ((CL-ASYNC-UTIL::EVCB (GENSYM "EVCB")) ; (CL-ASYNC-UTIL::ERR (GENSYM "ERR")) ; (CL-ASYNC-UTIL::LAST-ERR (GENSYM "LAST-ERR")) ; (CL-ASYNC-UTIL::THUNK-FN (GENSYM "THUNK-FN")) ; (CL-ASYNC-UTIL::CONTINUE-FN (GENSYM "CONTINUE-FN")) ; (CL-ASYNC-UTIL::BLK (GENSYM "BLK"))) ; `(LET ((CL-ASYNC-UTIL::*EVCB-ERR* 'NIL) (,CL-ASYNC-UTIL::LAST-ERR NIL)) ; (LABELS ((,CL-ASYNC-UTIL::CONTINUE-FN # ; #) ; (,CL-ASYNC-UTIL::THUNK-FN # ; #)) ; (BLOCK ,CL-ASYNC-UTIL::BLK ; (HANDLER-BIND # ; #))))) ; ; caught STYLE-WARNING: ; The variable EVCB is defined but never used. ; compiling (DEFUN RUN-EVENT-CB ...) ; wrote /home/rtvd/.cache/common-lisp/sbcl-1.5.5.debian-linux-x64/home/rtvd/src/ALIEN/cl-async/src/util/error-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.030 WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-async/util" "src/util/error"> ... WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:SOCKET-CLOSED ; compiling file "/home/rtvd/src/ALIEN/cl-async/src/tcp.lisp" (written 27 APR 2020 12:11:57 PM): ; compiling (IN-PACKAGE :CL-ASYNC) ; compiling (DEFINE-CONDITION-ALIAS TCP-EOF ...) ; file: /home/rtvd/src/ALIEN/cl-async/src/tcp.lisp ; in: DEFINE-CONDITION-ALIAS TCP-EOF ; (CL-ASYNC-UTIL:DEFINE-CONDITION-ALIAS CL-ASYNC:TCP-EOF CL-ASYNC:SOCKET-EOF) ; --> PROGN DEFTYPE PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%COMPILER-DEFTYPE 'CL-ASYNC:TCP-EOF ; (SB-IMPL::CONSTANT-TYPE-EXPANDER ; 'CL-ASYNC:TCP-EOF (PROGN 'CL-ASYNC:SOCKET-EOF)) ; (SB-C:SOURCE-LOCATION)) ; ; caught WARNING: ; The class TCP-EOF is being redefined to be a DEFTYPE. ; compiling (DEFINE-CONDITION-ALIAS TCP-INFO ...) ; file: /home/rtvd/src/ALIEN/cl-async/src/tcp.lisp ; in: DEFINE-CONDITION-ALIAS TCP-INFO ; (CL-ASYNC-UTIL:DEFINE-CONDITION-ALIAS CL-ASYNC:TCP-INFO CL-ASYNC:SOCKET-INFO) ; --> PROGN DEFTYPE PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%COMPILER-DEFTYPE 'CL-ASYNC:TCP-INFO ; (SB-IMPL::CONSTANT-TYPE-EXPANDER ; 'CL-ASYNC:TCP-INFO ; (PROGN 'CL-ASYNC:SOCKET-INFO)) ; (SB-C:SOURCE-LOCATION)) ; ; caught WARNING: ; The class TCP-INFO is being redefined to be a DEFTYPE. ; ; caught WARNING: ; undeclaring functions for old subclasses of SOCKET-INFO: ; (SOCKET-ERROR SOCKET-EOF SOCKET-RESET SOCKET-TIMEOUT SOCKET-REFUSED ; SOCKET-ABORTED SOCKET-ADDRESS-IN-USE SOCKET-ACCEPT-ERROR ; TCP-SERVER-BIND-ERROR) ; compiling (DEFINE-CONDITION-ALIAS TCP-ERROR ...) ; file: /home/rtvd/src/ALIEN/cl-async/src/tcp.lisp ; in: DEFINE-CONDITION-ALIAS TCP-ERROR ; (CL-ASYNC-UTIL:DEFINE-CONDITION-ALIAS CL-ASYNC:TCP-ERROR ; CL-ASYNC:SOCKET-ERROR) ; --> PROGN DEFTYPE PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%COMPILER-DEFTYPE 'CL-ASYNC:TCP-ERROR ; (SB-IMPL::CONSTANT-TYPE-EXPANDER ; 'CL-ASYNC:TCP-ERROR ; (PROGN 'CL-ASYNC:SOCKET-ERROR)) ; (SB-C:SOURCE-LOCATION)) ; ; caught WARNING: ; The class TCP-ERROR is being redefined to be a DEFTYPE. ; ; caught WARNING: ; undeclaring functions for old subclasses of SOCKET-ERROR: ; (SOCKET-EOF SOCKET-RESET SOCKET-TIMEOUT SOCKET-REFUSED SOCKET-ABORTED ; SOCKET-ADDRESS-IN-USE SOCKET-ACCEPT-ERROR TCP-SERVER-BIND-ERROR) ; compiling (DEFINE-CONDITION-ALIAS TCP-RESET ...) ; file: /home/rtvd/src/ALIEN/cl-async/src/tcp.lisp ; in: DEFINE-CONDITION-ALIAS TCP-RESET ; (CL-ASYNC-UTIL:DEFINE-CONDITION-ALIAS CL-ASYNC:TCP-RESET ; CL-ASYNC:SOCKET-RESET) ; --> PROGN DEFTYPE PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%COMPILER-DEFTYPE 'CL-ASYNC:TCP-RESET ; (SB-IMPL::CONSTANT-TYPE-EXPANDER ; 'CL-ASYNC:TCP-RESET ; (PROGN 'CL-ASYNC:SOCKET-RESET)) ; (SB-C:SOURCE-LOCATION)) ; ; caught WARNING: ; The class TCP-RESET is being redefined to be a DEFTYPE. ; compiling (DEFINE-CONDITION-ALIAS TCP-TIMEOUT ...) ; file: /home/rtvd/src/ALIEN/cl-async/src/tcp.lisp ; in: DEFINE-CONDITION-ALIAS TCP-TIMEOUT ; (CL-ASYNC-UTIL:DEFINE-CONDITION-ALIAS CL-ASYNC:TCP-TIMEOUT ; CL-ASYNC:SOCKET-TIMEOUT) ; --> PROGN DEFTYPE PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%COMPILER-DEFTYPE 'CL-ASYNC:TCP-TIMEOUT ; (SB-IMPL::CONSTANT-TYPE-EXPANDER ; 'CL-ASYNC:TCP-TIMEOUT ; (PROGN 'CL-ASYNC:SOCKET-TIMEOUT)) ; (SB-C:SOURCE-LOCATION)) ; ; caught WARNING: ; The class TCP-TIMEOUT is being redefined to be a DEFTYPE. ; compiling (DEFINE-CONDITION-ALIAS TCP-REFUSED ...) ; file: /home/rtvd/src/ALIEN/cl-async/src/tcp.lisp ; in: DEFINE-CONDITION-ALIAS TCP-REFUSED ; (CL-ASYNC-UTIL:DEFINE-CONDITION-ALIAS CL-ASYNC:TCP-REFUSED ; CL-ASYNC:SOCKET-REFUSED) ; --> PROGN DEFTYPE PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%COMPILER-DEFTYPE 'CL-ASYNC:TCP-REFUSED ; (SB-IMPL::CONSTANT-TYPE-EXPANDER ; 'CL-ASYNC:TCP-REFUSED ; (PROGN 'CL-ASYNC:SOCKET-REFUSED)) ; (SB-C:SOURCE-LOCATION)) ; ; caught WARNING: ; The class TCP-REFUSED is being redefined to be a DEFTYPE. ; compiling (DEFINE-CONDITION-ALIAS TCP-ACCEPT-ERROR ...) ; file: /home/rtvd/src/ALIEN/cl-async/src/tcp.lisp ; in: DEFINE-CONDITION-ALIAS TCP-ACCEPT-ERROR ; (CL-ASYNC-UTIL:DEFINE-CONDITION-ALIAS CL-ASYNC:TCP-ACCEPT-ERROR ; CL-ASYNC:SOCKET-ACCEPT-ERROR) ; --> PROGN DEFTYPE PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%COMPILER-DEFTYPE 'CL-ASYNC:TCP-ACCEPT-ERROR ; (SB-IMPL::CONSTANT-TYPE-EXPANDER ; 'CL-ASYNC:TCP-ACCEPT-ERROR ; (PROGN 'CL-ASYNC:SOCKET-ACCEPT-ERROR)) ; (SB-C:SOURCE-LOCATION)) ; ; caught WARNING: ; The class TCP-ACCEPT-ERROR is being redefined to be a DEFTYPE. ...