Plaster
New
List
Login
text
apl
aspx
asterisk
brainfuck
c
c++hdr
c++src
cassandra
ceylon
clojure
clojurescript
cmake
cobol
coffeescript
common-lisp
crystal
csharp
css
cypher-query
cython
d
dart
diff
django
dockerfile
dylan
ebnf
ecl
ecmascript
edn
eiffel
ejs
elm
erb
erlang
ez80
factor
fcl
feature
forth
fortran
fragment
gfm
go
gql
groovy
gss
haml
handlebars-template
haskell
haxe
hive
html
http
httpd-php
httpd-php-open
hxml
ini
java
javascript
json
jsp
jsx
julia
kotlin
latex
less
literate-haskell
lua
mariadb
markdown
mbox
mirc
mscgen
msgenny
mssql
mumps
mysql
n-triples
nesc
nginx-conf
nsis
objectivec
octave
oz
pascal
perl
pgp
pgp-keys
pgp-signature
pgsql
php
pig
plsql
properties
protobuf
puppet
python
q
rpm-changes
rpm-spec
rsrc
ruby
rustsrc
sas
sass
scala
scheme
scss
sieve
slim
smarty
solr
soy
sparql-query
spreadsheet
sql
squirrel
stex
styl
swift
systemverilog
tcl
textile
tiddlywiki
tiki
tlv
tornado
ttcn-asn
ttcn-cfg
turtle
twig
typescript
typescript-jsx
vb
vbscript
velocity
verilog
vertex
vhdl
vue
webidl
xml
xml-dtd
xquery
xu
yaml
z80
default
Visibility:
public
unlisted
private
; 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. ...