cl-bunny

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

cl-bunny

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/collectors/1e386552e3b2900580e3972c46152fb776dcc28a/collectors-20211006-git/collectors.asd" contains definition for system "collectors-test". Please only define "collectors" and secondary systems with a name starting with "collectors/" (e.g. "collectors/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/symbol-munger/a8589c60f470b8b280eacd9c983d96bc5f337341/symbol-munger-20211006-git/symbol-munger.asd" contains definition for system "symbol-munger-test". Please only define "symbol-munger" and secondary systems with a name starting with "symbol-munger/" (e.g. "symbol-munger/test") in that file.
WARNING: IOLIB/COMMON-LISP also exports the following symbols:
  (CAAADR GET-INTERNAL-REAL-TIME DO-ALL-SYMBOLS STRING= SIGNED-BYTE STRING>= TRANSLATE-PATHNAME DEFMACRO LET RESTART-NAME SLOT-UNBOUND CELL-ERROR CLRHASH MOST-NEGATIVE-FIXNUM MAP-INTO READ-SEQUENCE READ ACOSH CDADDR BOOLE-CLR HASH-TABLE-TEST PRIN1 DELETE-FILE PACKAGEP INTERSECTION PACKAGE-ERROR CLASS-NAME MAKE-RANDOM-STATE LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT FIND-ALL-SYMBOLS HASH-TABLE-SIZE GCD LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT SUBLIS BOOLE STANDARD-CHAR-P AREF GETHASH WITH-SIMPLE-RESTART SUBTYPEP NIL DEFINE-SYMBOL-MACRO SETQ COMPILE INTERN WRITE-STRING REALP SOME CADDR FINISH-OUTPUT THROW ARRAY-DIMENSIONS PACKAGE-ERROR-PACKAGE CHAR-CODE WITH-SLOTS BOOLE-EQV MAPC PROVIDE PATHNAME-DIRECTORY PSETQ FUNCTIONP STRING-RIGHT-TRIM *** SLOT-MAKUNBOUND *TRACE-OUTPUT* ALLOCATE-INSTANCE RESTART NUNION CLEAR-INPUT SLEEP FIND-IF-NOT ABORT ENCODE-UNIVERSAL-TIME ED &WHOLE TAN READ-PRESERVING-WHITESPACE *PRINT-PRETTY* ENDP COMPILATION-SPEED NAME-CHAR USE-PACKAGE SLOT-VALUE INVOKE-DEBUGGER READER-ERROR LOGXOR NSET-DIFFERENCE STANDARD-OBJECT CEILING UNWIND-PROTECT SLOT-BOUNDP ENSURE-GENERIC-FUNCTION SUBST DRIBBLE SHARED-INITIALIZE STRING-NOT-LESSP *PRINT-ESCAPE* ARRAY-ROW-MAJOR-INDEX HOST-NAMESTRING HASH-TABLE-P ARRAY-DISPLACEMENT READTABLE NRECONC SIMPLE-CONDITION-FORMAT-ARGUMENTS OTHERWISE TYPE GENSYM SET-DIFFERENCE NTHCDR CONJUGATE OPEN-STREAM-P INTEGER-DECODE-FLOAT BYTE-POSITION BIGNUM METHOD-COMBINATION-ERROR BIT-ANDC2 *MODULES* BIT-NOT CASE CDADR ASINH COPY-READTABLE MAKE-DISPATCH-MACRO-CHARACTER DELETE USER-HOMEDIR-PATHNAME METHOD-COMBINATION GET-SETF-EXPANSION MOST-NEGATIVE-DOUBLE-FLOAT MULTIPLE-VALUES-LIMIT CHAR= END-OF-FILE GET-MACRO-CHARACTER MULTIPLE-VALUE-BIND *LOAD-VERBOSE* EVAL-WHEN *DEBUGGER-HOOK* NSUBST-IF ZEROP BIT-IOR FUNCTION-KEYWORDS REDUCE UNEXPORT LDIFF COPY-STRUCTURE REVAPPEND DIGIT-CHAR MAKE-BROADCAST-STREAM SEQUENCE DEFVAR FRESH-LINE ATANH TENTH POP STREAM-ELEMENT-TYPE PATHNAME TYPEP MAKE-SEQUENCE SHADOW *GENSYM-COUNTER* SLOT-MISSING ARITHMETIC-ERROR LONG-FLOAT-NEGATIVE-EPSILON ACONS DO-SYMBOLS ROOM UNSIGNED-BYTE MAPCON DO-EXTERNAL-SYMBOLS CTYPECASE SET SIMPLE-ARRAY SECOND INPUT-STREAM-P SCHAR LDB CHAR-INT *LOAD-TRUENAME* LOGICAL-PATHNAME WITH-ACCESSORS SIMPLE-WARNING NCONC SIMPLE-BIT-VECTOR PROG* HANDLER-BIND MUFFLE-WARNING APPLY DOUBLE-FLOAT-EPSILON COND COMPILED-FUNCTION /= CODE-CHAR LOGANDC1 COMPILED-FUNCTION-P < ROTATEF SPECIAL-OPERATOR-P PROG1 ETYPECASE FIXNUM BOOLE-NOR REMOVE SHADOWING-IMPORT TREE-EQUAL - *MACROEXPAND-HOOK* / *PRINT-READABLY* LOGEQV COMPLEX CDDDDR BOOLE-C1 GET EQUAL > FLOAT-DIGITS CHAR>= NTH-VALUE PLUSP FIND-RESTART BIT-VECTOR-P SYMBOL-PACKAGE EIGHTH ARRAYP NSET-EXCLUSIVE-OR LIST* PUSH ATOM TWO-WAY-STREAM-OUTPUT-STREAM CDDDR REQUIRE SIMPLE-TYPE-ERROR PATHNAME-NAME LABELS PROBE-FILE CHAR<= FILL CALL-METHOD PI CDADAR HASH-TABLE-COUNT CHANGE-CLASS LOGNAND MOST-NEGATIVE-SINGLE-FLOAT *PRINT-LINES* MAKE-INSTANCE LAMBDA-PARAMETERS-LIMIT BASE-CHAR LOGNOR PARSE-INTEGER STREAM-ERROR HANDLER-CASE BOOLE-ORC2 SIMPLE-BIT-VECTOR-P TANH ERROR REAL VECTORP PPRINT-LOGICAL-BLOCK BLOCK CHAR-NOT-GREATERP THIRD EXPORT *READ-SUPPRESS* BOOLE-ANDC1 SUBSETP CAAR INITIALIZE-INSTANCE LEAST-POSITIVE-LONG-FLOAT EXPT UNUSE-PACKAGE LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT NOTANY NO-APPLICABLE-METHOD DECODE-UNIVERSAL-TIME DEPOSIT-FIELD READTABLEP REM ASSOC-IF-NOT READ-CHAR-NO-HANG BOOLE-NAND VECTOR LISP-IMPLEMENTATION-TYPE RANDOM-STATE-P READTABLE-CASE PACKAGE-SHADOWING-SYMBOLS BREAK STRING-STREAM NSUBST UPDATE-INSTANCE-FOR-REDEFINED-CLASS GETF BIT-ORC1 ADD-METHOD FIND-IF PARSE-NAMESTRING *LOAD-PRINT* ROW-MAJOR-AREF SIMPLE-ERROR PROGN NULL FUNCTION INCF BOTH-CASE-P COMPILE-FILE-PATHNAME LOOP-FINISH STYLE-WARNING COMPUTE-RESTARTS THE REMF INVOKE-RESTART-INTERACTIVELY LOGICAL-PATHNAME-TRANSLATIONS CDDADR 1- *PACKAGE* *QUERY-IO* SYMBOL CHECK-TYPE REALPART SYNONYM-STREAM-SYMBOL MAKE-STRING PACKAGE-NAME FORMAT DECLARE DELETE-PACKAGE MULTIPLE-VALUE-LIST CHAR WITH-OPEN-STREAM &KEY SUBST-IF TYPE-ERROR-DATUM REINITIALIZE-INSTANCE EXP STRUCTURE-CLASS DO DENOMINATOR ECHO-STREAM TIME ARRAY-ELEMENT-TYPE SIMPLE-STRING-P SUBSTITUTE-IF-NOT Y-OR-N-P MAPHASH SIN EVERY MAPCAN ARRAY-RANK CONCATENATED-STREAM-STREAMS DIGIT-CHAR-P *PRINT-CASE* WILD-PATHNAME-P STRING-UPCASE CDAR MACHINE-VERSION CONTINUE ASSOC-IF SYMBOL-PLIST CAAAAR SIMPLE-STRING COPY-LIST DEFPARAMETER LCM COPY-ALIST *DEBUG-IO* DIRECTORY-NAMESTRING ARRAY-HAS-FILL-POINTER-P NINTH LEAST-POSITIVE-NORMALIZED-LONG-FLOAT FDEFINITION MERGE PPRINT-TABULAR BIT-ORC2 CAADDR EVENP GET-OUTPUT-STREAM-STRING WRITE-BYTE LONG-SITE-NAME MAKE-LOAD-FORM BOOLE-C2 POSITION-IF SIMPLE-CONDITION MOST-POSITIVE-LONG-FLOAT COPY-TREE ASSERT COMPILER-MACRO LOAD-LOGICAL-PATHNAME-TRANSLATIONS NSUBLIS BYTE-SIZE UNREAD-CHAR MULTIPLE-VALUE-SETQ *PRINT-CIRCLE* MACROLET MAKE-PACKAGE LOGBITP BIT NSUBSTITUTE-IF-NOT LOWER-CASE-P DOUBLE-FLOAT FILE-POSITION RPLACD PPRINT-TAB PROCLAIM LET* STRINGP DEFSETF UNBOUND-SLOT-INSTANCE FILE-AUTHOR DEFINE-SETF-EXPANDER DO* *COMPILE-PRINT* UNBOUND-VARIABLE LIST-LENGTH RASSOC-IF-NOT DEFMETHOD VECTOR-PUSH-EXTEND SIXTH MACROEXPAND PPRINT VECTOR-PUSH BOOLE-IOR MASK-FIELD LEAST-POSITIVE-SHORT-FLOAT CAADR TYPE-ERROR-EXPECTED-TYPE DOUBLE-FLOAT-NEGATIVE-EPSILON COPY-SYMBOL FOURTH PACKAGE-USE-LIST FLOAT MEMBER RASSOC-IF EQ STRING-TRIM CLASS METHOD PPRINT-NEWLINE TRANSLATE-LOGICAL-PATHNAME NOTEVERY *PRINT-LEVEL* SYMBOL-FUNCTION PATHNAME-DEVICE PATHNAME-HOST STRUCTURE-OBJECT CHAR> GET-INTERNAL-RUN-TIME SIMPLE-VECTOR-P NSTRING-DOWNCASE COMPILER-MACRO-FUNCTION FIND NSUBSTITUTE-IF INTERACTIVE-STREAM-P CDAADR STORAGE-CONDITION INLINE GRAPHIC-CHAR-P CONSTANTLY STRING-LEFT-TRIM FLOOR METHOD-QUALIFIERS CLASS-OF SET-EXCLUSIVE-OR FUNCTION-LAMBDA-EXPRESSION PROGRAM-ERROR *READ-DEFAULT-FLOAT-FORMAT* NUMBERP NEXT-METHOD-P SYMBOL-VALUE SINGLE-FLOAT-EPSILON SATISFIES LOGAND ENSURE-DIRECTORIES-EXIST STABLE-SORT LEAST-NEGATIVE-SHORT-FLOAT /// CHAR-LESSP MEMBER-IF MAKE-METHOD MAKE-ECHO-STREAM NSTRING-UPCASE STANDARD-METHOD RANDOM-STATE WITH-STANDARD-IO-SYNTAX CALL-ARGUMENTS-LIMIT MAKE-PATHNAME *PRINT-GENSYM* CADDDR LOGTEST <= PACKAGE GET-UNIVERSAL-TIME CHAR-DOWNCASE RETURN-FROM MAKE-SYMBOL SHORT-FLOAT WITH-HASH-TABLE-ITERATOR LONG-FLOAT-EPSILON IN-PACKAGE RASSOC INVALID-METHOD-ERROR LOGANDC2 STRING/= FLOATING-POINT-INEXACT *COMPILE-FILE-TRUENAME* CHAR< GET-DISPATCH-MACRO-CHARACTER CHAR-NOT-EQUAL MINUSP SIMPLE-CONDITION-FORMAT-CONTROL STREAMP SET-MACRO-CHARACTER SIMPLE-BASE-STRING SINGLE-FLOAT ARRAY SET-DISPATCH-MACRO-CHARACTER *STANDARD-OUTPUT* SHIFTF SHORT-FLOAT-NEGATIVE-EPSILON DESTRUCTURING-BIND PEEK-CHAR *PRINT-BASE* UPGRADED-COMPLEX-PART-TYPE &ALLOW-OTHER-KEYS ADJUST-ARRAY COERCE UNLESS READ-CHAR LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT FBOUNDP FLOATING-POINT-UNDERFLOW BIT-XOR *PRINT-PPRINT-DISPATCH* LOAD-TIME-VALUE &ENVIRONMENT PPRINT-EXIT-IF-LIST-EXHAUSTED REMHASH TRACE MAKE-CONDITION LOGORC2 FIND-PACKAGE = PPRINT-FILL SERIOUS-CONDITION SIMPLE-VECTOR // EQUALP NOT ALPHANUMERICP DOLIST EQL SVREF QUOTE KEYWORDP ARITHMETIC-ERROR-OPERATION ASSOC * READ-LINE PUSHNEW DELETE-IF-NOT BUTLAST FTYPE UNION LEAST-NEGATIVE-LONG-FLOAT NSUBSTITUTE MIN CDAAAR RESTART-BIND FILE-NAMESTRING &BODY MOST-NEGATIVE-LONG-FLOAT RENAME-PACKAGE DEFINE-METHOD-COMBINATION COSH COUNT MOST-POSITIVE-DOUBLE-FLOAT CAR CERROR STRING PHASE WITH-CONDITION-RESTARTS STANDARD-CHAR WITH-COMPILATION-UNIT STRING-NOT-GREATERP STEP MOST-NEGATIVE-SHORT-FLOAT MAKE-STRING-INPUT-STREAM OR ECHO-STREAM-INPUT-STREAM INVOKE-RESTART HASH-TABLE MULTIPLE-VALUE-PROG1 WARNING BOOLE-AND FILE-LENGTH ACOS DESCRIBE-OBJECT DEFINE-COMPILER-MACRO BOOLE-2 DEFGENERIC DESCRIBE LISTEN DEFTYPE TYPE-ERROR WITH-OPEN-FILE LENGTH INTERNAL-TIME-UNITS-PER-SECOND ADJUSTABLE-ARRAY-P REST *ERROR-OUTPUT* *COMPILE-FILE-PATHNAME* MAP MACROEXPAND-1 FTRUNCATE LAST FLOATP TRUENAME *DEFAULT-PATHNAME-DEFAULTS* MULTIPLE-VALUE-CALL BOUNDP LEAST-NEGATIVE-SINGLE-FLOAT FLOAT-RADIX ISQRT COMPLEXP SPEED UNTRACE NUMBER IGNORABLE MAKUNBOUND IMAGPART EXTENDED-CHAR CELL-ERROR-NAME DEBUG CATCH ARRAY-TOTAL-SIZE-LIMIT PRIN1-TO-STRING ODDP COPY-SEQ SHORT-SITE-NAME READ-FROM-STRING NREVERSE NBUTLAST WRITE-LINE SEVENTH RATIONALIZE LOGIOR FROUND MAKE-CONCATENATED-STREAM SCALE-FLOAT COPY-PPRINT-DISPATCH CHAR-EQUAL LAMBDA FILE-ERROR-PATHNAME MAKE-STRING-OUTPUT-STREAM IGNORE ECHO-STREAM-OUTPUT-STREAM SUBST-IF-NOT DOTIMES WHEN *READ-EVAL* ASIN CONS DEFCLASS CONCATENATED-STREAM MAKE-LOAD-FORM-SAVING-SLOTS UPGRADED-ARRAY-ELEMENT-TYPE PACKAGE-NICKNAMES HASH-TABLE-REHASH-THRESHOLD RESTART-CASE &OPTIONAL ARRAY-IN-BOUNDS-P READ-BYTE CONSP NSTRING-CAPITALIZE BIT-VECTOR WARN BUILT-IN-CLASS LAMBDA-LIST-KEYWORDS PROG PATHNAME-MATCH-P GENERIC-FUNCTION CCASE UNDEFINED-FUNCTION REPLACE LISP-IMPLEMENTATION-VERSION REMOVE-DUPLICATES DEFUN CHAR-UPCASE UNINTERN *READ-BASE* REMOVE-IF LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT KEYWORD ROUND SIGNAL MOD BOOLE-ORC1 EVAL SORT ARITHMETIC-ERROR-OPERANDS SOFTWARE-VERSION UNBOUND-SLOT CADADR MACHINE-TYPE FFLOOR STANDARD PROGV MACHINE-INSTANCE SUBSTITUTE WRITE-TO-STRING ARRAY-DIMENSION DEFINE-CONDITION *STANDARD-INPUT* PATHNAME-TYPE TRUNCATE TYPE-OF STANDARD-GENERIC-FUNCTION FILL-POINTER FILE-STREAM CHAR/= CADAR DECF ALPHA-CHAR-P SQRT BIT-EQV SINH PSETF REVERSE RATIONALP ++ PRINT-OBJECT MEMBER-IF-NOT DOCUMENTATION BOOLE-SET INSPECT OPEN CHAR-NAME BROADCAST-STREAM MAKE-TWO-WAY-STREAM APROPOS LOGNOT BOOLE-ANDC2 COUNT-IF-NOT LOG BYTE >= INTEGER IGNORE-ERRORS PATHNAME-VERSION FILE-STRING-LENGTH REMOVE-METHOD NSUBST-IF-NOT LOGORC1 1+ ATAN STRUCTURE PATHNAMEP ARRAY-TOTAL-SIZE ADJOIN MACRO-FUNCTION GO FIND-CLASS HASH-TABLE-REHASH-SIZE FIFTH LEAST-POSITIVE-DOUBLE-FLOAT VECTOR-POP FIND-METHOD NO-NEXT-METHOD DYNAMIC-EXTENT ASH FCEILING SUBSTITUTE-IF CLEAR-OUTPUT CHAR-CODE-LIMIT CALL-NEXT-METHOD CHAR-NOT-LESSP SLOT-EXISTS-P FIRST LIST-ALL-PACKAGES STRING< STREAM-ERROR-STREAM CDDAR PPRINT-LINEAR MAKE-LIST BIT-NOR IF OPTIMIZE MOST-POSITIVE-FIXNUM SEARCH MOST-POSITIVE-SINGLE-FLOAT USE-VALUE STANDARD-CLASS COS &AUX TAILP PPRINT-POP STRING-CAPITALIZE *PRINT-ARRAY* FMAKUNBOUND AND COMPILE-FILE DECLAIM SPECIAL *READTABLE* FLOAT-SIGN SINGLE-FLOAT-NEGATIVE-EPSILON LISTP APPEND INTEGERP SETF MAX COMPUTE-APPLICABLE-METHODS STRING-NOT-EQUAL MERGE-PATHNAMES CADDAR PACKAGE-USED-BY-LIST LONG-FLOAT TWO-WAY-STREAM DEFSTRUCT CDAAR DIVISION-BY-ZERO ELT SOFTWARE-TYPE STORE-VALUE CDDAAR *BREAK-ON-SIGNALS* FLET BASE-STRING RPLACA MAKE-ARRAY FLOATING-POINT-OVERFLOW NOTINLINE STRING> DEFPACKAGE PRINT-NOT-READABLE-OBJECT &REST NAMESTRING CDDR SYNONYM-STREAM CHAR-GREATERP POSITION-IF-NOT ARRAY-DIMENSION-LIMIT PRINC PRINT WRITE BROADCAST-STREAM-STREAMS NUMERATOR +++ STRING-EQUAL WITH-INPUT-FROM-STRING T PRINT-UNREADABLE-OBJECT MAPL *COMPILE-VERBOSE* BIT-NAND MOST-POSITIVE-SHORT-FLOAT APROPOS-LIST CHARACTER DISASSEMBLE ARRAY-RANK-LIMIT DEFINE-MODIFY-MACRO POSITION YES-OR-NO-P RATIONAL GET-DECODED-TIME SPACE MAPCAR RANDOM *PRINT-RIGHT-MARGIN* BIT-AND TYPECASE STRING-DOWNCASE OUTPUT-STREAM-P RENAME-FILE WITH-PACKAGE-ITERATOR SBIT TWO-WAY-STREAM-INPUT-STREAM MAKE-INSTANCES-OBSOLETE REMPROP CIS TAGBODY WRITE-CHAR SUBSEQ *FEATURES* STRING<= PARSE-ERROR LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT FLOATING-POINT-INVALID-OPERATION SET-PPRINT-DISPATCH SYMBOLP LIST + STRING-LESSP CONDITION VALUES-LIST PPRINT-INDENT NTH SHORT-FLOAT-EPSILON CADR FORCE-OUTPUT BOOLE-XOR MAPLIST MISMATCH MAKE-HASH-TABLE LOOP DELETE-IF SYMBOL-MACROLET ** BOOLE-1 SXHASH UPDATE-INSTANCE-FOR-DIFFERENT-CLASS CONSTANTP WRITE-SEQUENCE *RANDOM-STATE* *LOAD-PATHNAME* READ-DELIMITED-LIST GET-PROPERTIES CADAAR VARIABLE ABS DECODE-FLOAT STREAM-EXTERNAL-FORMAT FILE-WRITE-DATE TERPRI *PRINT-RADIX* DPB LEAST-NEGATIVE-DOUBLE-FLOAT PAIRLIS COUNT-IF CONTROL-ERROR ECASE *PRINT-MISER-WIDTH* SYMBOL-NAME FILE-ERROR RETURN BIT-ANDC1 CDR SAFETY FLOAT-PRECISION NINTERSECTION LOGCOUNT SIGNUM CAAAR LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT COMPLEMENT RATIO DECLARATION IMPORT LOCALLY *TERMINAL-IO* DIRECTORY CLOSE LOAD DELETE-DUPLICATES CAADAR SET-SYNTAX-FROM-CHAR UPPER-CASE-P PRINC-TO-STRING LEAST-POSITIVE-SINGLE-FLOAT STREAM CDDDAR PRINT-NOT-READABLE GENTEMP CHARACTERP INTEGER-LENGTH MAKE-SYNONYM-STREAM FUNCALL CONCATENATE ENOUGH-NAMESTRING REMOVE-IF-NOT VALUES FORMATTER PPRINT-DISPATCH PROG2 *PRINT-LENGTH* IDENTITY LDB-TEST FIND-SYMBOL WITH-OUTPUT-TO-STRING STRING-GREATERP)
See also:
  The ANSI Standard, Macro COMMON-LISP:DEFPACKAGE
  The SBCL Manual, Variable SB-EXT:*ON-PACKAGE-VARIANCE*
WARNING: IOLIB/BASE also exports the following symbols:
  (FUNDAMENTAL-CHARACTER-INPUT-STREAM *PRINT-CIRCLE* DEFINE-SETF-EXPANDER T FIND-PACKAGE CADR IMAGPART LIST-ALL-PACKAGES ALEXANDRIA:MAP-DERANGEMENTS STRING-EQUAL ALEXANDRIA:SHUFFLE CAADAR UNINTERN NBUTLAST BOOLE-EQV CALL-METHOD GO VECTOR-PUSH FIND-CLASS VALUES-LIST CHARACTERP ALEXANDRIA:NON-POSITIVE-INTEGER-P COUNT-IF-NOT WITH-OUTPUT-TO-STRING COPY-LIST ALEXANDRIA:NON-NEGATIVE-SINGLE-FLOAT-P PRINT-NOT-READABLE ERROR REMHASH *PRINT-RIGHT-MARGIN* PATHNAMEP ALEXANDRIA:MINF DEFCONSTANT ALEXANDRIA:SIMPLE-PROGRAM-ERROR ALEXANDRIA:CSWITCH MOST-POSITIVE-FIXNUM LOG MAKE-INSTANCE ENDP WITH-SLOTS SET-DISPATCH-MACRO-CHARACTER PPRINT-POP ALEXANDRIA:DESTRUCTURING-CCASE LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT PARSE-ERROR STRING-DOWNCASE DELETE-IF APROPOS STRING<= WITH-COMPILATION-UNIT BOOLE-2 ALEXANDRIA:COPY-FILE SYNONYM-STREAM-SYMBOL ADJUSTABLE-ARRAY-P SUBST-IF-NOT COPY-TREE DENOMINATOR TYPE-ERROR FUNDAMENTAL-OUTPUT-STREAM ASSOC-IF FTRUNCATE CDDDR DECODE-UNIVERSAL-TIME MAKUNBOUND ALEXANDRIA:NON-POSITIVE-SINGLE-FLOAT DECLARATION MAKE-STRING WITH-HASH-TABLE-ITERATOR CHANGE-CLASS FUNCALL NTHCDR LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT STRING-CAPITALIZE MAKE-LOAD-FORM-SAVING-SLOTS CIS PACKAGEP ALEXANDRIA:CLAMP ALEXANDRIA:NON-POSITIVE-FIXNUM CHAR-UPCASE ALLOCATE-INSTANCE INTERSECTION FIND-IF-NOT STREAMP *COMPILE-FILE-PATHNAME* ALEXANDRIA:APPENDF REALP STREAM-PEEK-CHAR REST BASE-STRING UNTRACE STREAM-FRESH-LINE SIN EVAL MOD CONCATENATED-STREAM *COMPILE-VERBOSE* ALEXANDRIA:PROPER-LIST-LENGTH CHAR= LOGXOR ALEXANDRIA:MAPHASH-KEYS ALEXANDRIA:NON-NEGATIVE-RATIONAL-P LET* SUBTYPEP DELETE-DUPLICATES ROW-MAJOR-AREF MASK-FIELD PATHNAME-HOST CAAR FIND-IF FIFTH STANDARD-GENERIC-FUNCTION SIMPLE-CONDITION POP STRING-NOT-GREATERP ARRAY-RANK ALEXANDRIA:ARRAY-INDEX ALEXANDRIA:MULTIPLE-VALUE-COMPOSE DEFCLASS TRANSLATE-PATHNAME LCM ALEXANDRIA:READ-FILE-INTO-STRING CDDDDR UPPER-CASE-P STREAM-READ-CHAR-NO-HANG LOGICAL-PATHNAME ALEXANDRIA:FACTORIAL UPDATE-INSTANCE-FOR-REDEFINED-CLASS FLOAT-DIGITS ALEXANDRIA:NON-NEGATIVE-FIXNUM-P ALEXANDRIA:ENDS-WITH ALEXANDRIA:LAST-ELT SIMPLE-BIT-VECTOR-P PATHNAME-DEVICE PATHNAME ENOUGH-NAMESTRING SLOT-MISSING LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT SUBLIS ARITHMETIC-ERROR-OPERATION FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ALEXANDRIA:COPY-SEQUENCE FDEFINITION FILL DEFINE-MODIFY-MACRO MAP SUBSTITUTE-IF-NOT ALEXANDRIA:MAPHASH-VALUES WITH-SIMPLE-RESTART ALEXANDRIA:ASSOC-VALUE ALEXANDRIA:PLIST-ALIST LAMBDA-PARAMETERS-LIMIT CADDDR UNEXPORT CALL-NEXT-METHOD REMF ALEXANDRIA:POSITIVE-SHORT-FLOAT-P COMPILE-FILE-PATHNAME GET-INTERNAL-REAL-TIME IN-PACKAGE ALEXANDRIA:ALIST-PLIST INVOKE-RESTART ASH ARRAY-DIMENSIONS SYNONYM-STREAM ALEXANDRIA:HASH-TABLE-ALIST SQRT SIMPLE-STRING-P TYPE ALEXANDRIA:NEGATIVE-DOUBLE-FLOAT-P WARNING ALEXANDRIA:READ-STREAM-CONTENT-INTO-STRING PI ALEXANDRIA:NCONCF CASE INTEGER-DECODE-FLOAT FILE-ERROR-PATHNAME ALEXANDRIA:HASH-TABLE-PLIST LOGORC1 VARIABLE FIND ALEXANDRIA:NON-POSITIVE-REAL-P PPRINT-DISPATCH NOTEVERY UNBOUND-VARIABLE *STANDARD-INPUT* RANDOM-STATE-P *MACROEXPAND-HOOK* ARRAY-DIMENSION-LIMIT ALEXANDRIA:NEGATIVE-SINGLE-FLOAT-P CHAR-NOT-LESSP STRING< RASSOC-IF *** SETF TRIVIAL-GRAY-STREAM-MIXIN STANDARD WRITE CLEAR-INPUT DESTRUCTURING-BIND ALEXANDRIA:MEDIAN UNBOUND-SLOT-INSTANCE HASH-TABLE-SIZE ALEXANDRIA:UNIONF *COMPILE-PRINT* LONG-FLOAT-NEGATIVE-EPSILON ALEXANDRIA:STARTS-WITH-SUBSEQ SEQUENCE HASH-TABLE-REHASH-THRESHOLD ALEXANDRIA:READ-FILE-INTO-BYTE-VECTOR CDDDAR QUOTE STREAM-WRITE-STRING ALEXANDRIA:SET-EQUAL COMPLEMENT ALEXANDRIA:NEGATIVE-INTEGER-P CADDR MAPCAR RATIO ALEXANDRIA:POSITIVE-SHORT-FLOAT EQ NSUBSTITUTE-IF-NOT ALEXANDRIA:DELETE-FROM-PLIST MAKE-PATHNAME PRINT *GENSYM-COUNTER* LONG-SITE-NAME NCONC EQL ALEXANDRIA:SETP COERCE GENTEMP UPGRADED-COMPLEX-PART-TYPE BIT FLOATING-POINT-OVERFLOW PRINC ALEXANDRIA:WHEN-LET DESCRIBE ALEXANDRIA:ENDS-WITH-SUBSEQ STRING-UPCASE ECHO-STREAM-INPUT-STREAM ALEXANDRIA:IF-LET STREAM-FILE-POSITION FMAKUNBOUND DIVISION-BY-ZERO UNUSE-PACKAGE CHAR/= MAKE-BROADCAST-STREAM ATOM ALEXANDRIA:SIMPLE-READER-ERROR FBOUNDP REAL ALEXANDRIA:PROPER-LIST ADD-METHOD STREAM-TERPRI SAFETY SUBSTITUTE PARSE-INTEGER ALEXANDRIA:PLIST-HASH-TABLE LEAST-NEGATIVE-DOUBLE-FLOAT STRING-NOT-LESSP ELT SET-DIFFERENCE TRUENAME ALEXANDRIA:POSITIVE-SINGLE-FLOAT-P TRUNCATE ECHO-STREAM END-OF-FILE IF STORAGE-CONDITION SHORT-SITE-NAME ALEXANDRIA:CIRCULAR-LIST SHADOW STREAM-READ-SEQUENCE MAPCON MAPC FUNDAMENTAL-BINARY-STREAM LOGAND SIGNUM DYNAMIC-EXTENT NINTERSECTION TWO-WAY-STREAM-OUTPUT-STREAM ARRAY-TOTAL-SIZE SLOT-MAKUNBOUND NSUBST CHAR-NAME ABORT LOGBITP / COMPLEXP FINISH-OUTPUT FILE-STREAM LOAD-TIME-VALUE ALEXANDRIA:POSITIVE-REAL-P STREAM-UNREAD-CHAR ALEXANDRIA:FLATTEN SIMPLE-STRING MUFFLE-WARNING FUNDAMENTAL-BINARY-OUTPUT-STREAM MAKE-LIST USE-PACKAGE REMPROP SIMPLE-TYPE-ERROR DECLARE UNLESS PRINT-NOT-READABLE-OBJECT ALEXANDRIA:NON-POSITIVE-DOUBLE-FLOAT-P NSUBST-IF *PRINT-ESCAPE* ALEXANDRIA:NON-POSITIVE-RATIONAL-P SLOT-BOUNDP *READ-EVAL* DEFSETF HOST-NAMESTRING ALEXANDRIA:WITH-GENSYMS PUSHNEW EXTENDED-CHAR NOTANY PROGV PACKAGE PPRINT-INDENT CHAR< SOFTWARE-TYPE FLOATING-POINT-INEXACT BIT-ORC1 NOT *FEATURES* *TERMINAL-IO* ALEXANDRIA:NON-NEGATIVE-SHORT-FLOAT STRING= ADJUST-ARRAY PSETQ ALEXANDRIA:HASH-TABLE-VALUES CCASE MOST-POSITIVE-DOUBLE-FLOAT ALEXANDRIA:MAPPEND ALEXANDRIA:POSITIVE-FLOAT-P ALEXANDRIA:NUNIONF FILE-STRING-LENGTH SIMPLE-ERROR COPY-STRUCTURE SYMBOL-NAME MULTIPLE-VALUE-PROG1 BOOLE-ORC2 READ ALEXANDRIA:NON-POSITIVE-RATIONAL MOST-NEGATIVE-SHORT-FLOAT CDDR ALEXANDRIA:MAP-PRODUCT DOUBLE-FLOAT-NEGATIVE-EPSILON APPLY COS ALEXANDRIA:NEGATIVE-FIXNUM STRING FUNDAMENTAL-CHARACTER-STREAM DOUBLE-FLOAT ALEXANDRIA:MAKE-CIRCULAR-LIST EQUAL LISTP &WHOLE FUNCTIONP ALEXANDRIA:HASH-TABLE-KEYS ASSOC ALEXANDRIA:POSITIVE-LONG-FLOAT-P ARRAY-TOTAL-SIZE-LIMIT SVREF FLOATING-POINT-UNDERFLOW COMPILED-FUNCTION-P BUILT-IN-CLASS *TRACE-OUTPUT* RASSOC-IF-NOT STREAM-ELEMENT-TYPE STRING-LESSP SINGLE-FLOAT-NEGATIVE-EPSILON ISQRT SPEED ALEXANDRIA:NEGATIVE-FLOAT-P STORE-VALUE CATCH + BOOLE-NAND ALEXANDRIA:NON-NEGATIVE-REAL-P GETF DEFPARAMETER DIGIT-CHAR-P NO-NEXT-METHOD CAR VECTOR-PUSH-EXTEND HASH-TABLE-COUNT SUBST-IF FUNDAMENTAL-STREAM STREAM-ADVANCE-TO-COLUMN STREAM-CLEAR-OUTPUT SIMPLE-BASE-STRING LIST-LENGTH CODE-CHAR 1- INTERNAL-TIME-UNITS-PER-SECOND ALEXANDRIA:COMPOSE READTABLEP PATHNAME-TYPE COPY-READTABLE &AUX UNDEFINED-FUNCTION LISP-IMPLEMENTATION-TYPE PPRINT-TABULAR = ALEXANDRIA:SEQUENCE-OF-LENGTH-P *QUERY-IO* MACRO-FUNCTION SET DO-SYMBOLS TENTH DEFGENERIC MERGE-PATHNAMES ALEXANDRIA:REMOVEF CLRHASH MIN CONSTANTLY YES-OR-NO-P *PRINT-LEVEL* RENAME-PACKAGE NSTRING-UPCASE <= DEFINE-CONDITION VECTORP DPB ALEXANDRIA:ESWITCH RESTART-BIND ALEXANDRIA:ROTATE ALEXANDRIA:WITH-OUTPUT-TO-FILE CHAR> MAKE-DISPATCH-MACRO-CHARACTER LEAST-POSITIVE-SINGLE-FLOAT FIND-RESTART CTYPECASE ALEXANDRIA:NON-NEGATIVE-FLOAT-P * LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT CDADAR LISTEN ARRAY-RANK-LIMIT +++ UNION PPRINT-LINEAR MOST-NEGATIVE-SINGLE-FLOAT STABLE-SORT BOOLE-SET *PRINT-RADIX* FCEILING FOURTH CDAADR ALEXANDRIA:CONJOIN ARRAY-DIMENSION NULL ALEXANDRIA:NON-POSITIVE-FIXNUM-P ABS ALEXANDRIA:CIRCULAR-LIST-P MULTIPLE-VALUES-LIMIT ALEXANDRIA:NEGATIVE-SINGLE-FLOAT MACROLET LAMBDA-LIST-KEYWORDS ECASE *READTABLE* PRINT-UNREADABLE-OBJECT DECODE-FLOAT *DEFAULT-PATHNAME-DEFAULTS* DEFINE-SYMBOL-MACRO IGNORE-ERRORS SIMPLE-WARNING FORMATTER NSET-DIFFERENCE SIMPLE-BIT-VECTOR STRING/= POSITION >= STREAM-START-LINE-P DIGIT-CHAR PROGN UNBOUND-SLOT RETURN ALEXANDRIA:FEATUREP INPUT-STREAM-P MOST-POSITIVE-SHORT-FLOAT ALEXANDRIA:VARIANCE ATAN SORT CHAR-INT FILE-NAMESTRING STREAM-READ-LINE FUNDAMENTAL-INPUT-STREAM SOME FIXNUM CAADDR PATHNAME-MATCH-P SHORT-FLOAT-EPSILON CERROR NSTRING-CAPITALIZE STRING-GREATERP NTH-VALUE COMPILER-MACRO LIST* EVAL-WHEN PHASE METHOD-COMBINATION TERPRI DIRECTORY-NAMESTRING > ALEXANDRIA:POSITIVE-INTEGER ED ALEXANDRIA:REVERSEF BOOLE-IOR MOST-NEGATIVE-LONG-FLOAT TWO-WAY-STREAM PRINT-OBJECT ALEXANDRIA:NON-NEGATIVE-INTEGER LOGIOR VECTOR-POP STREAM-READ-CHAR METHOD-COMBINATION-ERROR *LOAD-TRUENAME* REMOVE-IF-NOT ALEXANDRIA:POSITIVE-DOUBLE-FLOAT-P EXP ALEXANDRIA:WITH-UNIQUE-NAMES ALEXANDRIA:POSITIVE-LONG-FLOAT BIT-VECTOR SLOT-UNBOUND NAME-CHAR DEFTYPE LEAST-NEGATIVE-LONG-FLOAT FLOAT-PRECISION OR STRING-STREAM ALEXANDRIA:RCURRY BYTE-POSITION ALEXANDRIA:DESTRUCTURING-ECASE FIRST DOTIMES PLUSP LISP-IMPLEMENTATION-VERSION LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT TAILP WILD-PATHNAME-P ROUND FUNCTION-LAMBDA-EXPRESSION ALEXANDRIA:NON-POSITIVE-SHORT-FLOAT-P READ-SEQUENCE MACHINE-INSTANCE CONSP SET-SYNTAX-FROM-CHAR ROTATEF *PRINT-LENGTH* USER-HOMEDIR-PATHNAME LOGANDC2 ALEXANDRIA:NON-POSITIVE-DOUBLE-FLOAT ALEXANDRIA:DELETE-FROM-PLISTF ALEXANDRIA:ENSURE-FUNCTIONF WITH-OPEN-STREAM UNSIGNED-BYTE LDB-TEST ALEXANDRIA:OF-TYPE BIT-IOR PPRINT-EXIT-IF-LIST-EXHAUSTED PPRINT-TAB FORCE-OUTPUT CAADR DO-EXTERNAL-SYMBOLS FUNCTION-KEYWORDS GENSYM PPRINT-NEWLINE MULTIPLE-VALUE-SETQ DEFVAR ALEXANDRIA:MAP-COMBINATIONS SET-EXCLUSIVE-OR OTHERWISE LEAST-POSITIVE-DOUBLE-FLOAT CLASS FLOOR METHOD-QUALIFIERS LENGTH POSITION-IF SUBST MEMBER-IF-NOT CDDAAR COMPUTE-APPLICABLE-METHODS SPECIAL-OPERATOR-P ALEXANDRIA:PARSE-ORDINARY-LAMBDA-LIST ++ STREAM-WRITE-BYTE CHAR-NOT-EQUAL ALEXANDRIA:GAUSSIAN-RANDOM CHAR-DOWNCASE SUBSETP COUNT-IF CHAR-NOT-GREATERP STYLE-WARNING BOOLE-ANDC2 RPLACA PATHNAME-NAME ALEXANDRIA:COUNT-PERMUTATIONS *PRINT-PPRINT-DISPATCH* PACKAGE-USE-LIST MAKE-STRING-INPUT-STREAM *READ-SUPPRESS* MAKE-LOAD-FORM READER-ERROR REVERSE BIGNUM TRANSLATE-LOGICAL-PATHNAME THIRD CELL-ERROR ALEXANDRIA:CURRY ALEXANDRIA:READ-STREAM-CONTENT-INTO-BYTE-VECTOR COUNT SBIT HANDLER-BIND RATIONALP ASINH ALEXANDRIA:DEFINE-CONSTANT FUNDAMENTAL-BINARY-INPUT-STREAM MULTIPLE-VALUE-CALL ALEXANDRIA:SUBFACTORIAL ALEXANDRIA:POSITIVE-INTEGER-P ALEXANDRIA:STRING-DESIGNATOR BIT-ANDC1 GETHASH SUBSTITUTE-IF DEFINE-METHOD-COMBINATION LOOP SHORT-FLOAT FILL-POINTER DEPOSIT-FIELD *PACKAGE* MAKE-TWO-WAY-STREAM ALEXANDRIA:NON-NEGATIVE-SHORT-FLOAT-P EXPT RPLACD STANDARD-CHAR &BODY STREAM-WRITE-CHAR USE-VALUE WRITE-BYTE FLET SHADOWING-IMPORT RESTART LEAST-POSITIVE-LONG-FLOAT CHAR-GREATERP INTERACTIVE-STREAM-P ACOSH PPRINT CHARACTER BREAK STRING>= ALEXANDRIA:BINOMIAL-COEFFICIENT DRIBBLE ENCODE-UNIVERSAL-TIME MINUSP ALEXANDRIA:COERCEF ACONS CONTROL-ERROR BOUNDP SECOND LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT MAKE-SEQUENCE WARN PEEK-CHAR BOOLE-C2 RESTART-CASE RETURN-FROM CADAAR KEYWORD WITH-CONDITION-RESTARTS SLEEP CAAAR PROG MAKE-PACKAGE ALEXANDRIA:NAMED-LAMBDA RASSOC ARRAY-ELEMENT-TYPE FLOAT-SIGN HASH-TABLE-REHASH-SIZE SHIFTF TIME ALEXANDRIA:POSITIVE-REAL SERIOUS-CONDITION SOFTWARE-VERSION PROVIDE LOCALLY CHAR-EQUAL ARRAY PSETF SATISFIES NSET-EXCLUSIVE-OR BOOLE-ANDC1 BIT-AND ASIN OPTIMIZE INVOKE-DEBUGGER TRACE PPRINT-LOGICAL-BLOCK ALEXANDRIA:COPY-STREAM DELETE-FILE TAN ALEXANDRIA:NEGATIVE-REAL-P ALEXANDRIA:NTH-VALUE-OR ALEXANDRIA:ARRAY-LENGTH ALEXANDRIA:EMPTYP NINTH MAPL ALEXANDRIA:NON-POSITIVE-SHORT-FLOAT ALEXANDRIA:DELETEF DEBUG BUTLAST NOTINLINE INCF STREAM-READ-BYTE BOOLE-NOR ALPHA-CHAR-P FILE-ERROR ADJOIN LEAST-NEGATIVE-SINGLE-FLOAT BOOLE-AND STANDARD-CLASS ALEXANDRIA:NON-NEGATIVE-SINGLE-FLOAT DO STRING-TRIM INVOKE-RESTART-INTERACTIVELY ** INSPECT CDAR NUMBERP LOOP-FINISH DELETE-IF-NOT MULTIPLE-VALUE-BIND BIT-ANDC2 RATIONAL MAKE-STRING-OUTPUT-STREAM ALEXANDRIA:NEGATIVE-LONG-FLOAT-P BIT-VECTOR-P COMPILE READ-PRESERVING-WHITESPACE NO-APPLICABLE-METHOD < REM PACKAGE-ERROR-PACKAGE PROBE-FILE ECHO-STREAM-OUTPUT-STREAM ALEXANDRIA:NEGATIVE-DOUBLE-FLOAT FFLOOR ALEXANDRIA:NEGATIVE-INTEGER SUBSEQ INTEGER-LENGTH LOAD-LOGICAL-PATHNAME-TRANSLATIONS COSH &OPTIONAL *MODULES* ALEXANDRIA:IGNORE-SOME-CONDITIONS ALEXANDRIA:REMOVE-FROM-PLISTF COPY-SEQ REMOVE-IF REALPART ASSOC-IF-NOT ENSURE-DIRECTORIES-EXIST NAMESTRING MAKE-CONCATENATED-STREAM PROG2 ALEXANDRIA:NON-POSITIVE-INTEGER SIXTH WRITE-SEQUENCE SYMBOL ALEXANDRIA:STARTS-WITH SCHAR ARRAY-ROW-MAJOR-INDEX LEAST-POSITIVE-SHORT-FLOAT STANDARD-METHOD ACOS ALEXANDRIA:WRITE-BYTE-VECTOR-INTO-FILE TYPEP ALEXANDRIA:MEAN STREAM-EXTERNAL-FORMAT ALEXANDRIA:ALIST-HASH-TABLE CLEAR-OUTPUT ALEXANDRIA:PROPER-SEQUENCE SYMBOL-MACROLET MOST-POSITIVE-LONG-FLOAT MACROEXPAND-1 BASE-CHAR ALPHANUMERICP MAKE-SYNONYM-STREAM VALUES GET-OUTPUT-STREAM-STRING &ENVIRONMENT RATIONALIZE BOOLE-C1 LEAST-NEGATIVE-SHORT-FLOAT &ALLOW-OTHER-KEYS BIT-NOT UNREAD-CHAR BIT-XOR DESCRIBE-OBJECT UPDATE-INSTANCE-FOR-DIFFERENT-CLASS THE ARRAYP ALEXANDRIA:SYMBOLICATE *LOAD-VERBOSE* MULTIPLE-VALUE-LIST CELL-ERROR-NAME COMPUTE-RESTARTS COMPLEX ALEXANDRIA:ENSURE-GETHASH MAP-INTO SPACE GET-UNIVERSAL-TIME SYMBOL-VALUE - FIND-ALL-SYMBOLS ALEXANDRIA:NON-NEGATIVE-LONG-FLOAT-P MEMBER GENERIC-FUNCTION Y-OR-N-P BYTE-SIZE *STANDARD-OUTPUT* LOGTEST CDAAR BOOLE-XOR HANDLER-CASE NREVERSE COPY-ALIST ALEXANDRIA:ONCE-ONLY CLASS-NAME SIMPLE-CONDITION-FORMAT-ARGUMENTS LOGEQV SHARED-INITIALIZE WITH-ACCESSORS HASH-TABLE FLOAT-RADIX SEARCH LEAST-POSITIVE-NORMALIZED-LONG-FLOAT ALEXANDRIA:PROPER-LIST-P COMPILER-MACRO-FUNCTION ARITHMETIC-ERROR MEMBER-IF MOST-NEGATIVE-FIXNUM PARSE-NAMESTRING PACKAGE-USED-BY-LIST ALEXANDRIA:NEGATIVE-SHORT-FLOAT MERGE CAAAAR PRIN1 UPGRADED-ARRAY-ELEMENT-TYPE SIGNED-BYTE MAPLIST ALEXANDRIA:POSITIVE-RATIONAL ALEXANDRIA:NEGATIVE-REAL BIT-NAND ALEXANDRIA:FORMAT-SYMBOL TWO-WAY-STREAM-INPUT-STREAM FLOATP PACKAGE-NICKNAMES REMOVE-METHOD CDAAAR STRING> MAKE-METHOD *READ-BASE* FILE-LENGTH CLASS-OF ROOM FRESH-LINE REPLACE ALEXANDRIA:SIMPLE-PARSE-ERROR *LOAD-PRINT* *RANDOM-STATE* ALEXANDRIA:NON-POSITIVE-FLOAT ALEXANDRIA:EXTREMUM *DEBUGGER-HOOK* ALEXANDRIA:NON-NEGATIVE-FIXNUM RANDOM DECF DECLAIM HASH-TABLE-P EVENP FIND-METHOD BLOCK COND ALEXANDRIA:NEGATIVE-RATIONAL-P MAKE-ARRAY READ-CHAR ALEXANDRIA:RANDOM-ELT SXHASH ALEXANDRIA:ENSURE-CONS FILE-WRITE-DATE DOUBLE-FLOAT-EPSILON BROADCAST-STREAM ALEXANDRIA:RASSOC-VALUE REMOVE-DUPLICATES CDADR NSUBLIS DIRECTORY EIGHTH READ-LINE GET-INTERNAL-RUN-TIME SHORT-FLOAT-NEGATIVE-EPSILON *ERROR-OUTPUT* MACHINE-VERSION SPLIT-SEQUENCE:SPLIT-SEQUENCE LDB DO-ALL-SYMBOLS CONDITION TYPE-ERROR-DATUM FILE-POSITION PATHNAME-DIRECTORY TAGBODY ALEXANDRIA:LERP POSITION-IF-NOT MAPHASH FORMAT ALEXANDRIA:NON-NEGATIVE-INTEGER-P INITIALIZE-INSTANCE BYTE WITH-PACKAGE-ITERATOR ALEXANDRIA:NEGATIVE-LONG-FLOAT READ-CHAR-NO-HANG COMPILATION-SPEED READ-FROM-STRING SPECIAL ALEXANDRIA:WHEN-LET* LOAD MISMATCH ALEXANDRIA:NEGATIVE-SHORT-FLOAT-P ALEXANDRIA:NON-POSITIVE-LONG-FLOAT NUNION *READ-DEFAULT-FLOAT-FORMAT* IMPORT LABELS BOOLE ALEXANDRIA:WITH-INPUT-FROM-FILE COMPILED-FUNCTION VECTOR ALEXANDRIA:IOTA DELETE-PACKAGE MOST-NEGATIVE-DOUBLE-FLOAT SINGLE-FLOAT ALEXANDRIA:SIMPLE-STYLE-WARNING IGNORABLE ALEXANDRIA:NEGATIVE-RATIONAL REMOVE ALEXANDRIA:REMOVE-FROM-PLIST CONJUGATE SLOT-VALUE NRECONC ALEXANDRIA:REQUIRED-ARGUMENT BIT-NOR ETYPECASE TYPE-ERROR-EXPECTED-TYPE ALEXANDRIA:WRITE-STRING-INTO-FILE LOGICAL-PATHNAME-TRANSLATIONS TANH RENAME-FILE LOGCOUNT MAKE-SYMBOL ALEXANDRIA:XOR ENSURE-GENERIC-FUNCTION CDDADR ALEXANDRIA:ENSURE-CAR ALEXANDRIA:COPY-HASH-TABLE LET READTABLE MACROEXPAND ALEXANDRIA:NON-POSITIVE-SINGLE-FLOAT-P STREAM-LINE-COLUMN CAAADR UNWIND-PROTECT *LOAD-PATHNAME* INTEGER WRITE-CHAR STREAM-FINISH-OUTPUT GET-PROPERTIES ALEXANDRIA:MAP-PERMUTATIONS ALEXANDRIA:POSITIVE-FIXNUM-P BOOLE-CLR EVERY TYPE-OF STRUCTURE-OBJECT LAST DEFPACKAGE NUMBER MAKE-CONDITION 1+ STRUCTURE-CLASS LONG-FLOAT ALEXANDRIA:ENSURE-LIST SETQ // COMPILE-FILE ALEXANDRIA:TYPE= *PRINT-BASE* STREAM-ERROR-STREAM LOGANDC1 PPRINT-FILL CHAR-CODE-LIMIT CONTINUE ALEXANDRIA:UNWIND-PROTECT-CASE WITH-INPUT-FROM-STRING ALEXANDRIA:CIRCULAR-TREE-P ALEXANDRIA:NON-NEGATIVE-DOUBLE-FLOAT-P STREAM-WRITE-SEQUENCE ALEXANDRIA:POSITIVE-FIXNUM CHAR<= ALEXANDRIA:LASTCAR ALEXANDRIA:NON-POSITIVE-REAL *PRINT-CASE* EQUALP FROUND NSTRING-DOWNCASE MAKE-HASH-TABLE ASSERT ALEXANDRIA:POSITIVE-FLOAT ALEXANDRIA:SWITCH STREAM-CLEAR-INPUT EXPORT APPEND CALL-ARGUMENTS-LIMIT ALEXANDRIA:MULTIPLE-VALUE-PROG2 DOLIST STRING-RIGHT-TRIM WITH-STANDARD-IO-SYNTAX ALEXANDRIA:LENGTH= CHAR CHAR>= *PRINT-PRETTY* GRAPHIC-CHAR-P FIND-SYMBOL NEXT-METHOD-P REQUIRE SIGNAL GCD PAIRLIS RANDOM-STATE BOTH-CASE-P LOWER-CASE-P CHECK-TYPE ALEXANDRIA:FIRST-ELT *PRINT-MISER-WIDTH* CONCATENATED-STREAM-STREAMS MAKE-INSTANCES-OBSOLETE SYMBOLP LONG-FLOAT-EPSILON READ-BYTE STREAM-ERROR SET-MACRO-CHARACTER ALEXANDRIA:MAKE-GENSYM-LIST PUSH PACKAGE-ERROR LOGNOT ALEXANDRIA:NON-NEGATIVE-REAL TYPECASE SINGLE-FLOAT-EPSILON ALEXANDRIA:NON-NEGATIVE-FLOAT &KEY AREF READTABLE-CASE PROGRAM-ERROR ALEXANDRIA:ENSURE-FUNCTION BIT-EQV ALEXANDRIA:NREVERSEF SEVENTH CONCATENATE STRUCTURE FLOATING-POINT-INVALID-OPERATION STRING-NOT-EQUAL DISASSEMBLE SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF CADAR MAKE-ECHO-STREAM CEILING ALEXANDRIA:NON-NEGATIVE-RATIONAL GET-DECODED-TIME STANDARD-CHAR-P ALEXANDRIA:NON-POSITIVE-FLOAT-P TREE-EQUAL *COMPILE-FILE-TRUENAME* WRITE-TO-STRING READ-DELIMITED-LIST LDIFF CDDAR *BREAK-ON-SIGNALS* ALEXANDRIA:PARSE-BODY METHOD RESTART-NAME FTYPE BIT-ORC2 INTEGERP NIL WITH-OPEN-FILE MAX DEFSTRUCT SIMPLE-VECTOR LAMBDA INTERN SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT ALEXANDRIA:MAXF *PRINT-READABLY* ARRAY-IN-BOUNDS-P ALEXANDRIA:COPY-ARRAY REDUCE MAKE-RANDOM-STATE PROG* NUMERATOR STANDARD-OBJECT INVALID-METHOD-ERROR SIMPLE-ARRAY CADADR *PRINT-ARRAY* ALEXANDRIA:POSITIVE-SINGLE-FLOAT SLOT-EXISTS-P MAPCAN BOOLEAN INLINE ALEXANDRIA:POSITIVE-DOUBLE-FLOAT CHAR-LESSP ALEXANDRIA:WHICHEVER DELETE WRITE-STRING HASH-TABLE-TEST STEP ALEXANDRIA:MAKE-KEYWORD ALEXANDRIA:MAP-IOTA ALEXANDRIA:NON-POSITIVE-LONG-FLOAT-P BOOLE-ORC1 ALEXANDRIA:DISJOIN ARRAY-DISPLACEMENT REINITIALIZE-INSTANCE CLOSE DOCUMENTATION SIMPLE-VECTOR-P WRITE-LINE SYMBOL-PACKAGE GET AND ZEROP ALEXANDRIA:NEGATIVE-FIXNUM-P CADDAR NTH CDADDR PROG1 *PRINT-LINES* CDR ODDP IDENTITY GET-MACRO-CHARACTER THROW ALEXANDRIA:NON-NEGATIVE-LONG-FLOAT STRING-LEFT-TRIM SET-PPRINT-DISPATCH SINH ARRAY-HAS-FILL-POINTER-P FILE-AUTHOR OPEN NSUBSTITUTE-IF APROPOS-LIST CHAR-CODE SIMPLE-CONDITION-FORMAT-CONTROL LOGNOR NSUBSTITUTE GET-DISPATCH-MACRO-CHARACTER STREAM-FORCE-OUTPUT ALEXANDRIA:NON-NEGATIVE-DOUBLE-FLOAT PRIN1-TO-STRING BROADCAST-STREAM-STREAMS SYMBOL-FUNCTION ATANH /// NSUBST-IF-NOT COPY-SYMBOL PROCLAIM STREAM ALEXANDRIA:NEGATIVE-FLOAT PATHNAME-VERSION SYMBOL-PLIST STREAM-LISTEN ALEXANDRIA:ENSURE-SYMBOL MOST-POSITIVE-SINGLE-FLOAT ARITHMETIC-ERROR-OPERANDS /= &REST ALEXANDRIA:POSITIVE-RATIONAL-P KEYWORDP LOGNAND LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT LIST PRINC-TO-STRING REVAPPEND IGNORE ALEXANDRIA:DESTRUCTURING-CASE WHEN CONS *DEBUG-IO* PACKAGE-SHADOWING-SYMBOLS FUNCTION COPY-PPRINT-DISPATCH ALEXANDRIA:MAKE-GENSYM STRINGP MACHINE-TYPE ALEXANDRIA:DOPLIST DO* OUTPUT-STREAM-P PACKAGE-NAME GET-SETF-EXPANSION *PRINT-GENSYM* FLOAT BOOLE-1 LOGORC2 SCALE-FLOAT ALEXANDRIA:STANDARD-DEVIATION OPEN-STREAM-P)
See also:
  The ANSI Standard, Macro COMMON-LISP:DEFPACKAGE
  The SBCL Manual, Variable SB-EXT:*ON-PACKAGE-VARIANCE*
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20211006-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
WARNING: redefining LOG4CL-IMPL:APPENDER-ADDED in DEFGENERIC
WARNING: redefining LOG4CL-IMPL:APPENDER-REMOVED in DEFGENERIC
WARNING: redefining LOG4CL-IMPL::PROPERTY-ALIST in DEFGENERIC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/unix-syscall-path-strings.lisp
; in: DEFUN SSTRING-TO-CSTRING
;     (LENGTH IOLIB/SYSCALLS::SSTRING)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (CHAR IOLIB/SYSCALLS::SSTRING IOLIB/SYSCALLS::I)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (CHAR IOLIB/SYSCALLS::SSTRING (INCF IOLIB/SYSCALLS::I))
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (LOOP :WITH IOLIB/SYSCALLS::LEN := (LENGTH IOLIB/SYSCALLS::SSTRING)
;           :WITH IOLIB/SYSCALLS::END-OFFSET := (1- IOLIB/SYSCALLS::LEN)
;           :FOR IOLIB/SYSCALLS::I :BELOW ...)
; --> BLOCK LET LET LET LET TAGBODY WHEN IF 
; ==>
;   (>= IOLIB/SYSCALLS::I #:LOOP-LIMIT-7)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.

; --> BLOCK LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (1+ IOLIB/SYSCALLS::I)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/unix-syscall-path-strings.lisp
; in: DEFUN COUNT-SSTRING-OCTETS
;     (LENGTH IOLIB/SYSCALLS::SSTRING)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (CHAR IOLIB/SYSCALLS::SSTRING IOLIB/SYSCALLS::I)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (LOOP :WITH IOLIB/SYSCALLS::LEN := (LENGTH IOLIB/SYSCALLS::SSTRING)
;           :WITH IOLIB/SYSCALLS::END-OFFSET := (1- IOLIB/SYSCALLS::LEN)
;           :FOR IOLIB/SYSCALLS::I :BELOW ...)
; --> BLOCK LET LET LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY WHEN IF 
; ==>
;   (>= IOLIB/SYSCALLS::I #:LOOP-LIMIT-1)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.

; --> BLOCK LET LET LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-2
;      (COND
;       ((ZEROP IOLIB/SYSCALLS::CODE)
;        (WHEN (< IOLIB/SYSCALLS::I IOLIB/SYSCALLS::END-OFFSET)
;          (INCF IOLIB/SYSCALLS::I))
;        1)
;       ((< IOLIB/SYSCALLS::CODE 128) 1) ((< IOLIB/SYSCALLS::CODE 2048) 2)
;       ((< IOLIB/SYSCALLS::CODE 65536) 3) ((< IOLIB/SYSCALLS::CODE 1114112) 4)))
; 
; 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 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> BLOCK LET LET LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY 
; --> SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (1+ IOLIB/SYSCALLS::I)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT STRERROR
;     (CFFI:WITH-FOREIGN-POINTER-AS-STRING ((IOLIB/SYSCALLS::BUF
;                                            IOLIB/SYSCALLS::BUFSIZ)
;                                           1024)
;       (IOLIB/SYSCALLS::%STRERROR IOLIB/SYSCALLS:ERRNO IOLIB/SYSCALLS::BUF
;        IOLIB/SYSCALLS::BUFSIZ))
; --> CFFI-SYS:WITH-FOREIGN-POINTER WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET 
; --> LET LET SYMBOL-MACROLET LET PROGN 
; ==>
;   (VALUES (CFFI:FOREIGN-STRING-TO-LISP IOLIB/SYSCALLS::BUF))
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFMETHOD PRINT-OBJECT
;     (COND
;      (IOLIB/SYSCALLS::MESSAGE
;       (FORMAT IOLIB/SYSCALLS::S "~A" IOLIB/SYSCALLS::MESSAGE))
;      (T
;       (FORMAT IOLIB/SYSCALLS::S "Syscall ~S signalled error ~A(~S) ~S"
;               IOLIB/SYSCALLS::SYSCALL IOLIB/SYSCALLS::IDENTIFIER
;               (OR IOLIB/SYSCALLS::CODE "[No code]")
;               (OR (IOLIB/SYSCALLS:STRERROR IOLIB/SYSCALLS::CODE)
;                   "[Can't get error string.]"))
;       (WHEN IOLIB/SYSCALLS::HANDLE
;         (FORMAT IOLIB/SYSCALLS::S " FD=~A" IOLIB/SYSCALLS::HANDLE))
;       (WHEN IOLIB/SYSCALLS::HANDLE2
;         (FORMAT IOLIB/SYSCALLS::S " FD2=~A" IOLIB/SYSCALLS::HANDLE2))))
; --> IF 
; ==>
;   (FORMAT IOLIB/SYSCALLS::S "~A"
;           (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G1 'IOLIB/SYSCALLS::MESSAGE)
;                                   (SB-PCL::ACCESSOR-SLOT-VALUE #:G1
;                                                                'IOLIB/SYSCALLS::MESSAGE)))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a NULL.

; --> IF THE PROGN 
; ==>
;   (FORMAT IOLIB/SYSCALLS::S "Syscall ~S signalled error ~A(~S) ~S"
;           (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G1 'IOLIB/SYSCALLS::SYSCALL)
;                                   (SB-PCL::ACCESSOR-SLOT-VALUE #:G1
;                                                                'IOLIB/SYSCALLS::SYSCALL))
;           (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G1 'IOLIB/SYSCALLS::IDENTIFIER)
;                                   (SB-PCL::ACCESSOR-SLOT-VALUE #:G1
;                                                                'IOLIB/SYSCALLS::IDENTIFIER))
;           (SB-C::WITH-SOURCE-FORM (OR IOLIB/SYSCALLS::CODE "[No code]")
;                                   (LET ((#:G2 #))
;                                     (IF #:G2
;                                         #:G2
;                                         "[No code]")))
;           (SB-C::WITH-SOURCE-FORM
;            (OR (IOLIB/SYSCALLS:STRERROR IOLIB/SYSCALLS::CODE)
;                "[Can't get error string.]")
;            (LET ((#:G3 #))
;              (IF #:G3
;                  #:G3
;                  "[Can't get error string.]"))))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a NULL.

;     (WHEN IOLIB/SYSCALLS::HANDLE
;       (FORMAT IOLIB/SYSCALLS::S " FD=~A" IOLIB/SYSCALLS::HANDLE))
; --> IF 
; ==>
;   (FORMAT IOLIB/SYSCALLS::S " FD=~A"
;           (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G1 'IOLIB/SYSCALLS::HANDLE)
;                                   (SB-PCL::ACCESSOR-SLOT-VALUE #:G1
;                                                                'IOLIB/SYSCALLS::HANDLE)))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a NULL.

;     (WHEN IOLIB/SYSCALLS::HANDLE2
;       (FORMAT IOLIB/SYSCALLS::S " FD2=~A" IOLIB/SYSCALLS::HANDLE2))
; --> IF 
; ==>
;   (FORMAT IOLIB/SYSCALLS::S " FD2=~A"
;           (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G1 'IOLIB/SYSCALLS::HANDLE2)
;                                   (SB-PCL::ACCESSOR-SLOT-VALUE #:G1
;                                                                'IOLIB/SYSCALLS::HANDLE2)))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING COMMON-LISP:BOOLEAN STREAM), not a NULL.

;     (OR (IOLIB/SYSCALLS:STRERROR IOLIB/SYSCALLS::CODE)
;         "[Can't get error string.]")
; --> LET IOLIB/SYSCALLS:STRERROR BLOCK MACROLET LET 
; --> CFFI:WITH-FOREIGN-POINTER-AS-STRING CFFI-SYS:WITH-FOREIGN-POINTER 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET 
; --> PROGN 
; ==>
;   (VALUES (CFFI:FOREIGN-STRING-TO-LISP IOLIB/SYSCALLS::BUF))
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFCFUN (MEMSET "memset")
;     (CFFI:DEFCFUN (IOLIB/SYSCALLS:MEMSET "memset")
;         :POINTER
;       "Fill the first COUNT bytes of BUFFER with the constant VALUE."
;       (IOLIB/SYSCALLS::BUFFER :POINTER)
;       (IOLIB/SYSCALLS::VALUE :INT)
;       (COUNT IOLIB/SYSCALLS:SIZE-T))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MEMSET
;         (IOLIB/SYSCALLS::BUFFER IOLIB/SYSCALLS::VALUE COUNT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Fill the first COUNT bytes of BUFFER with the constant VALUE."
;       (BLOCK IOLIB/SYSCALLS:MEMSET
;         (LET ((#:G0 IOLIB/SYSCALLS::BUFFER))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFCFUN (MEMCPY "memcpy")
;     (CFFI:DEFCFUN (IOLIB/SYSCALLS:MEMCPY "memcpy")
;         :POINTER
;       "Copy COUNT octets from SRC to DEST.
;   The two memory areas must not overlap."
;       (IOLIB/SYSCALLS::DEST :POINTER)
;       (IOLIB/SYSCALLS::SRC :POINTER)
;       (COUNT IOLIB/SYSCALLS:SIZE-T))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MEMCPY
;         (IOLIB/SYSCALLS::DEST IOLIB/SYSCALLS::SRC COUNT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Copy COUNT octets from SRC to DEST.
; The two memory areas must not overlap."
;       (BLOCK IOLIB/SYSCALLS:MEMCPY
;         (LET ((#:G0 IOLIB/SYSCALLS::DEST))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFCFUN (MEMMOVE "memmove")
;     (CFFI:DEFCFUN (IOLIB/SYSCALLS:MEMMOVE "memmove")
;         :POINTER
;       "Copy COUNT octets from SRC to DEST.
;   The two memory areas may overlap."
;       (IOLIB/SYSCALLS::DEST :POINTER)
;       (IOLIB/SYSCALLS::SRC :POINTER)
;       (COUNT IOLIB/SYSCALLS:SIZE-T))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MEMMOVE
;         (IOLIB/SYSCALLS::DEST IOLIB/SYSCALLS::SRC COUNT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Copy COUNT octets from SRC to DEST.
; The two memory areas may overlap."
;       (BLOCK IOLIB/SYSCALLS:MEMMOVE
;         (LET ((#:G0 IOLIB/SYSCALLS::DEST))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (LSEEK "lfp_lseek")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:LSEEK "lfp_lseek")
;         (IOLIB/SYSCALLS:OFF-T :HANDLE IOLIB/SYSCALLS:FD)
;       "Reposition the offset of the open file associated with the file descriptor FD
;   to the argument OFFSET according to the directive WHENCE."
;       (IOLIB/SYSCALLS:FD :INT)
;       (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T)
;       (IOLIB/SYSCALLS::WHENCE :INT))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:LSEEK
;         (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS::WHENCE)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Reposition the offset of the open file associated with the file descriptor FD
; to the argument OFFSET according to the directive WHENCE."
;       (BLOCK IOLIB/SYSCALLS:LSEEK
;         (LET ((#:G0 IOLIB/SYSCALLS:FD))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (%READLINK "readlink")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%READLINK "readlink")
;         IOLIB/SYSCALLS:SSIZE-T
;       (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::SSTRING)
;       (IOLIB/SYSCALLS::BUF :POINTER)
;       (IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS:SIZE-T))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS::%READLINK
;         (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK IOLIB/SYSCALLS::%READLINK
;         (MULTIPLE-VALUE-BIND (#:G0 #:PARAM6)
;             (CFFI:TRANSLATE-TO-FOREIGN IOLIB/SYSCALLS::PATH
;                                        #<IOLIB/SYSCALLS::CSTRING-TYPE {1020FDC453}>)
;           (UNWIND-PROTECT (PROGN #)
;             (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM6)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT READLINK
;     (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS::BUF COUNT)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (%REALPATH "realpath")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%REALPATH "realpath")
;         IOLIB/SYSCALLS::SSTRING
;       (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::SSTRING)
;       (IOLIB/SYSCALLS::RESOLVED-PATH :POINTER))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT FLET BLOCK BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET LET* 
; --> CFFI:CONVERT-FROM-FOREIGN 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN
;    (CFFI-SYS:%FOREIGN-FUNCALL "realpath" (:POINTER #:G0 :POINTER #:G1 :POINTER)
;                               :CONVENTION :CDECL :LIBRARY :DEFAULT)
;    #<IOLIB/SYSCALLS::CSTRING-TYPE {102128E823}>)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT REALPATH
;     (IOLIB/SYSCALLS::%REALPATH IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::BUF)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT 
; --> FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET LET* 
; --> CFFI:CONVERT-FROM-FOREIGN 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN
;    (CFFI-SYS:%FOREIGN-FUNCALL "realpath" (:POINTER #:G0 :POINTER #:G1 :POINTER)
;                               :CONVENTION :CDECL :LIBRARY :DEFAULT)
;    #<IOLIB/SYSCALLS::CSTRING-TYPE {10213C7563}>)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (READ "read")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:READ "read")
;         (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD)
;       "Read at most COUNT bytes from FD into the foreign area BUF."
;       (IOLIB/SYSCALLS:FD :INT)
;       (IOLIB/SYSCALLS::BUF :POINTER)
;       (COUNT IOLIB/SYSCALLS:SIZE-T))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:READ
;         (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Read at most COUNT bytes from FD into the foreign area BUF."
;       (BLOCK IOLIB/SYSCALLS:READ
;         (LET ((#:G0 IOLIB/SYSCALLS:FD))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (WRITE "write")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:WRITE "write")
;         (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD)
;       "Write at most COUNT bytes to FD from the foreign area BUF."
;       (IOLIB/SYSCALLS:FD :INT)
;       (IOLIB/SYSCALLS::BUF :POINTER)
;       (COUNT IOLIB/SYSCALLS:SIZE-T))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:WRITE
;         (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Write at most COUNT bytes to FD from the foreign area BUF."
;       (BLOCK IOLIB/SYSCALLS:WRITE
;         (LET ((#:G0 IOLIB/SYSCALLS:FD))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (READV "readv")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:READV "readv")
;         (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD)
;       "Read from FD into the first IOVCNT buffers of the IOV array."
;       (IOLIB/SYSCALLS:FD :INT)
;       (IOLIB/SYSCALLS::IOV :POINTER)
;       (IOLIB/SYSCALLS::IOVCNT :INT))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:READV
;         (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::IOV IOLIB/SYSCALLS::IOVCNT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Read from FD into the first IOVCNT buffers of the IOV array."
;       (BLOCK IOLIB/SYSCALLS:READV
;         (LET ((#:G0 IOLIB/SYSCALLS:FD))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (WRITEV "writev")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:WRITEV "writev")
;         (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD)
;       "Writes to FD the first IOVCNT buffers of the IOV array."
;       (IOLIB/SYSCALLS:FD :INT)
;       (IOLIB/SYSCALLS::IOV :POINTER)
;       (IOLIB/SYSCALLS::IOVCNT :INT))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:WRITEV
;         (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::IOV IOLIB/SYSCALLS::IOVCNT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Writes to FD the first IOVCNT buffers of the IOV array."
;       (BLOCK IOLIB/SYSCALLS:WRITEV
;         (LET ((#:G0 IOLIB/SYSCALLS:FD))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (PREAD "lfp_pread")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:PREAD "lfp_pread")
;         (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD)
;       "Read at most COUNT bytes from FD at offset OFFSET into the foreign area BUF."
;       (IOLIB/SYSCALLS:FD :INT)
;       (IOLIB/SYSCALLS::BUF :POINTER)
;       (COUNT IOLIB/SYSCALLS:SIZE-T)
;       (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:PREAD
;         (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT IOLIB/SYSCALLS::OFFSET)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Read at most COUNT bytes from FD at offset OFFSET into the foreign area BUF."
;       (BLOCK IOLIB/SYSCALLS:PREAD
;         (LET ((#:G0 IOLIB/SYSCALLS:FD))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (PWRITE "lfp_pwrite")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:PWRITE "lfp_pwrite")
;         (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS:FD)
;       "Write at most COUNT bytes to FD at offset OFFSET from the foreign area BUF."
;       (IOLIB/SYSCALLS:FD :INT)
;       (IOLIB/SYSCALLS::BUF :POINTER)
;       (COUNT IOLIB/SYSCALLS:SIZE-T)
;       (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:PWRITE
;         (IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::BUF COUNT IOLIB/SYSCALLS::OFFSET)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Write at most COUNT bytes to FD at offset OFFSET from the foreign area BUF."
;       (BLOCK IOLIB/SYSCALLS:PWRITE
;         (LET ((#:G0 IOLIB/SYSCALLS:FD))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (SENDFILE "lfp_sendfile")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::SENDFILE "lfp_sendfile")
;         (IOLIB/SYSCALLS:SSIZE-T :RESTART T :HANDLE IOLIB/SYSCALLS::INFD :HANDLE2
;          IOLIB/SYSCALLS::OUTFD)
;       (IOLIB/SYSCALLS::INFD :INT)
;       (IOLIB/SYSCALLS::OUTFD :INT)
;       (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T)
;       (IOLIB/SYSCALLS::NBYTES IOLIB/SYSCALLS:SIZE-T))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS::SENDFILE
;         (IOLIB/SYSCALLS::INFD IOLIB/SYSCALLS::OUTFD IOLIB/SYSCALLS::OFFSET
;          IOLIB/SYSCALLS::NBYTES)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK IOLIB/SYSCALLS::SENDFILE
;         (LET ((#:G0 IOLIB/SYSCALLS::INFD))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFINE-C-STRUCT-WRAPPER STAT
;     (CFFI:DEFINE-C-STRUCT-WRAPPER IOLIB/SYSCALLS:STAT NIL)
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK SB-C::WITH-SOURCE-FORM 
; --> CFFI:WITH-FOREIGN-SLOTS LET SYMBOL-MACROLET SB-C::WITH-SOURCE-FORM SETF 
; --> SB-C::WITH-SOURCE-FORM SB-PCL::SET-SLOT-VALUE 
; --> SB-PCL::OPTIMIZED-SET-SLOT-VALUE LET SB-PCL::INSTANCE-WRITE 
; --> SB-PCL::ACCESSOR-SET-SLOT-VALUE LET 
; ==>
;   (FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL IOLIB/SYSCALLS:DEV SB-PCL::WRITER)
;            SB-PCL::.NEW-VALUE. CFFI::INST)
; 
; note: doing unsigned word to integer coercion (cost 20)

; ==>
;   (FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL IOLIB/SYSCALLS:INO SB-PCL::WRITER)
;            SB-PCL::.NEW-VALUE. CFFI::INST)
; 
; note: doing unsigned word to integer coercion (cost 20)

; ==>
;   (FUNCALL
;    #'(SB-PCL::SLOT-ACCESSOR :GLOBAL IOLIB/SYSCALLS:NLINK SB-PCL::WRITER)
;    SB-PCL::.NEW-VALUE. CFFI::INST)
; 
; note: doing unsigned word to integer coercion (cost 20)

; ==>
;   (FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL IOLIB/SYSCALLS:RDEV SB-PCL::WRITER)
;            SB-PCL::.NEW-VALUE. CFFI::INST)
; 
; note: doing unsigned word to integer coercion (cost 20)

; ==>
;   (FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL IOLIB/SYSCALLS:SIZE SB-PCL::WRITER)
;            SB-PCL::.NEW-VALUE. CFFI::INST)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (FUNCALL
;    #'(SB-PCL::SLOT-ACCESSOR :GLOBAL IOLIB/SYSCALLS:BLKSIZE SB-PCL::WRITER)
;    SB-PCL::.NEW-VALUE. CFFI::INST)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (FUNCALL
;    #'(SB-PCL::SLOT-ACCESSOR :GLOBAL IOLIB/SYSCALLS:BLOCKS SB-PCL::WRITER)
;    SB-PCL::.NEW-VALUE. CFFI::INST)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (FUNCALL
;    #'(SB-PCL::SLOT-ACCESSOR :GLOBAL IOLIB/SYSCALLS:ATIME SB-PCL::WRITER)
;    SB-PCL::.NEW-VALUE. CFFI::INST)
; 
; note: doing signed word to integer coercion (cost 20)

; ==>
;   (FUNCALL
;    #'(SB-PCL::SLOT-ACCESSOR :GLOBAL IOLIB/SYSCALLS:MTIME SB-PCL::WRITER)
;    SB-PCL::.NEW-VALUE. CFFI::INST)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK SB-C::WITH-SOURCE-FORM 
; --> CFFI:WITH-FOREIGN-SLOTS LET SYMBOL-MACROLET SB-C::WITH-SOURCE-FORM SETF 
; --> SB-C::WITH-SOURCE-FORM SB-PCL::SET-SLOT-VALUE 
; --> SB-PCL::OPTIMIZED-SET-SLOT-VALUE LET IOLIB/SYSCALLS:CTIME 
; --> CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF CFFI-SYS:%MEM-REF 
; ==>
;   (SB-SYS:SIGNED-SAP-REF-64 #:PTR0 104)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of SIGNED-SAP-REF-64-C

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT FUNCALL-STAT
;     (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::BUF)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function

;     (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::BUF '(:STRUCT IOLIB/SYSCALLS:STAT))
;       (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::BUF)
;       (MAKE-INSTANCE 'IOLIB/SYSCALLS:STAT :POINTER IOLIB/SYSCALLS::BUF))
; --> CFFI-SYS:WITH-FOREIGN-POINTER WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET 
; --> LET LET 
; ==>
;   (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
;    '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY (UNSIGNED 8)
;                                                              144)>)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of ALLOC-ALIEN-STACK-SPACE

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT STAT
;     (IOLIB/SYSCALLS::FUNCALL-STAT #'IOLIB/SYSCALLS::%STAT IOLIB/SYSCALLS::PATH)
; --> BLOCK MACROLET CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET 
; ==>
;   (MAKE-INSTANCE 'IOLIB/SYSCALLS:STAT :POINTER IOLIB/SYSCALLS::BUF)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT FSTAT
;     (IOLIB/SYSCALLS::FUNCALL-STAT #'IOLIB/SYSCALLS::%FSTAT IOLIB/SYSCALLS:FD)
; --> BLOCK MACROLET CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET 
; ==>
;   (MAKE-INSTANCE 'IOLIB/SYSCALLS:STAT :POINTER IOLIB/SYSCALLS::BUF)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT LSTAT
;     (IOLIB/SYSCALLS::FUNCALL-STAT #'IOLIB/SYSCALLS::%LSTAT IOLIB/SYSCALLS::PATH)
; --> BLOCK MACROLET CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET 
; ==>
;   (MAKE-INSTANCE 'IOLIB/SYSCALLS:STAT :POINTER IOLIB/SYSCALLS::BUF)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (%GETCWD "getcwd")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%GETCWD "getcwd")
;         :POINTER
;       (IOLIB/SYSCALLS::BUF :POINTER)
;       (IOLIB/SYSCALLS:SIZE IOLIB/SYSCALLS:SIZE-T))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS::%GETCWD
;         (IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS:SIZE)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK IOLIB/SYSCALLS::%GETCWD
;         (LET ((#:G0 IOLIB/SYSCALLS::BUF))
;           (LET (#)
;             (LET* #
;               #)))))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT GETCWD
;     (IOLIB/SYSCALLS:WITH-CSTRING-TO-SSTRING (IOLIB/SYSCALLS::BUF
;                                              IOLIB/SYSCALLS:+CSTRING-PATH-MAX+
;                                              IOLIB/SYSCALLS::BUFSIZE)
;       (IOLIB/SYSCALLS::%GETCWD IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE))
; --> CFFI-SYS:WITH-FOREIGN-POINTER WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET 
; --> LET LET SYMBOL-MACROLET LET PROGN 
; ==>
;   (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS::BUF
;                                      IOLIB/SYSCALLS::BUFSIZE)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (%MKDTEMP "mkdtemp")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS::%MKDTEMP "mkdtemp")
;         IOLIB/SYSCALLS::SSTRING
;       (IOLIB/SYSCALLS::TEMPLATE IOLIB/SYSCALLS::SSTRING))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT FLET BLOCK BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET* CFFI:CONVERT-FROM-FOREIGN 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN
;    (CFFI-SYS:%FOREIGN-FUNCALL "mkdtemp" (:POINTER #:G0 :POINTER) :CONVENTION
;                               :CDECL :LIBRARY :DEFAULT)
;    #<IOLIB/SYSCALLS::CSTRING-TYPE {1023AC9293}>)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT MKDTEMP
;     (IOLIB/SYSCALLS::%MKDTEMP IOLIB/SYSCALLS::TEMPLATE)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT 
; --> FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET* 
; --> CFFI:CONVERT-FROM-FOREIGN 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN
;    (CFFI-SYS:%FOREIGN-FUNCALL "mkdtemp" (:POINTER #:G0 :POINTER) :CONVENTION
;                               :CDECL :LIBRARY :DEFAULT)
;    #<IOLIB/SYSCALLS::CSTRING-TYPE {1023BE9BF3}>)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (FD-CLOEXEC-P "lfp_is_fd_cloexec")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-CLOEXEC-P "lfp_is_fd_cloexec")
;         IOLIB/SYSCALLS:BOOL-DESIGNATOR
;       (IOLIB/SYSCALLS:FD :INT))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF 
; ==>
;   (MINUSP #:RETVAL1)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a T, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (FD-NONBLOCK-P "lfp_is_fd_nonblock")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-NONBLOCK-P "lfp_is_fd_nonblock")
;         IOLIB/SYSCALLS:BOOL-DESIGNATOR
;       (IOLIB/SYSCALLS:FD :INT))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF 
; ==>
;   (MINUSP #:RETVAL1)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a T, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (FD-OPEN-P "lfp_is_fd_open")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-OPEN-P "lfp_is_fd_open")
;         IOLIB/SYSCALLS:BOOL-DESIGNATOR
;       (IOLIB/SYSCALLS:FD :INT))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF 
; ==>
;   (MINUSP #:RETVAL1)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a T, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (FD-TTY-P "isatty")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:FD-TTY-P "isatty")
;         IOLIB/SYSCALLS:BOOL-DESIGNATOR
;       (IOLIB/SYSCALLS:FD :INT))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET LET* IF 
; ==>
;   (MINUSP #:RETVAL1)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a T, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT PTSNAME
;     (CFFI:FOREIGN-STRING-TO-LISP IOLIB/SYSCALLS::BUF)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFCFUN (CMSG.FIRSTHDR "lfp_cmsg_firsthdr")
;     (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.FIRSTHDR "lfp_cmsg_firsthdr")
;         :POINTER
;       (IOLIB/SYSCALLS::MSGH :POINTER))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.FIRSTHDR
;         (IOLIB/SYSCALLS::MSGH)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK IOLIB/SYSCALLS:CMSG.FIRSTHDR
;         (LET ((#:G0 IOLIB/SYSCALLS::MSGH))
;           (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_firsthdr"
;                                      (:POINTER #:G0 :POINTER) :CONVENTION
;                                      :CDECL :LIBRARY :DEFAULT))))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFCFUN (CMSG.NXTHDR "lfp_cmsg_nxthdr")
;     (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.NXTHDR "lfp_cmsg_nxthdr")
;         :POINTER
;       (IOLIB/SYSCALLS::MSGH :POINTER)
;       (IOLIB/SYSCALLS::CMSG :POINTER))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.NXTHDR
;         (IOLIB/SYSCALLS::MSGH IOLIB/SYSCALLS::CMSG)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK IOLIB/SYSCALLS:CMSG.NXTHDR
;         (LET ((#:G0 IOLIB/SYSCALLS::MSGH))
;           (LET (#)
;             (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_nxthdr" # :CONVENTION :CDECL
;                                        :LIBRARY :DEFAULT)))))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFCFUN (CMSG.SPACE "lfp_cmsg_space")
;     (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.SPACE "lfp_cmsg_space")
;         IOLIB/SYSCALLS:SIZE-T
;       (LENGTH IOLIB/SYSCALLS:SIZE-T))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.SPACE
;         (LENGTH)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK IOLIB/SYSCALLS:CMSG.SPACE
;         (LET ((#:G0 LENGTH))
;           (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_space"
;                                      (:UNSIGNED-LONG #:G0 :UNSIGNED-LONG)
;                                      :CONVENTION :CDECL :LIBRARY :DEFAULT))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFCFUN (CMSG.LEN "lfp_cmsg_len")
;     (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.LEN "lfp_cmsg_len")
;         IOLIB/SYSCALLS:SIZE-T
;       (LENGTH IOLIB/SYSCALLS:SIZE-T))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.LEN
;         (LENGTH)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK IOLIB/SYSCALLS:CMSG.LEN
;         (LET ((#:G0 LENGTH))
;           (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_len"
;                                      (:UNSIGNED-LONG #:G0 :UNSIGNED-LONG)
;                                      :CONVENTION :CDECL :LIBRARY :DEFAULT))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFCFUN (CMSG.DATA "lfp_cmsg_data")
;     (CFFI:DEFCFUN (IOLIB/SYSCALLS:CMSG.DATA "lfp_cmsg_data")
;         :POINTER
;       (IOLIB/SYSCALLS::CMSG :POINTER))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CMSG.DATA
;         (IOLIB/SYSCALLS::CMSG)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK IOLIB/SYSCALLS:CMSG.DATA
;         (LET ((#:G0 IOLIB/SYSCALLS::CMSG))
;           (CFFI-SYS:%FOREIGN-FUNCALL "lfp_cmsg_data" (:POINTER #:G0 :POINTER)
;                                      :CONVENTION :CDECL :LIBRARY :DEFAULT))))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (OPENDIR "opendir")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:OPENDIR "opendir")
;         :POINTER
;       "Open directory PATH for listing of its contents."
;       (IOLIB/SYSCALLS::PATH IOLIB/SYSCALLS::SSTRING))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:OPENDIR
;         (IOLIB/SYSCALLS::PATH)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Open directory PATH for listing of its contents."
;       (BLOCK IOLIB/SYSCALLS:OPENDIR
;         (MULTIPLE-VALUE-BIND (#:G0 #:PARAM4)
;             (CFFI:TRANSLATE-TO-FOREIGN IOLIB/SYSCALLS::PATH
;                                        #<IOLIB/SYSCALLS::CSTRING-TYPE {1025F35183}>)
;           (UNWIND-PROTECT (PROGN #)
;             (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM4)))))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT READDIR
;     (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS:NAME)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (VALUES (IOLIB/SYSCALLS:CSTRING-TO-SSTRING IOLIB/SYSCALLS:NAME) TYPE
;             IOLIB/SYSCALLS:FILENO)
; 
; note: doing unsigned word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (TELLDIR "telldir")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:TELLDIR "telldir")
;         IOLIB/SYSCALLS:OFF-T
;       "Return the current location in directory DIR."
;       (IOLIB/SYSCALLS::DIRP :POINTER))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:TELLDIR
;         (IOLIB/SYSCALLS::DIRP)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Return the current location in directory DIR."
;       (BLOCK IOLIB/SYSCALLS:TELLDIR
;         (LET ((#:G0 IOLIB/SYSCALLS::DIRP))
;           (LET* (# #)
;             (IF #
;                 #
;                 #:RETVAL1)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (MMAP "lfp_mmap")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:MMAP "lfp_mmap")
;         (:POINTER :HANDLE IOLIB/SYSCALLS:FD)
;       #<(SIMPLE-ARRAY CHARACTER
;          (284)) Map file referenced by FD at offset OFFSET into address space of the
;   calling process at address ADDR and length LENGTH.
;   PROT describes the desired memory protection of the mapping.
;   FLAGS determines wh... {10264488BF}>
;       (IOLIB/SYSCALLS::ADDR :POINTER)
;       (LENGTH IOLIB/SYSCALLS:SIZE-T)
;       (IOLIB/SYSCALLS::PROT :INT)
;       (IOLIB/SYSCALLS::FLAGS :INT)
;       (IOLIB/SYSCALLS:FD :INT)
;       (IOLIB/SYSCALLS::OFFSET IOLIB/SYSCALLS:OFF-T))
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:MMAP
;         (IOLIB/SYSCALLS::ADDR LENGTH IOLIB/SYSCALLS::PROT IOLIB/SYSCALLS::FLAGS
;          IOLIB/SYSCALLS:FD IOLIB/SYSCALLS::OFFSET)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       #<(SIMPLE-ARRAY CHARACTER
;          (284)) Map file referenced by FD at offset OFFSET into address space of the
; calling process at address ADDR and length LENGTH.
; PROT describes the desired memory protection of the mapping.
; FLAGS determines wh... {10264488BF}>
;       (BLOCK IOLIB/SYSCALLS:MMAP
;         (LET ((#:G0 IOLIB/SYSCALLS::ADDR))
;           (LET (#)
;             (LET #
;               #)))))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT GETRLIMIT
;     (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:GETRLIMIT
;         (IOLIB/SYSCALLS::RESOURCE)
;       "Return soft and hard limit of system resource RESOURCE."
;       (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RL
;                                  '(:STRUCT IOLIB/SYSCALLS:RLIMIT))
;         (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:CUR MAX) IOLIB/SYSCALLS::RL
;                                   (:STRUCT IOLIB/SYSCALLS:RLIMIT))
;           (IOLIB/SYSCALLS::%GETRLIMIT IOLIB/SYSCALLS::RESOURCE IOLIB/SYSCALLS::RL)
;           (VALUES IOLIB/SYSCALLS:CUR MAX))))
; --> PROGN IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:GETRLIMIT
;         (IOLIB/SYSCALLS::RESOURCE)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Return soft and hard limit of system resource RESOURCE."
;       (BLOCK IOLIB/SYSCALLS:GETRLIMIT
;         (MACROLET ((IOLIB/BASE:RETURN* #
;                      `#))
;           (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RL '#)
;             (CFFI:WITH-FOREIGN-SLOTS #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT GETRUSAGE
;     (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:GETRUSAGE
;         (IOLIB/SYSCALLS::WHO)
;       "Return resource usage measures of WHO."
;       (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RU
;                                  '(:STRUCT IOLIB/SYSCALLS:RUSAGE))
;         (IOLIB/SYSCALLS::%GETRUSAGE IOLIB/SYSCALLS::WHO IOLIB/SYSCALLS::RU)
;         (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:MAXRSS IOLIB/SYSCALLS:IXRSS
;                                    IOLIB/SYSCALLS:IDRSS IOLIB/SYSCALLS:ISRSS
;                                    IOLIB/SYSCALLS:MINFLT IOLIB/SYSCALLS:MAJFLT
;                                    IOLIB/SYSCALLS:NSWAP IOLIB/SYSCALLS:INBLOCK
;                                    IOLIB/SYSCALLS::OUBLOCK IOLIB/SYSCALLS:MSGSND
;                                    IOLIB/SYSCALLS:MSGRCV IOLIB/SYSCALLS:NSIGNALS
;                                    ...)
;                                   IOLIB/SYSCALLS::RU
;                                   (:STRUCT IOLIB/SYSCALLS:RUSAGE))
;           (VALUES (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:SEC)
;                   (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:USEC)
;                   (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:SEC)
;                   (CFFI:FOREIGN-SLOT-VALUE # '# 'IOLIB/SYSCALLS:USEC)
;                   IOLIB/SYSCALLS:MAXRSS IOLIB/SYSCALLS:IXRSS IOLIB/SYSCALLS:IDRSS
;                   IOLIB/SYSCALLS:ISRSS IOLIB/SYSCALLS:MINFLT
;                   IOLIB/SYSCALLS:MAJFLT IOLIB/SYSCALLS:NSWAP ...))))
; --> PROGN IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:GETRUSAGE
;         (IOLIB/SYSCALLS::WHO)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Return resource usage measures of WHO."
;       (BLOCK IOLIB/SYSCALLS:GETRUSAGE
;         (MACROLET ((IOLIB/BASE:RETURN* #
;                      `#))
;           (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::RU '#)
;             (IOLIB/SYSCALLS::%GETRUSAGE IOLIB/SYSCALLS::WHO IOLIB/SYSCALLS::RU)
;             (CFFI:WITH-FOREIGN-SLOTS #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT CLOCK-GETRES
;     (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:CLOCK-GETRES
;         (IOLIB/SYSCALLS::CLOCK-ID)
;       (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS
;                                  '(:STRUCT IOLIB/SYSCALLS:TIMESPEC))
;         (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC)
;                                   IOLIB/SYSCALLS::TS
;                                   (:STRUCT IOLIB/SYSCALLS:TIMESPEC))
;           (IOLIB/SYSCALLS::%CLOCK-GETRES IOLIB/SYSCALLS::CLOCK-ID
;            IOLIB/SYSCALLS::TS)
;           (VALUES IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC))))
; --> PROGN IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CLOCK-GETRES
;         (IOLIB/SYSCALLS::CLOCK-ID)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK IOLIB/SYSCALLS:CLOCK-GETRES
;         (MACROLET ((IOLIB/BASE:RETURN* #
;                      `#))
;           (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS '#)
;             (CFFI:WITH-FOREIGN-SLOTS #
;               #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT CLOCK-GETTIME
;     (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:CLOCK-GETTIME
;         (IOLIB/SYSCALLS::CLOCK-ID)
;       "Returns the time of the clock CLOCKID."
;       (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS
;                                  '(:STRUCT IOLIB/SYSCALLS:TIMESPEC))
;         (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC)
;                                   IOLIB/SYSCALLS::TS
;                                   (:STRUCT IOLIB/SYSCALLS:TIMESPEC))
;           (IOLIB/SYSCALLS::%CLOCK-GETTIME IOLIB/SYSCALLS::CLOCK-ID
;            IOLIB/SYSCALLS::TS)
;           (VALUES IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC))))
; --> PROGN IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CLOCK-GETTIME
;         (IOLIB/SYSCALLS::CLOCK-ID)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Returns the time of the clock CLOCKID."
;       (BLOCK IOLIB/SYSCALLS:CLOCK-GETTIME
;         (MACROLET ((IOLIB/BASE:RETURN* #
;                      `#))
;           (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS '#)
;             (CFFI:WITH-FOREIGN-SLOTS #
;               #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT CLOCK-SETTIME
;     (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:CLOCK-SETTIME
;         (IOLIB/SYSCALLS::CLOCK-ID)
;       "Sets the time of the clock CLOCKID."
;       (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS
;                                  '(:STRUCT IOLIB/SYSCALLS:TIMESPEC))
;         (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC)
;                                   IOLIB/SYSCALLS::TS
;                                   (:STRUCT IOLIB/SYSCALLS:TIMESPEC))
;           (IOLIB/SYSCALLS::%CLOCK-SETTIME IOLIB/SYSCALLS::CLOCK-ID
;            IOLIB/SYSCALLS::TS)
;           (VALUES IOLIB/SYSCALLS:SEC IOLIB/SYSCALLS:NSEC))))
; --> PROGN IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:CLOCK-SETTIME
;         (IOLIB/SYSCALLS::CLOCK-ID)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Sets the time of the clock CLOCKID."
;       (BLOCK IOLIB/SYSCALLS:CLOCK-SETTIME
;         (MACROLET ((IOLIB/BASE:RETURN* #
;                      `#))
;           (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::TS '#)
;             (CFFI:WITH-FOREIGN-SLOTS #
;               #
;               #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT GET-MONOTONIC-TIME
;     (/ IOLIB/SYSCALLS::NANOSECONDS 1.0d9)
; 
; note: unable to convert to multiplication by reciprocal because: 1.0d9 does not have an exact reciprocal

;     (IOLIB/SYSCALLS:DEFENTRYPOINT IOLIB/SYSCALLS:GET-MONOTONIC-TIME
;         NIL
;       "Gets current time in seconds from a system's monotonic clock."
;       (MULTIPLE-VALUE-BIND (IOLIB/SYSCALLS::SECONDS IOLIB/SYSCALLS::NANOSECONDS)
;           (IOLIB/SYSCALLS:CLOCK-GETTIME IOLIB/SYSCALLS:CLOCK-MONOTONIC)
;         (+ IOLIB/SYSCALLS::SECONDS (/ IOLIB/SYSCALLS::NANOSECONDS 1.0d9))))
; --> PROGN IOLIB/BASE:DEFUN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:GET-MONOTONIC-TIME
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Gets current time in seconds from a system's monotonic clock."
;       (BLOCK IOLIB/SYSCALLS:GET-MONOTONIC-TIME
;         (MACROLET ((IOLIB/BASE:RETURN* #
;                      `#))
;           (MULTIPLE-VALUE-BIND
;               (IOLIB/SYSCALLS::SECONDS IOLIB/SYSCALLS::NANOSECONDS)
;               (IOLIB/SYSCALLS:CLOCK-GETTIME IOLIB/SYSCALLS:CLOCK-MONOTONIC)
;             (+ IOLIB/SYSCALLS::SECONDS #)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFSYSCALL (OS-ENVIRON "lfp_get_environ")
;     (IOLIB/SYSCALLS:DEFSYSCALL (IOLIB/SYSCALLS:OS-ENVIRON "lfp_get_environ")
;         :POINTER
;       "Return a pointer to the current process environment.")
; --> PROGN CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA IOLIB/SYSCALLS:OS-ENVIRON
;         NIL
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Return a pointer to the current process environment."
;       (BLOCK IOLIB/SYSCALLS:OS-ENVIRON
;         (LET* ((#:RETVAL0 #) (#:ERRNO1 #))
;           (IF (CFFI-SYS:NULL-POINTER-P #:RETVAL0)
;               (IOLIB/SYSCALLS:SIGNAL-SYSCALL-ERROR #:ERRNO1 "lfp_get_environ"
;                                                    NIL NIL)
;               #:RETVAL0))))
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT GETENV
;     (CFFI:FOREIGN-FUNCALL "getenv" :STRING IOLIB/SYSCALLS:NAME :STRING)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNWIND-PROTECT FLET 
; --> BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN
;    (CFFI-SYS:%FOREIGN-FUNCALL "getenv" (:POINTER #:G2 :POINTER) :CONVENTION
;                               :CDECL :LIBRARY :DEFAULT)
;    #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT CLEARENV
;     (POSITION #\= STRING)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (SUBSEQ STRING 0 (POSITION #\= STRING))
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (CFFI:MEM-AREF IOLIB/SYSCALLS::ENVPTR :STRING IOLIB/SYSCALLS::I)
; --> CFFI:MEM-REF CFFI:TRANSLATE-FROM-FOREIGN CFFI-SYS:%MEM-REF 
; --> SB-SYS:SAP-REF-SAP 
; ==>
;   (* IOLIB/SYSCALLS::I 8)
; 
; 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.

;     (LOOP :FOR IOLIB/SYSCALLS::I :FROM 0 :BY 1
;           :FOR STRING := (CFFI:MEM-AREF IOLIB/SYSCALLS::ENVPTR :STRING
;                                         IOLIB/SYSCALLS::I)
;           :FOR ...)
; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (1+ IOLIB/SYSCALLS::I)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (CFFI:MEM-AREF IOLIB/SYSCALLS::ENVPTR :STRING IOLIB/SYSCALLS::I)
; --> CFFI:MEM-REF 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN
;    (CFFI-SYS:%MEM-REF IOLIB/SYSCALLS::ENVPTR :POINTER (* IOLIB/SYSCALLS::I 8))
;    #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT GETHOSTNAME
;     (CFFI:WITH-FOREIGN-POINTER-AS-STRING ((IOLIB/SYSCALLS::CSTR
;                                            IOLIB/SYSCALLS:SIZE)
;                                           256)
;       (IOLIB/SYSCALLS::%GETHOSTNAME IOLIB/SYSCALLS::CSTR IOLIB/SYSCALLS:SIZE))
; --> CFFI-SYS:WITH-FOREIGN-POINTER WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET 
; --> LET LET SYMBOL-MACROLET LET PROGN 
; ==>
;   (VALUES (CFFI:FOREIGN-STRING-TO-LISP IOLIB/SYSCALLS::CSTR))
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT GETDOMAINNAME
;     (CFFI:WITH-FOREIGN-POINTER-AS-STRING ((IOLIB/SYSCALLS::CSTR
;                                            IOLIB/SYSCALLS:SIZE)
;                                           256)
;       (IOLIB/SYSCALLS::%GETDOMAINNAME IOLIB/SYSCALLS::CSTR IOLIB/SYSCALLS:SIZE))
; --> CFFI-SYS:WITH-FOREIGN-POINTER WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET 
; --> LET LET SYMBOL-MACROLET LET PROGN 
; ==>
;   (VALUES (CFFI:FOREIGN-STRING-TO-LISP IOLIB/SYSCALLS::CSTR))
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFENTRYPOINT UNAME
;     (CFFI:WITH-FOREIGN-OBJECT (IOLIB/SYSCALLS::BUF
;                                '(:STRUCT IOLIB/SYSCALLS:UTSNAME))
;       (IOLIB/SYSCALLS:BZERO IOLIB/SYSCALLS::BUF
;        (IOLIB/SYSCALLS:SIZEOF '(:STRUCT IOLIB/SYSCALLS:UTSNAME)))
;       (IOLIB/SYSCALLS::%UNAME IOLIB/SYSCALLS::BUF)
;       (MACROLET ((IOLIB/SYSCALLS::UTSNAME-SLOT (IOLIB/SYSCALLS:NAME)
;                    `(CFFI:FOREIGN-STRING-TO-LISP #)))
;         (VALUES (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:SYSNAME)
;                 (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:NODENAME)
;                 (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:RELEASE)
;                 (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:VERSION)
;                 (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:MACHINE))))
; --> CFFI-SYS:WITH-FOREIGN-POINTER WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET 
; --> LET 
; ==>
;   (LET ((#:VAR3
;          (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
;           '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) #>)))
;     (SB-ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
;      '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
;                                                                (UNSIGNED 8)
;                                                                390)>
;      #:VAR3)
;     (SYMBOL-MACROLET ((#:ALIEN2 (SB-ALIEN-INTERNALS:LOCAL-ALIEN '# #:VAR3)))
;       (LET ((#:SIZE1 390) (IOLIB/SYSCALLS::BUF #))
;         (DECLARE (IGNORABLE #:SIZE1))
;         (IOLIB/SYSCALLS:BZERO IOLIB/SYSCALLS::BUF (IOLIB/SYSCALLS:SIZEOF '#))
;         (IOLIB/SYSCALLS::%UNAME IOLIB/SYSCALLS::BUF)
;         (MACROLET (#)
;           (VALUES # # # # #)))))
; 
; note: doing SAP to pointer coercion (cost 20) to #:VAR3

;     (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:NODENAME)
; ==>
;   (CFFI:FOREIGN-STRING-TO-LISP
;    (CFFI:FOREIGN-SLOT-POINTER IOLIB/SYSCALLS::BUF
;                               '(:STRUCT IOLIB/SYSCALLS:UTSNAME)
;                               'IOLIB/SYSCALLS:NODENAME))
; 
; note: doing SAP to pointer coercion (cost 20)

;     (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:RELEASE)
; ==>
;   (CFFI:FOREIGN-STRING-TO-LISP
;    (CFFI:FOREIGN-SLOT-POINTER IOLIB/SYSCALLS::BUF
;                               '(:STRUCT IOLIB/SYSCALLS:UTSNAME)
;                               'IOLIB/SYSCALLS:RELEASE))
; 
; note: doing SAP to pointer coercion (cost 20)

;     (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:VERSION)
; ==>
;   (CFFI:FOREIGN-STRING-TO-LISP
;    (CFFI:FOREIGN-SLOT-POINTER IOLIB/SYSCALLS::BUF
;                               '(:STRUCT IOLIB/SYSCALLS:UTSNAME)
;                               'IOLIB/SYSCALLS:VERSION))
; 
; note: doing SAP to pointer coercion (cost 20)

;     (IOLIB/SYSCALLS::UTSNAME-SLOT IOLIB/SYSCALLS:MACHINE)
; ==>
;   (CFFI:FOREIGN-STRING-TO-LISP
;    (CFFI:FOREIGN-SLOT-POINTER IOLIB/SYSCALLS::BUF
;                               '(:STRUCT IOLIB/SYSCALLS:UTSNAME)
;                               'IOLIB/SYSCALLS:MACHINE))
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFUN FUNCALL-GETPW
;     (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::PW
;              IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::PWP)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function

;     (CFFI-SYS:WITH-FOREIGN-POINTER (IOLIB/SYSCALLS::BUF
;                                     IOLIB/SYSCALLS:+CSTRING-PATH-MAX+
;                                     IOLIB/SYSCALLS::BUFSIZE)
;       (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD
;                                  IOLIB/SYSCALLS:UID IOLIB/SYSCALLS:GID
;                                  IOLIB/SYSCALLS:GECOS IOLIB/SYSCALLS:DIR
;                                  IOLIB/SYSCALLS:SHELL)
;                                 IOLIB/SYSCALLS::PW
;                                 (:STRUCT IOLIB/SYSCALLS:PASSWD))
;         (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::PW
;                  IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::PWP)
;         (IF (CFFI-SYS:NULL-POINTER-P (CFFI:MEM-REF IOLIB/SYSCALLS::PWP :POINTER))
;             NIL
;             (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD IOLIB/SYSCALLS:UID
;                     IOLIB/SYSCALLS:GID IOLIB/SYSCALLS:GECOS IOLIB/SYSCALLS:DIR
;                     IOLIB/SYSCALLS:SHELL))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET 
; ==>
;   (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
;    '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY (UNSIGNED 8)
;                                                              65535)>)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of ALLOC-ALIEN-STACK-SPACE

;     (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::PW
;              IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::PWP)
; 
; note: doing SAP to pointer coercion (cost 20)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD IOLIB/SYSCALLS:UID
;             IOLIB/SYSCALLS:GID IOLIB/SYSCALLS:GECOS IOLIB/SYSCALLS:DIR
;             IOLIB/SYSCALLS:SHELL)
; --> IOLIB/SYSCALLS:NAME CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 0)
;                                #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; 
; note: doing SAP to pointer coercion (cost 20)

; --> IOLIB/SYSCALLS:PASSWD CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 8)
;                                #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; 
; note: doing SAP to pointer coercion (cost 20)

; --> IOLIB/SYSCALLS:GECOS CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 24)
;                                #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; 
; note: doing SAP to pointer coercion (cost 20)

; --> IOLIB/SYSCALLS:DIR CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 32)
;                                #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; 
; note: doing SAP to pointer coercion (cost 20)

; --> IOLIB/SYSCALLS:SHELL CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 40)
;                                #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/syscalls/ffi-functions-unix.lisp
; in: DEFUN FUNCALL-GETGR
;     (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::GR
;              IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::GRP)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function

;     (CFFI-SYS:WITH-FOREIGN-POINTER (IOLIB/SYSCALLS::BUF
;                                     IOLIB/SYSCALLS:+CSTRING-PATH-MAX+
;                                     IOLIB/SYSCALLS::BUFSIZE)
;       (CFFI:WITH-FOREIGN-SLOTS ((IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD
;                                  IOLIB/SYSCALLS:GID)
;                                 IOLIB/SYSCALLS::GR (:STRUCT IOLIB/SYSCALLS:GROUP))
;         (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::GR
;                  IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::GRP)
;         (IF (CFFI-SYS:NULL-POINTER-P (CFFI:MEM-REF IOLIB/SYSCALLS::GRP :POINTER))
;             NIL
;             (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD
;                     IOLIB/SYSCALLS:GID))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET 
; ==>
;   (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
;    '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY (UNSIGNED 8)
;                                                              65535)>)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of ALLOC-ALIEN-STACK-SPACE

;     (FUNCALL IOLIB/SYSCALLS::FN IOLIB/SYSCALLS::ARG IOLIB/SYSCALLS::GR
;              IOLIB/SYSCALLS::BUF IOLIB/SYSCALLS::BUFSIZE IOLIB/SYSCALLS::GRP)
; 
; note: doing SAP to pointer coercion (cost 20)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (VALUES IOLIB/SYSCALLS:NAME IOLIB/SYSCALLS:PASSWD IOLIB/SYSCALLS:GID)
; --> IOLIB/SYSCALLS:NAME CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 0)
;                                #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; 
; note: doing SAP to pointer coercion (cost 20)

; --> IOLIB/SYSCALLS:PASSWD CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF 
; ==>
;   (CFFI:TRANSLATE-FROM-FOREIGN (CFFI-SYS:%MEM-REF #:PTR9 :POINTER 8)
;                                #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/iolib/907f838a179fef49cf4618bc507cb9fe20733e22/iolib-v0.8.4/src/multiplex/backend-epoll.lisp
; in: DEFMETHOD HARVEST-EVENTS
;     (IOLIB/MULTIPLEX::EPOLL-SLOT IOLIB/SYSCALLS:DATA)
; --> CFFI:FOREIGN-SLOT-VALUE CFFI:CONVERT-FROM-FOREIGN CFFI-SYS:INC-POINTER 
; ==>
;   (CFFI:MEM-AREF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT
;                  IOLIB/MULTIPLEX::I)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead.

; --> CFFI:FOREIGN-SLOT-VALUE CFFI:CONVERT-FROM-FOREIGN CFFI-SYS:INC-POINTER 
; --> CFFI:MEM-AREF 
; ==>
;   (CFFI:MEM-REF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT
;                 (* IOLIB/MULTIPLEX::I 12))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead.

;     (IOLIB/MULTIPLEX::EPOLL-SLOT IOLIB/SYSCALLS:EVENTS)
; --> CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF CFFI-SYS:%MEM-REF SB-SYS:SAP-REF-32 
; ==>
;   (CFFI:MEM-AREF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT
;                  IOLIB/MULTIPLEX::I)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead.

; --> CFFI:FOREIGN-SLOT-VALUE CFFI:MEM-REF CFFI-SYS:%MEM-REF SB-SYS:SAP-REF-32 
; --> CFFI:MEM-AREF 
; ==>
;   (CFFI:MEM-REF IOLIB/MULTIPLEX::EVENTS 'IOLIB/SYSCALLS:EPOLL-EVENT
;                 (* IOLIB/MULTIPLEX::I 12))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT)) or (:STRUCT IOLIB/SYSCALLS:EPOLL-EVENT) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "iolib/multiplex" "backend-epoll">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/idna/a32def3834b2130ace95c31af82c6c8b92365c53/idna-20211006-git/decode.lisp
; in: DEFUN PUNYCODE-DECODE
;     (CODE-CHAR (AREF IDNA::OUTPUT IDNA::I))
; 
; note: deleting unreachable code

;     (SETF (AREF IDNA::CASE-FLAGS IDNA::OUTPUT-LENGTH) (< (- CHAR-CODE 65) 26))
; --> LET* 
; ==>
;   IDNA::CASE-FLAGS
; 
; note: deleting unreachable code

;     (SUBSEQ IDNA::CASE-FLAGS 0 IDNA::I)
; ==>
;   IDNA::CASE-FLAGS
; 
; note: deleting unreachable code

;     (SUBSEQ IDNA::CASE-FLAGS IDNA::I)
; ==>
;   IDNA::CASE-FLAGS
; 
; note: deleting unreachable code

;     (LOOP IDNA::WITH IDNA::LEN = IDNA::OUTPUT-LENGTH
;           IDNA::FOR IDNA::I IDNA::FROM 0 IDNA::BELOW IDNA::LEN
;           DO ...)
; --> BLOCK LET 
; ==>
;   IDNA::OUTPUT-LENGTH
; 
; note: deleting unreachable code

;     (AREF IDNA::OUTPUT IDNA::I)
; ==>
;   IDNA::OUTPUT
; 
; note: deleting unreachable code

;     (LOOP IDNA::WITH IDNA::LEN = IDNA::OUTPUT-LENGTH
;           IDNA::FOR IDNA::I IDNA::FROM 0 IDNA::BELOW IDNA::LEN
;           DO ...)
; --> BLOCK LET LET TAGBODY WHEN IF >= 
; ==>
;   IDNA::I
; 
; note: deleting unreachable code

;     (ELT IDNA::CASE-FLAGS IDNA::I)
; ==>
;   IDNA::I
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/support/pipe.lisp
; in: DEFMACRO ->
;     (LAMBDA (CL-BUNNY::F CL-BUNNY::C CL-BUNNY::E)
;       (COND
;        ((AND (EQL CL-BUNNY::F 'CL-BUNNY::$) (EQL CL-BUNNY::C :EVAL))
;         (RETURN-FROM CL-BUNNY::FIND-$ T))
;        (T CL-BUNNY::F)))
; ==>
;   #'(LAMBDA (CL-BUNNY::F CL-BUNNY::C CL-BUNNY::E)
;       (COND
;        ((AND (EQL CL-BUNNY::F 'CL-BUNNY::$) (EQL CL-BUNNY::C :EVAL))
;         (RETURN-FROM CL-BUNNY::FIND-$ T))
;        (T CL-BUNNY::F)))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/support/pipe.lisp
; in: DEFMACRO ->
;     (LAMBDA (CL-BUNNY::F CL-BUNNY::C CL-BUNNY::E)
;       (COND
;        ((AND (EQL CL-BUNNY::F 'CL-BUNNY::$) (EQL CL-BUNNY::C :EVAL))
;         (RETURN-FROM CL-BUNNY::FIND-$ T))
;        (T CL-BUNNY::F)))
; ==>
;   #'(LAMBDA (CL-BUNNY::F CL-BUNNY::C CL-BUNNY::E)
;       (COND
;        ((AND (EQL CL-BUNNY::F 'CL-BUNNY::$) (EQL CL-BUNNY::C :EVAL))
;         (RETURN-FROM CL-BUNNY::FIND-$ T))
;        (T CL-BUNNY::F)))
; 
; caught STYLE-WARNING:
;   The variable E is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "support" "pipe">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/support/int-allocator.lisp
; in: DEFUN INT-ALLOCATOR-SET%
;     (SETF (BIT CL-BUNNY::BITS CL-BUNNY::I) 1)
; --> LET* 
; ==>
;   (FUNCALL #'(SETF BIT) #:NEW1 #:BITS0 #:I1)
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a BIT-VECTOR, not a SIMPLE-ARRAY.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/support/int-allocator.lisp
; in: DEFUN INT-ALLOCATOR-UNSET%
;     (SETF (BIT CL-BUNNY::BITS CL-BUNNY::I) 0)
; --> LET* 
; ==>
;   (FUNCALL #'(SETF BIT) #:NEW1 #:BITS0 #:I1)
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a BIT-VECTOR, not a SIMPLE-ARRAY.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/support/int-allocator.lisp
; in: DEFUN INT-ALLOCATOR-ISSET%
;     (BIT CL-BUNNY::BITS CL-BUNNY::I)
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a BIT-VECTOR, not a SIMPLE-ARRAY.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/support/int-allocator.lisp
; in: DEFUN INT-ALLOCATOR-ALLOCATE%
;     (BIT CL-BUNNY::BITS CL-BUNNY::I)
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a BIT-VECTOR, not a SIMPLE-ARRAY.

;     (+ MIN CL-BUNNY::I)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/base/connection-base.lisp
; in: DEFUN CONNECTION.NEW
;     (DEFUN CL-BUNNY:CONNECTION.NEW
;            (
;             &OPTIONAL (CL-BUNNY::SPEC "amqp://")
;             &KEY (CL-BUNNY::HEARTBEAT CL-BUNNY::+HEARTBEAT-INTERVAL+)
;             CL-BUNNY::POOL-TAG)
;       (ASSERT (OR (ALEXANDRIA:POSITIVE-INTEGER-P CL-BUNNY::HEARTBEAT) :DEFAULT))
;       (LET ((CL-BUNNY::SPEC (CL-BUNNY::MAKE-CONNECTION-SPEC CL-BUNNY::SPEC)))
;         (UNLESS (= CL-BUNNY::HEARTBEAT CL-BUNNY::+HEARTBEAT-INTERVAL+)
;           (SETF # CL-BUNNY::HEARTBEAT))
;         (CL-BUNNY::CONNECTION.NEW% (CL-BUNNY::GET-CONNECTION-TYPE CL-BUNNY::SPEC)
;          CL-BUNNY::SPEC (OR CL-BUNNY::POOL-TAG (WITH-OUTPUT-TO-STRING # #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:CONNECTION.NEW
;         (&OPTIONAL (CL-BUNNY::SPEC "amqp://") &KEY
;          (CL-BUNNY::HEARTBEAT CL-BUNNY::+HEARTBEAT-INTERVAL+)
;          CL-BUNNY::POOL-TAG)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:CONNECTION.NEW
;         (ASSERT
;          (OR (ALEXANDRIA:POSITIVE-INTEGER-P CL-BUNNY::HEARTBEAT) :DEFAULT))
;         (LET ((CL-BUNNY::SPEC #))
;           (UNLESS (= CL-BUNNY::HEARTBEAT CL-BUNNY::+HEARTBEAT-INTERVAL+)
;             (SETF #))
;           (CL-BUNNY::CONNECTION.NEW%
;            (CL-BUNNY::GET-CONNECTION-TYPE CL-BUNNY::SPEC) CL-BUNNY::SPEC
;            (OR CL-BUNNY::POOL-TAG #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL (SPEC amqp://) &KEY (HEARTBEAT +HEARTBEAT-INTERVAL+) POOL-TAG)
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "base" "connection-base">
WARNING: redefining CL-BUNNY::CONNECTION-CHANNEL-MAX% in DEFGENERIC
WARNING: redefining CL-BUNNY::CONNECTION-FRAME-MAX% in DEFGENERIC
WARNING: redefining CL-BUNNY::CONNECTION-HEARTBEAT% in DEFGENERIC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/connection/spec.lisp
; in: DEFSTRUCT CONNECTION-SPEC
;     (DEFSTRUCT
;         (CL-BUNNY:CONNECTION-SPEC (:CONSTRUCTOR CL-BUNNY::MAKE-CONNECTION-SPEC%))
;       (CL-BUNNY::HOST "localhost" :TYPE STRING)
;       (CL-BUNNY::PORT 5672 :TYPE FIXNUM)
;       (CL-BUNNY::VHOST "/" :TYPE STRING)
;       (CL-BUNNY::LOGIN "guest" :TYPE STRING)
;       (CL-BUNNY::PASSWORD "guest" :TYPE STRING)
;       (CL-BUNNY::USE-TLS-P NIL :TYPE BOOLEAN)
;       (CL-BUNNY::USE-IPV6-P NIL :TYPE BOOLEAN)
;       (CL-BUNNY::CHANNEL-MAX CL-BUNNY::+CHANNEL-MAX+ :TYPE (UNSIGNED-BYTE 32))
;       (CL-BUNNY::FRAME-MAX CL-BUNNY::+FRAME-MAX+ :TYPE (UNSIGNED-BYTE 32))
;       (CL-BUNNY::HEARTBEAT-INTERVAL CL-BUNNY::+HEARTBEAT-INTERVAL+ :TYPE
;        (UNSIGNED-BYTE 32))
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-BUNNY:CONNECTION-SPEC {1027EBE8A3}>
;    '#(#<SB-KERNEL:WRAPPER (ID=0) for T {50201003}>
;       #<SB-KERNEL:WRAPPER (ID=1) for STRUCTURE-OBJECT {50201073}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-BUNNY:CONNECTION-SPEC-HEARTBEAT-INTERVAL and (COMMON-LISP:SETF CL-BUNNY:CONNECTION-SPEC-HEARTBEAT-INTERVAL) could not be inlined because the structure definition for CL-BUNNY:CONNECTION-SPEC was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "connection" "spec">
WARNING: redefining CHANNEL-CONNECTION (#<STANDARD-CLASS CL-BUNNY::CONNECTION>) in DEFMETHOD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/queue.lisp
; in: DEFUN QUEUE.DELETE
;     (DEFUN CL-BUNNY:QUEUE.DELETE
;            (
;             &OPTIONAL CL-BUNNY::QUEUE
;             &KEY (CL-BUNNY::IF-UNUSED) (CL-BUNNY::IF-EMPTY) (CL-BUNNY::NOWAIT)
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (CL-BUNNY::CHANNEL.SEND% CL-BUNNY::CHANNEL
;           (MAKE-INSTANCE 'CL-AMQP:AMQP-METHOD-QUEUE-DELETE :QUEUE
;                          (CL-BUNNY:QUEUE-NAME CL-BUNNY::QUEUE) :IF-UNUSED
;                          CL-BUNNY::IF-UNUSED :IF-EMPTY CL-BUNNY::IF-EMPTY :NOWAIT
;                          CL-BUNNY::NOWAIT)
;         CL-BUNNY::QUEUE))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:QUEUE.DELETE
;         (&OPTIONAL CL-BUNNY::QUEUE &KEY (CL-BUNNY::IF-UNUSED)
;          (CL-BUNNY::IF-EMPTY) (CL-BUNNY::NOWAIT)
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:QUEUE.DELETE
;         (CL-BUNNY::CHANNEL.SEND% CL-BUNNY::CHANNEL
;             (MAKE-INSTANCE 'CL-AMQP:AMQP-METHOD-QUEUE-DELETE :QUEUE
;                            (CL-BUNNY:QUEUE-NAME CL-BUNNY::QUEUE) :IF-UNUSED
;                            CL-BUNNY::IF-UNUSED :IF-EMPTY CL-BUNNY::IF-EMPTY
;                            :NOWAIT CL-BUNNY::NOWAIT)
;           CL-BUNNY::QUEUE)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL QUEUE &KEY (IF-UNUSED) (IF-EMPTY) (NOWAIT) (CHANNEL *CHANNEL*))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/queue.lisp
; in: DEFUN QUEUE.GET
;     (DEFUN CL-BUNNY:QUEUE.GET
;            (
;             &OPTIONAL (CL-BUNNY::QUEUE "")
;             &KEY (CL-BUNNY::NO-ACK NIL) (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (CL-BUNNY::CHANNEL.SEND% CL-BUNNY::CHANNEL
;           (MAKE-INSTANCE 'CL-AMQP:AMQP-METHOD-BASIC-GET :QUEUE
;                          (CL-BUNNY:QUEUE-NAME CL-BUNNY::QUEUE) :NO-ACK
;                          CL-BUNNY::NO-ACK)
;         (IF (TYPEP CL-BUNNY::REPLY 'CL-AMQP:AMQP-METHOD-BASIC-GET-EMPTY)
;             (VALUES NIL (CL-AMQP:AMQP-METHOD-FIELD-CLUSTER-ID CL-BUNNY::REPLY))
;             (VALUES
;              (MAKE-INSTANCE 'CL-BUNNY::MESSAGE :CHANNEL CL-BUNNY::CHANNEL :BODY #
;                             :PROPERTIES # :ROUTING-KEY # :EXCHANGE # ...)
;              (CL-AMQP:AMQP-METHOD-FIELD-MESSAGE-COUNT CL-BUNNY::REPLY)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:QUEUE.GET
;         (&OPTIONAL (CL-BUNNY::QUEUE "") &KEY (CL-BUNNY::NO-ACK NIL)
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:QUEUE.GET
;         (CL-BUNNY::CHANNEL.SEND% CL-BUNNY::CHANNEL
;             (MAKE-INSTANCE 'CL-AMQP:AMQP-METHOD-BASIC-GET :QUEUE
;                            (CL-BUNNY:QUEUE-NAME CL-BUNNY::QUEUE) :NO-ACK
;                            CL-BUNNY::NO-ACK)
;           (IF (TYPEP CL-BUNNY::REPLY 'CL-AMQP:AMQP-METHOD-BASIC-GET-EMPTY)
;               (VALUES NIL #)
;               (VALUES # #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL (QUEUE ) &KEY (NO-ACK NIL) (CHANNEL *CHANNEL*))
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "queue">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFCLASS EXCHANGE
;     (CL-BUNNY::CHANNEL :TYPE CL-BUNNY::CHANNEL :INITFORM NIL :INITARG :CHANNEL
;      :READER CL-BUNNY:EXCHANGE-CHANNEL)
; ==>
;   (SB-KERNEL:THE* (CL-BUNNY::CHANNEL :SOURCE-FORM NIL :USE-ANNOTATIONS T) NIL)
; 
; caught WARNING:
;   Constant NIL conflicts with its asserted type CL-BUNNY::CHANNEL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.TOPIC
;     (DEFUN CL-BUNNY:EXCHANGE.TOPIC
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic")
;              (APPEND (LIST :TYPE "topic")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.TOPIC
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.TOPIC
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic")
;                (APPEND (LIST :TYPE "topic")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.FANOUT
;     (DEFUN CL-BUNNY:EXCHANGE.FANOUT
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout")
;              (APPEND (LIST :TYPE "fanout")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.FANOUT
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.FANOUT
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout")
;                (APPEND (LIST :TYPE "fanout")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.DIRECT
;     (DEFUN CL-BUNNY:EXCHANGE.DIRECT
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct")
;              (APPEND (LIST :TYPE "direct")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.DIRECT
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.DIRECT
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct")
;                (APPEND (LIST :TYPE "direct")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.HEADERS
;     (DEFUN CL-BUNNY:EXCHANGE.HEADERS
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.headers")
;              (APPEND (LIST :TYPE "headers")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.HEADERS
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.HEADERS
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE
;                (OR CL-BUNNY::EXCHANGE "amq.headers")
;                (APPEND (LIST :TYPE "headers")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1040F58463}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "exchange">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1040F58463}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {102F59A3F3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {102F59A3F3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {102F59A3F3}>)
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 "cl-bunny" "src" "exchange">)))
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 "cl-bunny" "src" "exchange">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">)
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 "cl-bunny" "src" "exchange">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10058DF633}>) [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 {10058DF633}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny"> :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 "cl-bunny">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-bunny")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10058D903B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100589B5FB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-bunny" "cl-bunny")
23: (DEPCHECK::MAGIC "cl-bunny" "cl-bunny" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Jw51WHat/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-bunny" "cl-bunny" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Jw51WHat/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Jw51WHat/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

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

cl-bunny.test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/collectors/1e386552e3b2900580e3972c46152fb776dcc28a/collectors-20211006-git/collectors.asd" contains definition for system "collectors-test". Please only define "collectors" and secondary systems with a name starting with "collectors/" (e.g. "collectors/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/symbol-munger/a8589c60f470b8b280eacd9c983d96bc5f337341/symbol-munger-20211006-git/symbol-munger.asd" contains definition for system "symbol-munger-test". Please only define "symbol-munger" and secondary systems with a name starting with "symbol-munger/" (e.g. "symbol-munger/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20211006-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/08d7a2af682802fce159e47ff3511112f24e892a/cl-colors-20211006-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file.
WARNING: redefining LOG4CL-IMPL:APPENDER-ADDED in DEFGENERIC
WARNING: redefining LOG4CL-IMPL:APPENDER-REMOVED in DEFGENERIC
WARNING: redefining LOG4CL-IMPL::PROPERTY-ALIST in DEFGENERIC
WARNING: redefining CL-BUNNY::CONNECTION-CHANNEL-MAX% in DEFGENERIC
WARNING: redefining CL-BUNNY::CONNECTION-FRAME-MAX% in DEFGENERIC
WARNING: redefining CL-BUNNY::CONNECTION-HEARTBEAT% in DEFGENERIC
WARNING: redefining CHANNEL-CONNECTION (#<STANDARD-CLASS CL-BUNNY::CONNECTION>) in DEFMETHOD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFCLASS EXCHANGE
;     (CL-BUNNY::CHANNEL :TYPE CL-BUNNY::CHANNEL :INITFORM NIL :INITARG :CHANNEL
;      :READER CL-BUNNY:EXCHANGE-CHANNEL)
; ==>
;   (SB-KERNEL:THE* (CL-BUNNY::CHANNEL :SOURCE-FORM NIL :USE-ANNOTATIONS T) NIL)
; 
; caught WARNING:
;   Constant NIL conflicts with its asserted type CL-BUNNY::CHANNEL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.TOPIC
;     (DEFUN CL-BUNNY:EXCHANGE.TOPIC
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic")
;              (APPEND (LIST :TYPE "topic")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.TOPIC
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.TOPIC
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic")
;                (APPEND (LIST :TYPE "topic")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.FANOUT
;     (DEFUN CL-BUNNY:EXCHANGE.FANOUT
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout")
;              (APPEND (LIST :TYPE "fanout")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.FANOUT
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.FANOUT
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout")
;                (APPEND (LIST :TYPE "fanout")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.DIRECT
;     (DEFUN CL-BUNNY:EXCHANGE.DIRECT
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct")
;              (APPEND (LIST :TYPE "direct")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.DIRECT
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.DIRECT
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct")
;                (APPEND (LIST :TYPE "direct")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.HEADERS
;     (DEFUN CL-BUNNY:EXCHANGE.HEADERS
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.headers")
;              (APPEND (LIST :TYPE "headers")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.HEADERS
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.HEADERS
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE
;                (OR CL-BUNNY::EXCHANGE "amq.headers")
;                (APPEND (LIST :TYPE "headers")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "exchange">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1018F20913}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1018F20913}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1018F20913}>)
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 "cl-bunny" "src" "exchange">)))
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 "cl-bunny" "src" "exchange">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">)
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 "cl-bunny" "src" "exchange">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005C15683}>) [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 {1005C15683}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny.test"> :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 "cl-bunny.test">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny.test">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-bunny.test")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny.test") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005BF8F5B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005BC468B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny.test") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-bunny.test" "cl-bunny.test")
23: (DEPCHECK::MAGIC "cl-bunny.test" "cl-bunny.test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-y9eFJpMQ/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-bunny.test" "cl-bunny.test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-y9eFJpMQ/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-y9eFJpMQ/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

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

cl-bunny.examples

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/collectors/1e386552e3b2900580e3972c46152fb776dcc28a/collectors-20211006-git/collectors.asd" contains definition for system "collectors-test". Please only define "collectors" and secondary systems with a name starting with "collectors/" (e.g. "collectors/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/symbol-munger/a8589c60f470b8b280eacd9c983d96bc5f337341/symbol-munger-20211006-git/symbol-munger.asd" contains definition for system "symbol-munger-test". Please only define "symbol-munger" and secondary systems with a name starting with "symbol-munger/" (e.g. "symbol-munger/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20211006-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
WARNING: redefining LOG4CL-IMPL:APPENDER-ADDED in DEFGENERIC
WARNING: redefining LOG4CL-IMPL:APPENDER-REMOVED in DEFGENERIC
WARNING: redefining LOG4CL-IMPL::PROPERTY-ALIST in DEFGENERIC
WARNING: redefining CL-BUNNY::CONNECTION-CHANNEL-MAX% in DEFGENERIC
WARNING: redefining CL-BUNNY::CONNECTION-FRAME-MAX% in DEFGENERIC
WARNING: redefining CL-BUNNY::CONNECTION-HEARTBEAT% in DEFGENERIC
WARNING: redefining CHANNEL-CONNECTION (#<STANDARD-CLASS CL-BUNNY::CONNECTION>) in DEFMETHOD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFCLASS EXCHANGE
;     (CL-BUNNY::CHANNEL :TYPE CL-BUNNY::CHANNEL :INITFORM NIL :INITARG :CHANNEL
;      :READER CL-BUNNY:EXCHANGE-CHANNEL)
; ==>
;   (SB-KERNEL:THE* (CL-BUNNY::CHANNEL :SOURCE-FORM NIL :USE-ANNOTATIONS T) NIL)
; 
; caught WARNING:
;   Constant NIL conflicts with its asserted type CL-BUNNY::CHANNEL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.TOPIC
;     (DEFUN CL-BUNNY:EXCHANGE.TOPIC
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic")
;              (APPEND (LIST :TYPE "topic")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.TOPIC
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.TOPIC
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.topic")
;                (APPEND (LIST :TYPE "topic")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.FANOUT
;     (DEFUN CL-BUNNY:EXCHANGE.FANOUT
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout")
;              (APPEND (LIST :TYPE "fanout")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.FANOUT
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.FANOUT
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.fanout")
;                (APPEND (LIST :TYPE "fanout")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.DIRECT
;     (DEFUN CL-BUNNY:EXCHANGE.DIRECT
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct")
;              (APPEND (LIST :TYPE "direct")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.DIRECT
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.DIRECT
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.direct")
;                (APPEND (LIST :TYPE "direct")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-bunny/d92fa494d450231663ed556666c1bc6fb1a0202f/cl-bunny-0.4.6/src/exchange.lisp
; in: DEFUN EXCHANGE.HEADERS
;     (DEFUN CL-BUNNY:EXCHANGE.HEADERS
;            (
;             &OPTIONAL CL-BUNNY::EXCHANGE
;             &REST CL-BUNNY::ARGS
;             &KEY CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;             CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;             (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (APPLY #'CL-BUNNY:EXCHANGE.DECLARE (OR CL-BUNNY::EXCHANGE "amq.headers")
;              (APPEND (LIST :TYPE "headers")
;                      (IF CL-BUNNY::EXCHANGE
;                          CL-BUNNY::ARGS
;                          (LIST :DURABLE T)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-BUNNY:EXCHANGE.HEADERS
;         (&OPTIONAL CL-BUNNY::EXCHANGE &REST CL-BUNNY::ARGS &KEY
;          CL-BUNNY::PASSIVE CL-BUNNY::DURABLE CL-BUNNY::AUTO-DELETE
;          CL-BUNNY::INTERNAL CL-BUNNY::ARGUMENTS
;          (CL-BUNNY::CHANNEL CL-BUNNY:*CHANNEL*))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-BUNNY:EXCHANGE.HEADERS
;         (APPLY #'CL-BUNNY:EXCHANGE.DECLARE
;                (OR CL-BUNNY::EXCHANGE "amq.headers")
;                (APPEND (LIST :TYPE "headers")
;                        (IF CL-BUNNY::EXCHANGE
;                            CL-BUNNY::ARGS
;                            #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL EXCHANGE &REST ARGS &KEY PASSIVE DURABLE AUTO-DELETE INTERNAL ARGUMENTS (CHANNEL *CHANNEL*))
; 
; caught STYLE-WARNING:
;   The variable PASSIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DURABLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-DELETE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable INTERNAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGUMENTS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CHANNEL is defined but never used.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-bunny" "src" "exchange">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1018AA0FF3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1018AA0FF3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1018AA0FF3}>)
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 "cl-bunny" "src" "exchange">)))
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 "cl-bunny" "src" "exchange">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bunny" "src" "exchange">)
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 "cl-bunny" "src" "exchange">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10057D3773}>) [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 {10057D3773}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny.examples"> :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 "cl-bunny.examples">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bunny.examples">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-bunny.examples")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny.examples") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10057CCF8B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100578F65B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bunny.examples") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-bunny.examples" "cl-bunny.examples")
23: (DEPCHECK::MAGIC "cl-bunny.examples" "cl-bunny.examples" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-gMV4PleY/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-bunny.examples" "cl-bunny.examples" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-gMV4PleY/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-gMV4PleY/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

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