SBCL 2.5.5.114-85e41f89c / ASDF 3.3.5
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/s-xml/03cb87aacf1c44877a76572510df60c563727125/s-xml-20250629-git/s-xml.asd" contains definition for system "s-xml.test". Please only define "s-xml" and secondary systems with a name starting with "s-xml/" (e.g. "s-xml/test") in that file. WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/s-xml/03cb87aacf1c44877a76572510df60c563727125/s-xml-20250629-git/s-xml.asd" contains definition for system "s-xml.examples". Please only define "s-xml" and secondary systems with a name starting with "s-xml/" (e.g. "s-xml/test") in that file. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/s-xml-rpc/d8b595ab60be528be3848eaf64d3b9a77fc62319/s-xml-rpc-20250629-git/src/sysdeps.lisp ; in: DEFUN RUN-PROCESS ; (DEFUN S-XML-RPC::RUN-PROCESS ; (S-XML-RPC::NAME FUNCTION &REST S-XML-RPC::ARGUMENTS) ; "Create and run a new process with name, executing function on arguments" ; (APPLY FUNCTION S-XML-RPC::ARGUMENTS)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA S-XML-RPC::RUN-PROCESS ; (S-XML-RPC::NAME FUNCTION &REST S-XML-RPC::ARGUMENTS) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Create and run a new process with name, executing function on arguments" ; (BLOCK S-XML-RPC::RUN-PROCESS (APPLY FUNCTION S-XML-RPC::ARGUMENTS))) ; ; caught STYLE-WARNING: ; The variable NAME is defined but never used. ; in: DEFUN STOP-SERVER ; (DESTRUCTURING-BIND ; (S-XML-RPC::NAME S-XML-RPC::SOCKET S-XML-RPC::HANDLER) ; (ASSOC S-XML-RPC::NAME S-XML-RPC::*SERVER-PROCESSES* :TEST #'STRING=) ; (SB-SYS:REMOVE-FD-HANDLER S-XML-RPC::HANDLER) ; (SB-BSD-SOCKETS:SOCKET-CLOSE S-XML-RPC::SOCKET)) ; ==> ; (LET* ((#:G0 ; (SB-C::CHECK-DS-LIST ; (ASSOC S-XML-RPC::NAME S-XML-RPC::*SERVER-PROCESSES* :TEST ; #'STRING=) ; 3 3 '(S-XML-RPC::NAME S-XML-RPC::SOCKET S-XML-RPC::HANDLER))) ; (S-XML-RPC::NAME (POP #:G0)) ; (S-XML-RPC::SOCKET (POP #:G0)) ; (S-XML-RPC::HANDLER (POP #:G0))) ; (SB-SYS:REMOVE-FD-HANDLER S-XML-RPC::HANDLER) ; (SB-BSD-SOCKETS:SOCKET-CLOSE S-XML-RPC::SOCKET)) ; ; caught STYLE-WARNING: ; The variable NAME is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "s-xml-rpc" "src" "sysdeps"> WARNING: redefining STDUTILS:DEFANAPH in DEFMACRO WARNING: redefining STDUTILS:DROP in DEFGENERIC ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-langutils/0861ac6408e69c6bb155dc62a637ede5fac467de/cl-langutils-20250629-git/src/tokens.lisp ; in: DEFCONSTANT *MAX-TOKEN-NUMS* ; (DEFCONSTANT LANGUTILS::*MAX-TOKEN-NUMS* ; 7 ; "The maximum number of numbers allowed in a valid token") ; ==> ; (SB-IMPL::%DEFCONSTANT 'LANGUTILS::*MAX-TOKEN-NUMS* 7 (SB-C:SOURCE-LOCATION) ; '"The maximum number of numbers allowed in a valid token") ; ; caught STYLE-WARNING: ; Defining (*MAX-TOKEN-NUMS*) as a constant, even though the name follows ; the usual naming convention (names like *FOO*) for special variables ; in: DEFCONSTANT *MAX-TOKEN-OTHERS* ; (DEFCONSTANT LANGUTILS::*MAX-TOKEN-OTHERS* ; 1 ; "The maximum number of non alpha-numeric characters in a valid token") ; ==> ; (SB-IMPL::%DEFCONSTANT 'LANGUTILS::*MAX-TOKEN-OTHERS* 1 ; (SB-C:SOURCE-LOCATION) ; '"The maximum number of non alpha-numeric characters in a valid token") ; ; caught STYLE-WARNING: ; Defining (*MAX-TOKEN-OTHERS*) as a constant, even though the name follows ; the usual naming convention (names like *FOO*) for special variables ; in: DEFCONSTANT *WHITESPACE-CHARS* ; (DEFCONSTANT LANGUTILS::*WHITESPACE-CHARS* ; (IF (BOUNDP 'LANGUTILS::*WHITESPACE-CHARS*) ; (SYMBOL-VALUE 'LANGUTILS::*WHITESPACE-CHARS*) ; '(#\ #\Tab #\Return #\Newline))) ; ==> ; (SB-IMPL::%DEFCONSTANT 'LANGUTILS::*WHITESPACE-CHARS* ; (IF (BOUNDP 'LANGUTILS::*WHITESPACE-CHARS*) ; (SYMBOL-VALUE 'LANGUTILS::*WHITESPACE-CHARS*) ; '(#\ #\Tab #\Return #\Newline)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Defining (*WHITESPACE-CHARS*) as a constant, even though the name follows ; the usual naming convention (names like *FOO*) for special variables ; in: DEFUN ID-FOR-TOKEN ; (STRING-TRIM LANGUTILS::*WHITESPACE-CHARS* LANGUTILS::TOKEN) ; ; note: unable to optimize due to type uncertainty: The second argument is a STRING, not a SIMPLE-STRING. ; (INCF LANGUTILS::*TOKEN-COUNTER*) ; --> THE ; ==> ; (+ 1 LANGUTILS::*TOKEN-COUNTER*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN SUSPICIOUS-STRING? ; (LOOP STDUTILS:FOR STDUTILS:IT LANGUTILS::ACROSS STRING ; DO (COND ((ALPHA-CHAR-P STDUTILS:IT) NIL) ; ((DIGIT-CHAR-P STDUTILS:IT) (INCF LANGUTILS::NUMS)) ; (T (INCF LANGUTILS::OTHERS)))) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "langutils" "src" "tokens"> STYLE-WARNING: Defining (*MAX-TOKEN-NUMS*) as a constant, even though the name follows the usual naming convention (names like *FOO*) for special variables STYLE-WARNING: Defining (*MAX-TOKEN-OTHERS*) as a constant, even though the name follows the usual naming convention (names like *FOO*) for special variables STYLE-WARNING: Defining (*WHITESPACE-CHARS*) as a constant, even though the name follows the usual naming convention (names like *FOO*) for special variables ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-langutils/0861ac6408e69c6bb155dc62a637ede5fac467de/cl-langutils-20250629-git/src/reference.lisp ; in: DEFMETHOD VECTOR-DOC-AS-WORDS (VECTOR-DOCUMENT) ; (MAKE-ARRAY (LENGTH LANGUTILS::ID-ARRAY) :ELEMENT-TYPE 'STRING) ; ; caught STYLE-WARNING: ; The default initial element 0 is not a STRING. ; See also: ; The ANSI Standard, Function MAKE-ARRAY ; The ANSI Standard, Function UPGRADED-ARRAY-ELEMENT-TYPE ; in: DEFMETHOD FIND-PHRASE (PHRASE VECTOR-DOCUMENT) ; (AREF LANGUTILS::PTEXT LANGUTILS::P) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR SYMBOL), not a SIMPLE-ARRAY. ; (AREF LANGUTILS::DTEXT LANGUTILS::D) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF LANGUTILS::PTEXT LANGUTILS::P) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR SYMBOL), not a SIMPLE-ARRAY. ; (AREF LANGUTILS::DTEXT LANGUTILS::D) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF LANGUTILS::PTEXT LANGUTILS::P) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR SYMBOL), not a SIMPLE-ARRAY. ; (AREF LANGUTILS::DTEXT LANGUTILS::D) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF LANGUTILS::PTEXT LANGUTILS::P) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR SYMBOL), not a SIMPLE-ARRAY. ; (AREF LANGUTILS::DTEXT LANGUTILS::D) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF LANGUTILS::PTAGS LANGUTILS::P) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF LANGUTILS::DTAGS LANGUTILS::D) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFMETHOD FIND-PHRASE-INTERVALS (ARRAY VECTOR-DOCUMENT) ; (1- (LANGUTILS:LENGTH-OF LANGUTILS::DOC)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (< LANGUTILS::START (1- (LANGUTILS:LENGTH-OF LANGUTILS::DOC))) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a NUMBER, not a FIXNUM. ; (RETURN) ; ; note: deleting unreachable code ; in: DEFMETHOD PHRASE-EQUAL (PHRASE PHRASE) ; (LOOP LANGUTILS::WITH LANGUTILS::TEXT1 = (LANGUTILS:DOCUMENT-TEXT ; (LANGUTILS:PHRASE-DOCUMENT ; LANGUTILS::PH1)) ; AND LANGUTILS::TEXT2 = (LANGUTILS:DOCUMENT-TEXT ; (LANGUTILS:PHRASE-DOCUMENT LANGUTILS::PH2)) ; STDUTILS:FOR LANGUTILS::I LANGUTILS::FROM ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (> LANGUTILS::I #:LIM6) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ==> ; (> LANGUTILS::J #:LIM7) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (AREF LANGUTILS::TEXT1 LANGUTILS::I) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF LANGUTILS::TEXT2 LANGUTILS::J) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (LOOP LANGUTILS::WITH LANGUTILS::TEXT1 = (LANGUTILS:DOCUMENT-TEXT ; (LANGUTILS:PHRASE-DOCUMENT ; LANGUTILS::PH1)) ; AND LANGUTILS::TEXT2 = (LANGUTILS:DOCUMENT-TEXT ; (LANGUTILS:PHRASE-DOCUMENT LANGUTILS::PH2)) ; STDUTILS:FOR LANGUTILS::I LANGUTILS::FROM ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (> LANGUTILS::I #:LIM6) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ==> ; (> LANGUTILS::J #:LIM7) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ==> ; (> LANGUTILS::I #:LIM6) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "langutils" "src" "reference"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-langutils/0861ac6408e69c6bb155dc62a637ede5fac467de/cl-langutils-20250629-git/src/tokenize.lisp ; in: DEFUN TOKENIZE-STREAM ; (LANGUTILS-TOKENIZE::FIX-ABBREVIATIONS ; (&AUX (LANGUTILS-TOKENIZE::OLD-INDEX MY-META:INDEX) LANGUTILS-TOKENIZE::WS) ; (OR ; (MY-META:META-MATCH ; [@(WHITESPACE WS) !(META-DICT KNOWN-ABBREVIATIONS) . @(WHITESPACE WS)]) ; (PROGN (SETQ MY-META:INDEX LANGUTILS-TOKENIZE::OLD-INDEX) NIL))) ; ; note: deleting unused function ; (LABELS FIX-ABBREVIATIONS :IN TOKENIZE-STREAM) ; (LANGUTILS-TOKENIZE::FIX-PERIODS ; (&AUX (LANGUTILS-TOKENIZE::OLD-INDEX MY-META:INDEX) LANGUTILS-TOKENIZE::A) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE STRING LANGUTILS-TOKENIZE::RESULT) ; (TYPE FIXNUM LANGUTILS-TOKENIZE::OLD-INDEX MY-META:INDEX)) ; (OR ; (MY-META:META-MATCH ; {[. {[${@(WHITESPACE WS)} {, ;}] [!(TEST-ALPHA) . @(WHITESPACE ; WS)]}] [@(NON-PUNC-OR-WHITE ; WS) . @(WHITESPACE ; WS) !(POTENTIAL-SENTENCE)] [{! ?} @(WHITESPACE ; WS) !(WRITE-NEWLINE ; (1- ; INDEX))]}) ; (PROGN (SETQ MY-META:INDEX LANGUTILS-TOKENIZE::OLD-INDEX) NIL))) ; ; caught STYLE-WARNING: ; The variable A is defined but never used. ; (LANGUTILS-TOKENIZE::FIX-POSS ; (&AUX (LANGUTILS-TOKENIZE::OLD-INDEX MY-META:INDEX) LANGUTILS-TOKENIZE::A ; LANGUTILS-TOKENIZE::D) ; (DECLARE (TYPE FIXNUM LANGUTILS-TOKENIZE::OLD-INDEX MY-META:INDEX) ; (OPTIMIZE SPEED (SAFETY 0))) ; (OR ; (MY-META:META-MATCH ; [{!(TEST-ALPHA) @(DIGIT D)} ' s !(DELETE-SPACES (- INDEX 4) 2)]) ; (PROGN (SETQ MY-META:INDEX LANGUTILS-TOKENIZE::OLD-INDEX) NIL))) ; ; caught STYLE-WARNING: ; The variable A is defined but never used. ; ; caught STYLE-WARNING: ; The variable D is assigned but never read. ; (LANGUTILS-TOKENIZE::DELETE-CHARS ; (CHAR WRITE COUNT &AUX (READ WRITE) (LANGUTILS-TOKENIZE::ORIG WRITE)) ; (DECLARE (TYPE FIXNUM WRITE READ COUNT) ; (TYPE (VECTOR CHARACTER) LANGUTILS-TOKENIZE::RESULT) ; (OPTIMIZE SPEED (SAFETY 0))) ; (LOOP LANGUTILS-TOKENIZE::WHILE (< WRITE MY-META:END) ; DO (IF (AND (< # COUNT) (EQ # CHAR)) ; (PROGN (INCF READ) (DECF MY-META:INDEX) (DECF MY-META:END)) ; (PROGN (SETF #) (INCF WRITE) (INCF READ)))) ; T) ; ; caught STYLE-WARNING: ; The variable ORIG is defined but never used. ; (LANGUTILS-TOKENIZE::FIX-NUMERICS ; (&AUX (LANGUTILS-TOKENIZE::OLD-INDEX MY-META:INDEX) LANGUTILS-TOKENIZE::D) ; (OR ; (MY-META:META-MATCH ; [@(DIGIT D) { } {: , /} { } @(DIGIT D) !(DELETE-SPACES (- INDEX 4) 2)]) ; (PROGN (SETQ MY-META:INDEX LANGUTILS-TOKENIZE::OLD-INDEX) NIL))) ; ; caught STYLE-WARNING: ; The variable D is assigned but never read. ; (MY-META:META-MATCH ; [${[@(WHITESPACE WS) $[@(WHITESPACE ; WS)] !(WRITE-WS) !(PROCESS-TOKEN-INLINE) !(EXTEND-RESULT-BUFFER)] [@(PUNCTUATION ; CH) !(WRITE-WS) !(WRITE-CH) !(WRITE-WS)] [@(NON-PUNC-OR-WHITE ; CH) !(WRITE-CH) !(CHECK-SENTENCE)]}]) ; --> THE NOT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (OR (RATIONAL -2305843009213693952 -2048) (INTEGER 0 0) (RATIONAL 256 512) (INTEGER 1024 1024) (RATIONAL 2048 4611686018427387903/2)) &OPTIONAL), not a (VALUES INTEGER &REST T). ; (LANGUTILS-TOKENIZE::COPY-FRAGMENT) ; --> LOOP BLOCK LET 1- ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> LOOP BLOCK LET TAGBODY SETF SB-KERNEL:%CHARSET ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (MY-META:META-MATCH ; [${[@(WHITESPACE WS) $[@(WHITESPACE ; WS)] !(WRITE-WS) !(PROCESS-TOKEN-INLINE) !(EXTEND-RESULT-BUFFER)] [@(PUNCTUATION ; CH) !(WRITE-WS) !(WRITE-CH) !(WRITE-WS)] [@(NON-PUNC-OR-WHITE ; CH) !(WRITE-CH) !(CHECK-SENTENCE)]}]) ; --> THE NOT ; ==> ; 1 ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (OR (RATIONAL -2305843009213693952 -2048) (INTEGER 0 0) (RATIONAL 256 512) (INTEGER 1024 1024) (RATIONAL 2048 4611686018427387903/2)), not a FIXNUM. ; (LET ((LANGUTILS-TOKENIZE::NEW-INDEX ; (MY-META:WITH-STRING-META (STRING LANGUTILS-TOKENIZE::RESULT :START # ; :END LANGUTILS-TOKENIZE::WRITE-INDEX) ; (LABELS # ; # ; MY-META:INDEX)))) ; (SETQ MY-META:INDEX LANGUTILS-TOKENIZE::NEW-INDEX ; LANGUTILS-TOKENIZE::START LANGUTILS-TOKENIZE::NEW-INDEX) ; T) ; ; note: deleting unreachable code ; (SETF (CHAR LANGUTILS-TOKENIZE::RESULT (- MY-META:INDEX 3)) #\ ) ; ; note: deleting unreachable code ; (SUBSEQ LANGUTILS-TOKENIZE::RESULT (1- MY-META:INDEX) MY-META:INDEX) ; ; note: deleting unreachable code ; (SIGNAL 'LANGUTILS-TOKENIZE::END-OF-SENTENCE) ; ; note: deleting unreachable code ; (SETQ LANGUTILS-TOKENIZE::SENTENCE? NIL) ; ; note: deleting unreachable code ; (MY-META:WITH-STRING-META (STRING LANGUTILS-TOKENIZE::RESULT :START ; (IF (= LANGUTILS-TOKENIZE::START 0) ; 0 ; (1- LANGUTILS-TOKENIZE::START)) ; :END LANGUTILS-TOKENIZE::WRITE-INDEX) ; (LABELS ((LANGUTILS-TOKENIZE::TEST-ALPHA () ; (LET* # ; #)) ; (LANGUTILS-TOKENIZE::SWAP ; (LANGUTILS-TOKENIZE::A LANGUTILS-TOKENIZE::B ; &AUX LANGUTILS-TOKENIZE::TEMP) ; (DECLARE #) ; (SETF #) ; (SETF #) ; (SETF #)) ; (LANGUTILS-TOKENIZE::WRITE-NEWLINE (LANGUTILS-TOKENIZE::POS) ; (DECLARE # ; #) ; (SETF #)) ; (LANGUTILS-TOKENIZE::DELETE-SPACES ; (WRITE LANGUTILS-TOKENIZE::SPACES) ; (LANGUTILS-TOKENIZE::DELETE-CHARS #\ WRITE ; LANGUTILS-TOKENIZE::SPACES)) ; (LANGUTILS-TOKENIZE::DELETE-CHARS (CHAR WRITE COUNT &AUX # #) ; (DECLARE # ; # ; #) ; (LOOP LANGUTILS-TOKENIZE::WHILE # ; DO #) ; T) ; (LANGUTILS-TOKENIZE::FIX-WILL (&AUX #) ; (OR # #)) ; (LANGUTILS-TOKENIZE::FIX-POSS ; (&AUX # LANGUTILS-TOKENIZE::A LANGUTILS-TOKENIZE::D) ; (DECLARE # ; #) ; (OR # #)) ; (LANGUTILS-TOKENIZE::FIX-CANT (&AUX #) ; (OR # #)) ; (LANGUTILS-TOKENIZE::FIX-NUMERICS (&AUX # LANGUTILS-TOKENIZE::D) ; (OR # #)) ; (LANGUTILS-TOKENIZE::FIX-ABBREVIATIONS ; (&AUX # LANGUTILS-TOKENIZE::WS) ; (OR # #)) ; (LANGUTILS-TOKENIZE::FIX-PERIODS (&AUX # LANGUTILS-TOKENIZE::A) ; (DECLARE # ; # ; #) ; (OR # #))) ; (MY-META:META-MATCH ; ${{!(FIX-NUMERICS) !(FIX-WILL) !(FIX-CANT) !(FIX-POSS) !(FIX-PERIODS)} [@(WHITESPACE ; CH) $[@(WHITESPACE ; CH) !(DELETE-SPACES ; (1- ; INDEX) ; 1)]] [@(NON-WHITESPACE ; CH)]}) ; MY-META:INDEX)) ; ; caught WARNING: ; Derived type of LANGUTILS-TOKENIZE::RESULT is (VALUES (AND (VECTOR CHARACTER) (NOT SIMPLE-ARRAY)) &OPTIONAL), conflicting with its asserted type SIMPLE-BASE-STRING. ; See also: ; The SBCL Manual, Node "Handling of Types" Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=2604042 "main thread" RUNNING {1200F08003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "langutils" "src" "tokenize"> Backtrace for: #<SB-THREAD:THREAD tid=2604042 "main thread" RUNNING {1200F08003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121015DE63}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121015DE63}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121015DE63}>) 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 "langutils" "src" "tokenize">))) 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 "langutils" "src" "tokenize">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "langutils" "src" "tokenize">) 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 "langutils" "src" "tokenize">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {120466E1F3}>) [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 {120466E1F3}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "langutils"> :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 "langutils">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "langutils">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "langutils") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "langutils") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12046764EB}> :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) {120463D44B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "langutils") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "langutils" "langutils") 23: (DEPCHECK::MAGIC "langutils" "langutils" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-kk0XVMnc/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "langutils" "langutils" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-kk0XVMnc/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-kk0XVMnc/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-3" :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 11 STYLE-WARNING conditions ; printed 40 notes