laap

SBCL 1.4.3 / ASDF 3.3.1

laap-test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180116-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-base32/ae9f24b9a9f4055650d2cc5aafd986cd4251b19b/cl-base32-20180116-git/cl-base32.asd" contains definition for system "cl-base32-tests". Please only define "cl-base32" and secondary systems with a name starting with "cl-base32/" (e.g. "cl-base32/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180116-git/cl-async.asd" contains definition for system "cl-async-base". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180116-git/cl-async.asd" contains definition for system "cl-async-util". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
STYLE-WARNING: Undefined alien: "uv_pipe_getpeername"
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180116-git/cl-async.asd" contains definition for system "cl-async-base". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180116-git/cl-async.asd" contains definition for system "cl-async-util". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180116-git/cl-async.asd" contains definition for system "cl-async-base". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180116-git/cl-async.asd" contains definition for system "cl-async-util". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async-util"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-async-base") wasn't done yet!
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async-util" "src/util/helpers"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-async-util" "src/util/package") wasn't done yet!
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async-util" "src/util/foreign"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-async-util" "src/util/helpers") wasn't done yet!
STYLE-WARNING: Undefined alien: "ioctlsocket"
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async-util" "src/util/error"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-async-util" "src/util/foreign") wasn't done yet!
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-async-base") wasn't done yet!
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async"), but dependency (ASDF/FIND-SYSTEM:DEFINE-OP "cl-async") wasn't done yet!
WARNING: redefining CL-ASYNC:STREAMISH in DEFGENERIC
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:SOCKET-CLOSED
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-EOF
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-INFO
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-ERROR
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-RESET
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-TIMEOUT
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-REFUSED
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-ACCEPT-ERROR
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:COMPILE-OP "cl-async"), but dependency (ASDF/FIND-SYSTEM:DEFINE-OP "cl-async") wasn't done yet!
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:LOAD-OP "cl-async"), but dependency (ASDF/FIND-SYSTEM:DEFINE-OP "cl-async") wasn't done yet!

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/laap.lisp
; in: DEFUN CL-ASYNC-HTTP-SERVER
;     (LAMBDA (LAAP/TEST::SOCKET LAAP/TEST::DATA)
;       (CL-ASYNC:WRITE-SOCKET-DATA LAAP/TEST::SOCKET
;                                   (BABEL:STRING-TO-OCTETS
;                                    (FORMAT NIL
;                                            "HTTP/1.0 200 OK~c~cContent-Length: 5~c~c~c~cPong~%~c~c"
;                                            #\Return #\Newline #\Return #\Newline
;                                            #\Return #\Newline #\Return
;                                            #\Newline))))
; ==>
;   #'(LAMBDA (LAAP/TEST::SOCKET LAAP/TEST::DATA)
;       (CL-ASYNC:WRITE-SOCKET-DATA LAAP/TEST::SOCKET
;                                   (BABEL:STRING-TO-OCTETS
;                                    (FORMAT NIL
;                                            "HTTP/1.0 200 OK~c~cContent-Length: 5~c~c~c~cPong~%~c~c"
;                                            #\Return #\Newline #\Return
;                                            #\Newline #\Return #\Newline
;                                            #\Return #\Newline))))
; 
; caught STYLE-WARNING:
;   The variable DATA is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/laap.lisp
; in: DEFUN ACCEPT-LOOP
;     (LAMBDA (&OPTIONAL LAAP/TEST::ERR LAAP/TEST::RES)
;       (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;       (LAAP/SOCKET:ACCEPT LAAP/TEST::SOCKET
;                           (LAAP/TEST::ACCEPT-FN LAAP/TEST::SOCKET)))
; ==>
;   #'(LAMBDA (&OPTIONAL LAAP/TEST::ERR LAAP/TEST::RES)
;       (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;       (LAAP/SOCKET:ACCEPT LAAP/TEST::SOCKET
;                           (LAAP/TEST::ACCEPT-FN LAAP/TEST::SOCKET)))
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/laap.lisp
; in: DEFUN HTTP-REQUEST
;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;       (LAAP/SOCKET:SEND LAAP/TEST::SOCKET
;                         (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RESULT)
;                           (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;                           (LET (#)
;                             (LAAP/SOCKET:RECEIVE LAAP/TEST::SOCKET # :END #)))
;                         :DATA
;                         (BABEL:STRING-TO-OCTETS
;                          (FORMAT NIL
;                                  "GET / HTTP/1.1~c~cHost: 127.0.0.1~c~cConnection: close~c~c~c~c"
;                                  #\Return #\Newline #\Return #\Newline #\Return
;                                  #\Newline #\Return #\Newline))))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;       (LAAP/SOCKET:SEND LAAP/TEST::SOCKET
;                         (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RESULT)
;                           (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;                           (LET (#)
;                             (LAAP/SOCKET:RECEIVE LAAP/TEST::SOCKET # :END #)))
;                         :DATA
;                         (BABEL:STRING-TO-OCTETS
;                          (FORMAT NIL
;                                  "GET / HTTP/1.1~c~cHost: 127.0.0.1~c~cConnection: close~c~c~c~c"
;                                  #\Return #\Newline #\Return #\Newline #\Return
;                                  #\Newline #\Return #\Newline))))
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (LAAP/SOCKET:CLOSE LAAP/TEST::SOCKET
;                          (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                            (FUNCALL LAAP/TEST::DONE LAAP/TEST::RESULT))))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (LAAP/SOCKET:CLOSE LAAP/TEST::SOCKET
;                          (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                            (FUNCALL LAAP/TEST::DONE LAAP/TEST::RESULT))))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FUNCALL LAAP/TEST::DONE LAAP/TEST::RESULT))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FUNCALL LAAP/TEST::DONE LAAP/TEST::RESULT))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RESULT)
;       (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;       (LET ((LAAP/TEST::RESULT ""))
;         (LAAP/SOCKET:RECEIVE LAAP/TEST::SOCKET
;                              (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                                (WHEN LAAP/TEST::ERR #)
;                                (SETF #))
;                              :END
;                              (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                                (LAAP/SOCKET:CLOSE LAAP/TEST::SOCKET #)))))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RESULT)
;       (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;       (LET ((LAAP/TEST::RESULT ""))
;         (LAAP/SOCKET:RECEIVE LAAP/TEST::SOCKET
;                              (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                                (WHEN LAAP/TEST::ERR #)
;                                (SETF #))
;                              :END
;                              (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                                (LAAP/SOCKET:CLOSE LAAP/TEST::SOCKET #)))))
; 
; caught STYLE-WARNING:
;   The variable RESULT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/laap.lisp
; in: TEST DELAY
;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FORMAT T "bar~%")
;       (LAAP:DELAY 1
;                   (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                     (FORMAT T "baz~%")
;                     (FUNCALL LAAP/TEST::DONE))))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FORMAT T "bar~%")
;       (LAAP:DELAY 1
;                   (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                     (FORMAT T "baz~%")
;                     (FUNCALL LAAP/TEST::DONE))))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FORMAT T "baz~%")
;       (FUNCALL LAAP/TEST::DONE))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FORMAT T "baz~%")
;       (FUNCALL LAAP/TEST::DONE))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/laap.lisp
; in: DEFUN WAIT-AND-PRINT
;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FORMAT T "foo on thread ~a~%" (LAAP/TEST::CURRENT-THREAD-NAME))
;       (LAAP:DELAY (1+ (RANDOM 1.0))
;                   (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                     (FORMAT T "bar on thread ~a~%"
;                             (LAAP/TEST::CURRENT-THREAD-NAME))
;                     (LAAP:DELAY (1+ #) (LAMBDA # # #)))))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FORMAT T "foo on thread ~a~%" (LAAP/TEST::CURRENT-THREAD-NAME))
;       (LAAP:DELAY (1+ (RANDOM 1.0))
;                   (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                     (FORMAT T "bar on thread ~a~%"
;                             (LAAP/TEST::CURRENT-THREAD-NAME))
;                     (LAAP:DELAY (1+ #) (LAMBDA # # #)))))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FORMAT T "bar on thread ~a~%" (LAAP/TEST::CURRENT-THREAD-NAME))
;       (LAAP:DELAY (1+ (RANDOM 1.0))
;                   (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                     (FORMAT T "baz on thread ~a~%"
;                             (LAAP/TEST::CURRENT-THREAD-NAME))
;                     (FUNCALL LAAP/TEST::DONE))))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FORMAT T "bar on thread ~a~%" (LAAP/TEST::CURRENT-THREAD-NAME))
;       (LAAP:DELAY (1+ (RANDOM 1.0))
;                   (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                     (FORMAT T "baz on thread ~a~%"
;                             (LAAP/TEST::CURRENT-THREAD-NAME))
;                     (FUNCALL LAAP/TEST::DONE))))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FORMAT T "baz on thread ~a~%" (LAAP/TEST::CURRENT-THREAD-NAME))
;       (FUNCALL LAAP/TEST::DONE))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (FORMAT T "baz on thread ~a~%" (LAAP/TEST::CURRENT-THREAD-NAME))
;       (FUNCALL LAAP/TEST::DONE))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "laap-test" "t" "laap">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/socket.lisp
; in: TEST SOCKET-CREATION
;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES) (FUNCALL LAAP/TEST::DONE))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES) (FUNCALL LAAP/TEST::DONE))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/socket.lisp
; in: TEST SOCKET-SEND-AND-RECEIVE
;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;       (LAAP/SOCKET:SEND LAAP/TEST::SOCKET
;                         (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RESULT)
;                           (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;                           (LET (#)
;                             (LAAP/SOCKET:RECEIVE LAAP/TEST::SOCKET # :END #)))
;                         :DATA
;                         (BABEL:STRING-TO-OCTETS
;                          (FORMAT NIL
;                                  "GET / HTTP/1.1~c~cHost: 127.0.0.1:4242~c~cConnection: close~c~c~c~c"
;                                  #\Return #\Newline #\Return #\Newline #\Return
;                                  #\Newline #\Return #\Newline))))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;       (LAAP/SOCKET:SEND LAAP/TEST::SOCKET
;                         (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RESULT)
;                           (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;                           (LET (#)
;                             (LAAP/SOCKET:RECEIVE LAAP/TEST::SOCKET # :END #)))
;                         :DATA
;                         (BABEL:STRING-TO-OCTETS
;                          (FORMAT NIL
;                                  "GET / HTTP/1.1~c~cHost: 127.0.0.1:4242~c~cConnection: close~c~c~c~c"
;                                  #\Return #\Newline #\Return #\Newline #\Return
;                                  #\Newline #\Return #\Newline))))
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (LAAP/SOCKET:CLOSE LAAP/TEST::SOCKET
;                          (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                            (FUNCALL LAAP/TEST::DONE))))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (LAAP/SOCKET:CLOSE LAAP/TEST::SOCKET
;                          (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                            (FUNCALL LAAP/TEST::DONE))))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES) (FUNCALL LAAP/TEST::DONE))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES) (FUNCALL LAAP/TEST::DONE))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RESULT)
;       (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;       (LET ((LAAP/TEST::RESULT ""))
;         (LAAP/SOCKET:RECEIVE LAAP/TEST::SOCKET
;                              (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                                (WHEN LAAP/TEST::ERR #)
;                                (SETF #))
;                              :END
;                              (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                                (LAAP/SOCKET:CLOSE LAAP/TEST::SOCKET #)))))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RESULT)
;       (WHEN LAAP/TEST::ERR (ERROR LAAP/TEST::ERR))
;       (LET ((LAAP/TEST::RESULT ""))
;         (LAAP/SOCKET:RECEIVE LAAP/TEST::SOCKET
;                              (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                                (WHEN LAAP/TEST::ERR #)
;                                (SETF #))
;                              :END
;                              (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                                (LAAP/SOCKET:CLOSE LAAP/TEST::SOCKET #)))))
; 
; caught STYLE-WARNING:
;   The variable RESULT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/socket.lisp
; in: TEST SOCKET-LISTEN
;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (ASSERT (EQ LAAP/TEST::ERR NIL))
;       (LAAP/SOCKET:CLOSE LAAP/TEST::SOCKET
;                          (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                            (FUNCALL LAAP/TEST::DONE))))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;       (ASSERT (EQ LAAP/TEST::ERR NIL))
;       (LAAP/SOCKET:CLOSE LAAP/TEST::SOCKET
;                          (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES)
;                            (FUNCALL LAAP/TEST::DONE))))
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.

;     (LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES) (FUNCALL LAAP/TEST::DONE))
; ==>
;   #'(LAMBDA (LAAP/TEST::ERR LAAP/TEST::RES) (FUNCALL LAAP/TEST::DONE))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RES is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "laap-test" "t" "socket">
Unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>: Function not implemented

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR "Function not implemented" {1009B2BD53}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR "Function not implemented" {1009B2BD53}>)
2: (INVOKE-DEBUGGER #<SIMPLE-ERROR "Function not implemented" {1009B2BD53}>)
3: (ERROR "Function not implemented")
4: (GETRANDOM 16)
5: (RANDOM-STRING)
6: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for "file /home/quicklisp/.cache/common-lisp/sbcl-1.4.3-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/fs.fasl" {1009B23033}> :TABLE #(256 SET *PACKAGE* "LAAP/TEST" #<PACKAGE "SB-IMPL"> SB-IMPL::%DEFUN #<PACKAGE "LAAP/TEST"> GETRANDOM "free" #<PACKAGE "SB-C"> SB-C:UNWIND #<PACKAGE "SB-ALIEN"> ...) :STACK #(6 SB-IMPL::%DEFVAR *TEMPORARY-FILE-FOO* #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/fs.lisp" :INDICES 196609) FORMAT NIL "/tmp/~a" RANDOM-STRING LAAP/FS:READ MAKE-INSTANCE TEMPORARY-FILE SB-KERNEL:ASSERT-ERROR ...) :NAME-BUFFER #("%VAR-ACCESSOR-ERRNO" "FORMATRARY-FILE-FOO*FUNEVEL") :DEPRECATED-STUFF NIL :SKIP-UNTIL NIL) NIL)
7: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /home/quicklisp/.cache/common-lisp/sbcl-1.4.3-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/fs.fasl" {1009B23033}> NIL NIL)
8: ((FLET SB-FASL::THUNK :IN LOAD))
9: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<CLOSURE (FLET SB-FASL::THUNK :IN LOAD) {7FFFF6DA699B}> #<SB-SYS:FD-STREAM for "file /home/quicklisp/.cache/common-lisp/sbcl-1.4.3-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/fs.fasl" {1009B23033}>)
10: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /home/quicklisp/.cache/common-lisp/sbcl-1.4.3-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/fs.fasl" {1009B23033}> T)
11: (LOAD #P"/home/quicklisp/.cache/common-lisp/sbcl-1.4.3-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/laap/8e90156c16ad1a0ff95b9f29bc8828bee5123101/laap-20180116-git/t/fs.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
12: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:LOAD*) {1009B211CB}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)))
13: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "laap-test" "t" "fs">)
14: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
15: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "laap-test" "t" "fs">) [fast-method]
16: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "laap-test" "t" "fs">) [fast-method]
17: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005A073F3}>) [fast-method]
18: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
19: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005A073F3}>) [fast-method]
20: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "laap-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
21: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "laap-test">)
22: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
23: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "laap-test">) [fast-method]
24: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "laap-test")
25: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
26: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "laap-test") [fast-method]
27: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005A01F3B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
28: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
29: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10059BE55B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
30: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "laap-test") [fast-method]
31: (DEPCHECK::COMPUTE-DEPENDENCIES "laap-test" "laap-test")
32: (DEPCHECK::MAGIC "laap-test" "laap-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-2WwTpn4U/depcheck-win.txt")
33: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "laap-test" "laap-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-2WwTpn4U/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-2WwTpn4U/depcheck-fail.txt"))
34: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
35: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
36: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SB-EXT:SAVE-LISP-AND-DIE))
37: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

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