umlisp-orf

SBCL 1.4.4 / ASDF 3.3.1

umlisp-orf-tests

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/clsql/6cefb5c9d783acecb94b66e288faba7d1d7367e2/clsql-20180207-git/clsql-mysql.asd
; in: DEFMETHOD PERFORM (COMPILE-OP CLSQL-MYSQL-SOURCE-FILE)
;     (ASDF/BACKWARD-INTERFACE:RUN-SHELL-COMMAND "cd ~A; make"
;                                                (NAMESTRING
;                                                 CLSQL-MYSQL-SYSTEM::*LIBRARY-FILE-DIR*))
; 
; caught STYLE-WARNING:
;   DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function ASDF/BACKWARD-INTERFACE:RUN-SHELL-COMMAND -- please update your code to use a newer API.
;   The docstring for this function says:
;   PLEASE DO NOT USE. This function is not just DEPRECATED, but also dysfunctional.
;   Please use UIOP:RUN-PROGRAM instead.
;   
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
WARNING: UIOP/VERSION:PARSE-VERSION: "2.7.x" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "2.7.x" for component "hyperobject" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hyperobject/da930ff34d7d234a1ae6e7c7596f0f5810106a3f/hyperobject-20180207-git/hyperobject.asd", using NIL instead
WARNING: Invalid :version specifier "2.7.x" for component "hyperobject" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hyperobject/da930ff34d7d234a1ae6e7c7596f0f5810106a3f/hyperobject-20180207-git/hyperobject.asd", using NIL instead

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/clsql/6cefb5c9d783acecb94b66e288faba7d1d7367e2/clsql-20180207-git/uffi/clsql-uffi.lisp
; in: DEFUN CANONICALIZE-TYPE-LIST
;     (LENGTH CLSQL-UFFI::TYPES)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH CLSQL-UFFI::AUTO-LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
WARNING: DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function ASDF/BACKWARD-INTERFACE:RUN-SHELL-COMMAND -- please update your code to use a newer API.
The docstring for this function says:
PLEASE DO NOT USE. This function is not just DEPRECATED, but also dysfunctional.
Please use UIOP:RUN-PROGRAM instead.


; file: /home/quicklisp/quicklisp-controller/dist/build-cache/clsql/6cefb5c9d783acecb94b66e288faba7d1d7367e2/clsql-20180207-git/db-mysql/mysql-sql.lisp
; in: DEFUN SET-MYSQL-OPTIONS
;     (UFFI:WITH-FOREIGN-STRING (CLSQL-MYSQL::FS CLSQL-MYSQL::VALUE)
;       (MYSQL:MYSQL-OPTIONS CLSQL-MYSQL::MYSQL-PTR CLSQL-MYSQL::OPTION-CODE
;                            CLSQL-MYSQL::FS))
; --> LET* UFFI:CONVERT-TO-FOREIGN-STRING 
; ==>
;   (UFFI::%CONVERT-TO-FOREIGN-STRING CLSQL-MYSQL::VALUE
;                                     (UFFI::LOOKUP-FOREIGN-ENCODING
;                                      (OR #:G6 UFFI:*DEFAULT-FOREIGN-ENCODING*)))
; 
; note: could not stack allocate: (UFFI:WITH-FOREIGN-STRING (FS VALUE) (MYSQL-OPTIONS MYSQL-PTR OPTION-CODE FS))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/clsql/6cefb5c9d783acecb94b66e288faba7d1d7367e2/clsql-20180207-git/db-mysql/mysql-sql.lisp
; in: DEFMETHOD DATABASE-QUERY (T MYSQL-DATABASE T T)
;     (MYSQL:MYSQL-FETCH-LENGTHS CLSQL-MYSQL::RES-PTR)
; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES 
; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (SB-ALIEN:UNSIGNED
;                                                                             64))>)
; 
; note: unable to optimize away %SAP-ALIEN because: forced to do runtime allocation of alien-value structure

;     (MYSQL:MYSQL-FETCH-ROW CLSQL-MYSQL::RES-PTR)
; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES 
; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (*
;                                                                             (SB-ALIEN:UNSIGNED
;                                                                              8)))>)
; 
; note: unable to optimize away %SAP-ALIEN because: forced to do runtime allocation of alien-value structure

;     (MYSQL:MYSQL-USE-RESULT CLSQL-MYSQL::MYSQL-PTR)
; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES 
; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to optimize away %SAP-ALIEN because: forced to do runtime allocation of alien-value structure

;     (UFFI:DEREF-ARRAY CLSQL-MYSQL::ROW '(:ARRAY (* :UNSIGNED-CHAR))
;                       (THE FIXNUM CLSQL-MYSQL::I))
; --> DEREF SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (SB-ALIEN:UNSIGNED
;                                                                             8))>)
; 
; note: unable to optimize away %SAP-ALIEN because: forced to do runtime allocation of alien-value structure

;     (MYSQL:MYSQL-USE-RESULT CLSQL-MYSQL::MYSQL-PTR)
; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES 
; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (MYSQL:MYSQL-ERROR-STRING CLSQL-MYSQL::MYSQL-PTR)
; --> BLOCK UFFI:CONVERT-FROM-CSTRING MYSQL:MYSQL-ERROR BLOCK WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET 
; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (SB-ALIEN:C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :UTF8)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (SB-ALIEN:C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :UTF8)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN:ALIEN

;     (MYSQL:MYSQL-FETCH-ROW CLSQL-MYSQL::RES-PTR)
; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES 
; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (*
;                                                                             (SB-ALIEN:UNSIGNED
;                                                                              8)))>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (MYSQL:MYSQL-FETCH-LENGTHS CLSQL-MYSQL::RES-PTR)
; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES 
; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (SB-ALIEN:UNSIGNED
;                                                                             64))>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (UFFI:DEREF-ARRAY CLSQL-MYSQL::ROW '(:ARRAY (* :UNSIGNED-CHAR))
;                       (THE FIXNUM CLSQL-MYSQL::I))
; --> DEREF SB-ALIEN-INTERNALS:%ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (SB-ALIEN:UNSIGNED
;                                                                             8))>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (CLSQL-UFFI:CONVERT-RAW-FIELD
;      (UFFI:DEREF-ARRAY CLSQL-MYSQL::ROW '(:ARRAY (* :UNSIGNED-CHAR))
;                        (THE FIXNUM CLSQL-MYSQL::I))
;      (NTH CLSQL-MYSQL::I CLSQL-MYSQL::RESULT-TYPES) :LENGTH
;      (UFFI:DEREF-ARRAY CLSQL-MYSQL::LENGTHS '(:ARRAY :UNSIGNED-LONG)
;                        (THE FIXNUM CLSQL-MYSQL::I))
;      :ENCODING (CLSQL-SYS:ENCODING CLSQL-SYS:DATABASE))
; 
; note: doing unsigned word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/parse-common.lisp
; in: DEFUN FILE-FIELD-LENGTHS
;     (/ (AREF UMLISP::FIELDS-AV UMLISP::I) UMLISP::COUNT-LINES)
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.

;     (INCF (AREF UMLISP::FIELDS-AV UMLISP::I) UMLISP::LEN)
; --> LET* 
; ==>
;   (+ UMLISP::LEN (AREF #:FIELDS-AV18 #:I19))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The second argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (FLOAT (/ (AREF UMLISP::FIELDS-AV UMLISP::I) UMLISP::COUNT-LINES))
; --> IF 
; ==>
;   (SB-KERNEL:%SINGLE-FLOAT SB-C::N)
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 64).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/create-sql.lisp
; in: DEFUN VERIFY-TRANSLATION-FILE
;     (DELETE-FILE UMLISP::OUTPUT-PATH)
; ==>
;   UMLISP::OUTPUT-PATH
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN MAKE-UCON-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-UCON-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-UCONSO-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-UCONSO-CODE
;     (DEFUN UMLISP:FIND-UCONSO-CODE
;            (UMLISP:CODE
;             &KEY FIRST UMLISP:SAB (UMLISP:SRL UMLISP:*CURRENT-SRL*)
;             (UMLISP::LIKE NIL))
;       "Return list of uconso objects that match code. Optional, filter for SAB. Optionally, use SQL's LIKE syntax"
;       (UMLISP::COLLECT-UMLISP-QUERY (UMLISP::MRCONSO (UMLISP:CUI UMLISP:SAB)
;                                      UMLISP:SRL UMLISP:CODE UMLISP:CODE :LIKE
;                                      UMLISP::LIKE :DISTINCT T :LRL UMLISP::KLRL
;                                      :FILTER ...)
;         (LET ((UMLISP::UCONSOS #))
;           (IF FIRST
;               (FIRST UMLISP::UCONSOS)
;               UMLISP::UCONSOS))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA UMLISP:FIND-UCONSO-CODE
;         (UMLISP:CODE &KEY FIRST UMLISP:SAB (UMLISP:SRL UMLISP:*CURRENT-SRL*)
;          (UMLISP::LIKE NIL))
;       "Return list of uconso objects that match code. Optional, filter for SAB. Optionally, use SQL's LIKE syntax"
;       (BLOCK UMLISP:FIND-UCONSO-CODE
;         (UMLISP::COLLECT-UMLISP-QUERY (UMLISP::MRCONSO (UMLISP:CUI UMLISP:SAB)
;                                        UMLISP:SRL UMLISP:CODE UMLISP:CODE :LIKE
;                                        UMLISP::LIKE :DISTINCT T :LRL
;                                        UMLISP::KLRL :FILTER ...)
;           (LET (#)
;             (IF FIRST
;                 #
;                 UMLISP::UCONSOS)))))
; 
; caught STYLE-WARNING:
;   The variable LIKE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-PFSTR-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-LRL-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-UCON-CUI-SUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-UDEF-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-USTY-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-UREL-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-CUI2-UREL-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-UTERM-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-UTERM-CUILUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-USTR-CUILUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-USTR-CUI-SUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-USO-CUISUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-USO-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-UHIER-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-USAT-UI
;     (DEFUN UMLISP:FIND-USAT-UI
;            (UMLISP:CUI
;             &OPTIONAL UMLISP:LUI UMLISP:SUI
;             &KEY (UMLISP:SRL UMLISP:*CURRENT-SRL*))
;       (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
;       (UMLISP::ENSURE-LUI-INTEGER UMLISP:LUI)
;       (UMLISP::ENSURE-SUI-INTEGER UMLISP:SUI)
;       (LET ((UMLISP::LS "SELECT CODE,ATN,SAB,ATV FROM MRSAT WHERE "))
;         (COND (UMLISP:SUI (KMRCL:STRING-APPEND UMLISP::LS "KCUISUI='" # "'"))
;               (UMLISP:LUI
;                (KMRCL:STRING-APPEND UMLISP::LS "KCUILUI='" # "' and sui='0'"))
;               (T
;                (KMRCL:STRING-APPEND UMLISP::LS "cui='" #
;                                     "' and lui='0' and sui='0'")))
;         (WHEN UMLISP:SRL
;           (KMRCL:STRING-APPEND UMLISP::LS " and KSRL<="
;                                (KMRCL:PREFIXED-FIXNUM-STRING UMLISP:SRL NIL 3)))
;         (LOOP KMRCL:FOR UMLISP::TUPLE KMRCL:IN (UMLISP::MUTEX-SQL-QUERY
;                                                 UMLISP::LS)
;               UMLISP::COLLECT (DESTRUCTURING-BIND
;                                   (UMLISP:CODE UMLISP:ATN UMLISP:SAB UMLISP:ATV)
;                                   UMLISP::TUPLE
;                                 (MAKE-INSTANCE 'UMLISP:USAT :CODE UMLISP:CODE
;                                                :ATN UMLISP:ATN :SAB UMLISP:SAB
;                                                :ATV UMLISP:ATV)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA UMLISP:FIND-USAT-UI
;         (UMLISP:CUI &OPTIONAL UMLISP:LUI UMLISP:SUI &KEY
;          (UMLISP:SRL UMLISP:*CURRENT-SRL*))
;       (BLOCK UMLISP:FIND-USAT-UI
;         (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
;         (UMLISP::ENSURE-LUI-INTEGER UMLISP:LUI)
;         (UMLISP::ENSURE-SUI-INTEGER UMLISP:SUI)
;         (LET ((UMLISP::LS "SELECT CODE,ATN,SAB,ATV FROM MRSAT WHERE "))
;           (COND (UMLISP:SUI #) (UMLISP:LUI #) (T #))
;           (WHEN UMLISP:SRL (KMRCL:STRING-APPEND UMLISP::LS " and KSRL<=" #))
;           (LOOP KMRCL:FOR UMLISP::TUPLE KMRCL:IN (UMLISP::MUTEX-SQL-QUERY
;                                                   UMLISP::LS)
;                 UMLISP::COLLECT (DESTRUCTURING-BIND # UMLISP::TUPLE #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (CUI &OPTIONAL LUI SUI &KEY (SRL *CURRENT-SRL*))

;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-USAB-RSAB
;     (DEFUN UMLISP:FIND-USAB-RSAB (UMLISP:RSAB &KEY (UMLISP::CURRENT T))
;       "Find usab for rsab"
;       (UMLISP::FIND-USAB-BY-KEY 'UMLISP:RSAB UMLISP:RSAB))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA UMLISP:FIND-USAB-RSAB
;         (UMLISP:RSAB &KEY (UMLISP::CURRENT T))
;       "Find usab for rsab"
;       (BLOCK UMLISP:FIND-USAB-RSAB
;         (UMLISP::FIND-USAB-BY-KEY 'UMLISP:RSAB UMLISP:RSAB)))
; 
; caught STYLE-WARNING:
;   The variable CURRENT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-USAB-VSAB
;     (DEFUN UMLISP:FIND-USAB-VSAB (UMLISP:VSAB &KEY (UMLISP::CURRENT T))
;       "Find usab for vsab"
;       (UMLISP::FIND-USAB-BY-KEY 'UMLISP:VSAB UMLISP:VSAB))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA UMLISP:FIND-USAB-VSAB
;         (UMLISP:VSAB &KEY (UMLISP::CURRENT T))
;       "Find usab for vsab"
;       (BLOCK UMLISP:FIND-USAB-VSAB
;         (UMLISP::FIND-USAB-BY-KEY 'UMLISP:VSAB UMLISP:VSAB)))
; 
; caught STYLE-WARNING:
;   The variable CURRENT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-UMAP-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-USMAP-CUI
;     (UMLISP::ENSURE-CUI-INTEGER UMLISP:CUI)
; --> IF SETQ THE UMLISP:PARSE-CUI BLOCK IF 
; ==>
;   UMLISP:CUI
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp/a7fbd8c2636c3dbc182355c9637fb7c90bcd1351/umlisp-20180207-git/sql-classes.lisp
; in: DEFUN FIND-COUNT-TABLE
;     (DEFUN UMLISP::FIND-COUNT-TABLE
;            (UMLISP::CONN UMLISP::TABLE UMLISP:SRL UMLISP::COUNT-VARIABLE
;             UMLISP::SRL-CONTROL)
;       (UMLISP:WITH-SQL-CONNECTION (UMLISP::CONN)
;         (COND ((STRINGP UMLISP::SRL-CONTROL) (KMRCL:ENSURE-INTEGER #))
;               ((NULL UMLISP::SRL-CONTROL) (KMRCL:ENSURE-INTEGER #))
;               (T (ERROR "Unknown srl-control") 0))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA UMLISP::FIND-COUNT-TABLE
;         (UMLISP::CONN UMLISP::TABLE UMLISP:SRL UMLISP::COUNT-VARIABLE
;          UMLISP::SRL-CONTROL)
;       (BLOCK UMLISP::FIND-COUNT-TABLE
;         (UMLISP:WITH-SQL-CONNECTION (UMLISP::CONN)
;           (COND (# #) (# #) (T # 0)))))
; 
; caught STYLE-WARNING:
;   The variable CONN is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "umlisp" "sql-classes">
Unhandled SB-INT:SIMPLE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>: Failed to find the TRUENAME of /home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package.lisp: No such file or directory

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-INT:SIMPLE-FILE-ERROR "~@<~?~@[: ~2I~_~A~]~:>" {100308D443}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SB-INT:SIMPLE-FILE-ERROR "~@<~?~@[: ~2I~_~A~]~:>" {100308D443}>)
2: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-FILE-ERROR "~@<~?~@[: ~2I~_~A~]~:>" {100308D443}>)
3: (ERROR SB-INT:SIMPLE-FILE-ERROR :PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package.lisp" :FORMAT-CONTROL "~@<~?~@[: ~2I~_~A~]~:>" :FORMAT-ARGUMENTS ("Failed to find the ~*~A~2:* of ~A" (#P"/home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package.lisp" :TRUENAME) "No such file or directory"))
4: ((LABELS SB-IMPL::RESOLVE-PROBLEMATIC-SYMLINK :IN SB-IMPL::%QUERY-FILE-SYSTEM) "/home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package.lisp" 2 NIL)
5: (TRUENAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package.lisp")
6: (SB-C::VERIFY-SOURCE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package.lisp")
7: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (215)) /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package-t... {10030A671F}> :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :TRACE-FILE NIL :BLOCK-COMPILE NIL :EMIT-CFASL NIL)
8: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {100308BA2B}> NIL)
9: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package.lisp" NIL #<CLOSURE (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {100308B28B}>)
10: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (203)) /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/umlisp-orf/340233287e9c9c427e2d0260eb2cb457cb494a56/umlisp-orf-20180207-git/tests/package.f... {10030B376F}> :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL)
11: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "umlisp-orf-tests" "tests" "package">)
12: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "umlisp-orf-tests" "tests" "package">)
13: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
14: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "umlisp-orf-tests" "tests" "package">) [fast-method]
15: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B98B03}>) [fast-method]
16: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
17: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B98B03}>) [fast-method]
18: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "umlisp-orf-tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
19: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "umlisp-orf-tests">)
20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "umlisp-orf-tests">) [fast-method]
22: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "umlisp-orf-tests")
23: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
24: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "umlisp-orf-tests") [fast-method]
25: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B91B0B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
26: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
27: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B4EF2B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
28: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "umlisp-orf-tests") [fast-method]
29: (DEPCHECK::COMPUTE-DEPENDENCIES "umlisp-orf-tests" "umlisp-orf-tests")
30: (DEPCHECK::MAGIC "umlisp-orf-tests" "umlisp-orf-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DjzpWOFB/depcheck-win.txt")
31: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "umlisp-orf-tests" "umlisp-orf-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DjzpWOFB/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DjzpWOFB/depcheck-fail.txt"))
32: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
33: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
34: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
35: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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