omglib

• source: https://github.com/hemml/OMGlib.git
• site: https://github.com/hemml/OMGlib
• last updated: 12 weeks ago

SBCL 2.5.9.105-56015d7ab / ASDF 3.3.5

• omgdaemon new failure
• omg new failure

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/types-prelude.lisp
; in: DEFUN EXISTS-STRUCTURE-P
;     (MULTIPLE-VALUE-BIND (JSCL::V JSCL::E-P)
;         (GETHASH JSCL::NAME JSCL::*STRUCTURES*)
;       JSCL::E-P)
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::V JSCL::E-P &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       JSCL::E-P)
; 
; caught STYLE-WARNING:
;   The variable V is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/types-prelude.lisp
; in: DEFUN EXISTS-STRUCTURE-P
;     (MULTIPLE-VALUE-BIND (JSCL::V JSCL::E-P)
;         (GETHASH JSCL::NAME JSCL::*STRUCTURES*)
;       JSCL::E-P)
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::V JSCL::E-P &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       JSCL::E-P)
; 
; caught STYLE-WARNING:
;   The variable V is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/ansiloop/ansi-loop.lisp
; in: DEFUN MAKE-LOOP-MINIMAX
;     (JSCL/LOOP::LOOP-GENTEMP 'JSCL/LOOP::LOOP-MAXMIN-FLAG-)
; 
; note: deleting unreachable code

; in: DEFUN LOOP-CHECK-DATA-TYPE
;     (MULTIPLE-VALUE-BIND (JSCL/LOOP::A JSCL/LOOP::B)
;         (SUBTYPEP JSCL/LOOP::SPECIFIED-TYPE JSCL/LOOP::REQUIRED-TYPE)
;       JSCL/LOOP::SPECIFIED-TYPE)
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL/LOOP::A JSCL/LOOP::B &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       JSCL/LOOP::SPECIFIED-TYPE)
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/structures.lisp
; in: DEFUN DAS!REASSEMBLE-BOA-LIST
;     (JSCL::KEY-P)
; 
; caught STYLE-WARNING:
;   The variable KEY-P is assigned but never read.

;     (JSCL::OPT-P)
; 
; caught STYLE-WARNING:
;   The variable OPT-P is assigned but never read.

;     (JSCL::AUX-P)
; 
; caught STYLE-WARNING:
;   The variable AUX-P is assigned but never read.

; in: DEFUN DAS!PARSE-STRUCT-SLOT
;     (DESTRUCTURING-BIND
;         (JSCL::NAME
;          &OPTIONAL (JSCL::DEFAULT NIL JSCL::DEFAULT-P)
;          &KEY (TYPE NIL JSCL::TYPE-P) (JSCL::READ-ONLY NIL JSCL::READ-ONLY-P))
;         JSCL::SLOT
;       (TYPECASE JSCL::NAME
;         ((MEMBER :CONC-NAME :CONSTRUCTOR :COPIER :PREDICATE :INCLUDE :NAMED :TYPE
;                  :INITIAL-OFFSET)
;          (ERROR "Slot name of ~S indicates probable syntax error in DEFSTRUCT"
;                 JSCL::NAME))
;         (KEYWORD (ERROR "DEFSTRUCT slot ~S syntax error." JSCL::SLOT)))
;       (VALUES JSCL::NAME JSCL::DEFAULT JSCL::DEFAULT-P TYPE JSCL::TYPE-P
;               JSCL::READ-ONLY JSCL::READ-ONLY-P))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (NAME &OPTIONAL (DEFAULT NIL DEFAULT-P) &KEY (TYPE NIL TYPE-P) (READ-ONLY NIL READ-ONLY-P))

;     (MULTIPLE-VALUE-BIND
;         (JSCL::NAME JSCL::DEFAULT JSCL::DEFAULT-P TYPE JSCL::TYPE-P
;          JSCL::READ-ONLY JSCL::RO-P)
;         (TYPECASE JSCL::SLOT
;           (SYMBOL (TYPECASE JSCL::SLOT (# #)) JSCL::SLOT)
;           (CONS
;            (DESTRUCTURING-BIND
;                (JSCL::NAME &OPTIONAL # &KEY # #)
;                JSCL::SLOT
;              (TYPECASE JSCL::NAME # #)
;              (VALUES JSCL::NAME JSCL::DEFAULT JSCL::DEFAULT-P TYPE JSCL::TYPE-P
;                      JSCL::READ-ONLY JSCL::READ-ONLY-P)))
;           (T (ERROR " ~S is not a legal slot description." JSCL::SLOT)))
;       (JSCL::%MAKE-DSD-SLOT :NAME JSCL::NAME :ACCESSOR JSCL::NAME :INITFORM
;        JSCL::DEFAULT :TYPE TYPE :READ-ONLY JSCL::READ-ONLY))
; ==>
;   #'(LAMBDA
;         (
;          &OPTIONAL JSCL::NAME JSCL::DEFAULT JSCL::DEFAULT-P TYPE JSCL::TYPE-P
;          JSCL::READ-ONLY JSCL::RO-P
;          &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       (JSCL::%MAKE-DSD-SLOT :NAME JSCL::NAME :ACCESSOR JSCL::NAME :INITFORM
;        JSCL::DEFAULT :TYPE TYPE :READ-ONLY JSCL::READ-ONLY))
; 
; caught STYLE-WARNING:
;   The variable DEFAULT-P is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TYPE-P is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RO-P is defined but never used.

; in: DEFUN DAS!COMPARE-ASINS
;     (CASE JSCL::SEEN
;       (1
;        (VALUES "type" (JSCL::DSD-SLOT-TYPE JSCL::AS)
;                (JSCL::DSD-SLOT-TYPE JSCL::IN)))
;       (3
;        (VALUES "read-only" (JSCL::DSD-SLOT-READ-ONLY JSCL::AS)
;                (JSCL::DSD-SLOT-READ-ONLY JSCL::IN)))
;       (OTHERWISE "Panic" JSCL::AS JSCL::IN))
; --> IF IF EQL 
; ==>
;   JSCL::SEEN
; 
; note: deleting unreachable code

; --> IF IF THE PROGN 
; ==>
;   JSCL::IN
; 
; note: deleting unreachable code

;     (VALUES "read-only" (JSCL::DSD-SLOT-READ-ONLY JSCL::AS)
;             (JSCL::DSD-SLOT-READ-ONLY JSCL::IN))
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/compiler/compiler.lisp
; in: DEFINE-COMPILATION THE
;     (JSCL::DEFINE-COMPILATION THE
;         (JSCL::VALUE-TYPE JSCL::FORM)
;       (JSCL::CONVERT JSCL::FORM JSCL::*MULTIPLE-VALUE-P*))
; --> LET* LET* LAMBDA 
; ==>
;   #'(LAMBDA (JSCL::VALUE-TYPE JSCL::FORM)
;       (BLOCK THE (JSCL::CONVERT JSCL::FORM JSCL::*MULTIPLE-VALUE-P*)))
; 
; caught STYLE-WARNING:
;   The variable VALUE-TYPE is defined but never used.
; in: LAMBDA (#:G1008)
;     (MULTIPLE-VALUE-BIND (JSCL::FORMS JSCL::DECLS JSCL::DOCSTRING)
;         (JSCL::PARSE-BODY JSCL::BODY)
;       (JSCL::BACKQUOTE
;        (BLOCK NIL
;          (LET (JSCL::UNQUOTE JSCL::INITS)
;            (JSCL::UNQUOTE-SPLICING JSCL::DECLS)
;            (TAGBODY #)))))
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::FORMS JSCL::DECLS JSCL::DOCSTRING &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       (JSCL::BACKQUOTE
;        (BLOCK NIL
;          (LET (JSCL::UNQUOTE JSCL::INITS)
;            (JSCL::UNQUOTE-SPLICING JSCL::DECLS)
;            (TAGBODY #)))))
; 
; caught STYLE-WARNING:
;   The variable DOCSTRING is defined but never used.
; in: LAMBDA (#:G2574)
;     (DESTRUCTURING-BIND
;         (&WHOLE JSCL::ARGS FIRST SECOND &REST JSCL::OTHERS)
;         #:G2574
;       (DECLARE (IGNORE JSCL::OTHERS))
;       (IF (CONSP SECOND)
;           (JSCL::BACKQUOTE
;            (JSCL::LONG-DEFSETF (JSCL::UNQUOTE-SPLICING JSCL::ARGS)))
;           (JSCL::BACKQUOTE
;            (JSCL::SHORT-DEFSETF (JSCL::UNQUOTE-SPLICING JSCL::ARGS)))))
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST #:G2574 2 2
;                                      '(FIRST SECOND &REST JSCL::OTHERS)))
;          (JSCL::ARGS #:G0)
;          (FIRST (POP #:G0))
;          (SECOND (POP #:G0))
;          (JSCL::OTHERS #:G0))
;     (DECLARE (IGNORE JSCL::OTHERS))
;     (IF (CONSP SECOND)
;         (JSCL::BACKQUOTE
;          (JSCL::LONG-DEFSETF (JSCL::UNQUOTE-SPLICING JSCL::ARGS)))
;         (JSCL::BACKQUOTE
;          (JSCL::SHORT-DEFSETF (JSCL::UNQUOTE-SPLICING JSCL::ARGS)))))
; 
; caught STYLE-WARNING:
;   The variable FIRST is defined but never used.
; in: LAMBDA (#:G2321)
;     (DESTRUCTURING-BIND
;         (JSCL::TEST &OPTIONAL IGNORE JSCL::DATUM &REST JSCL::ARGS)
;         #:G2321
;       (LET ((JSCL::VALUE (GENSYM "ASSERT-VALUE")))
;         (JSCL::BACKQUOTE
;          (LET (#)
;            (WHEN # #)))))
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST #:G2321 1 3
;                                      '(JSCL::TEST &OPTIONAL IGNORE JSCL::DATUM
;                                        &REST JSCL::ARGS)))
;          (JSCL::TEST (POP #:G0))
;          (IGNORE
;           (IF #:G0
;               (POP #:G0)))
;          (JSCL::DATUM
;           (IF #:G0
;               (POP #:G0)))
;          (JSCL::ARGS #:G0))
;     (LET ((JSCL::VALUE (GENSYM "ASSERT-VALUE")))
;       (JSCL::BACKQUOTE
;        (LET (#)
;          (WHEN # #)))))
; 
; caught STYLE-WARNING:
;   The variable IGNORE is defined but never used.
WARNING: redefining JSCL::GET-STRUCTURE-DSD in DEFUN
; in:
;      PROGN (DEFUN EXISTS-STRUCTURE-P (NAME) (MULTIPLE-VALUE-BIND (V E-P) (GETHASH NAME *STRUCTURES*) E-P))
;     (MULTIPLE-VALUE-BIND (JSCL::V JSCL::E-P)
;         (GETHASH JSCL::NAME JSCL::*STRUCTURES*)
;       JSCL::E-P)
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::V JSCL::E-P &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       JSCL::E-P)
; 
; caught STYLE-WARNING:
;   The variable V is defined but never used.
WARNING: redefining JSCL::EXISTS-STRUCTURE-P in DEFUN
WARNING: redefining JSCL::MEMQ in DEFUN
WARNING: redefining JSCL::%LMAPCAR in DEFUN
WARNING: redefining JSCL::%STRUCT-GENERATOR in DEFUN
; in: LAMBDA (#:G20778)
;     (DESTRUCTURING-BIND
;         (&WHOLE JSCL::WHOLE JSCL::NAME JSCL::ARGS &BODY JSCL::BODY)
;         #:G20778
;       (DESTRUCTURING-BIND
;           (JSCL::NAME JSCL::LAMBDA-LIST &BODY JSCL::BODY)
;           JSCL::WHOLE
;         (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;             (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;           (LET* (#)
;             (JSCL::BACKQUOTE #)))))
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST #:G20778 2 2
;                                      '(JSCL::NAME JSCL::ARGS &BODY
;                                        JSCL::BODY)))
;          (JSCL::WHOLE #:G0)
;          (JSCL::NAME (POP #:G0))
;          (JSCL::ARGS (POP #:G0))
;          (JSCL::BODY #:G0))
;     (DESTRUCTURING-BIND
;         (JSCL::NAME JSCL::LAMBDA-LIST &BODY JSCL::BODY)
;         JSCL::WHOLE
;       (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;           (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;         (LET* (#)
;           (JSCL::BACKQUOTE #)))))
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable BODY is defined but never used.

;     (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;         (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;       (LET* ((JSCL::COMPOUND (JSCL::BACKQUOTE #'#)))
;         (JSCL::BACKQUOTE
;          (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (JSCL::%DEFTYPE '# :COMPOUND #)))))
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::BODY JSCL::DECLS JSCL::DOCSTRING &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       (LET* ((JSCL::COMPOUND (JSCL::BACKQUOTE #'#)))
;         (JSCL::BACKQUOTE
;          (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
;            (JSCL::%DEFTYPE '# :COMPOUND #)))))
; 
; caught STYLE-WARNING:
;   The variable DECLS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DOCSTRING is defined but never used.
; in: LAMBDA (#:G21412)
;     (DESTRUCTURING-BIND
;         (&WHOLE JSCL::WHOLE JSCL::NAME JSCL::LAMBDA-LIST &BODY JSCL::BODY)
;         #:G21412
;       (DESTRUCTURING-BIND
;           (JSCL::NAME (&REST JSCL::ARGS) &BODY JSCL::BODY)
;           JSCL::WHOLE
;         (IF (NULL JSCL::ARGS)
;             (SETQ JSCL::ARGS '#))
;         (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;             (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;           (LET* (# #)
;             (JSCL::BACKQUOTE #)))))
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST #:G21412 2 2
;                                      '(JSCL::NAME JSCL::LAMBDA-LIST &BODY
;                                        JSCL::BODY)))
;          (JSCL::WHOLE #:G0)
;          (JSCL::NAME (POP #:G0))
;          (JSCL::LAMBDA-LIST (POP #:G0))
;          (JSCL::BODY #:G0))
;     (DESTRUCTURING-BIND
;         (JSCL::NAME (&REST JSCL::ARGS) &BODY JSCL::BODY)
;         JSCL::WHOLE
;       (IF (NULL JSCL::ARGS)
;           (SETQ JSCL::ARGS '#))
;       (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;           (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;         (LET* (# #)
;           (JSCL::BACKQUOTE #)))))
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable LAMBDA-LIST is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable BODY is defined but never used.

;     (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;         (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;       (LET* ((JSCL::EXPR (GENSYM #)) (JSCL::EXPANDER (JSCL::BACKQUOTE #'#)))
;         (JSCL::BACKQUOTE
;          (PROGN (JSCL::%DEFTYPE '# :EXPANDER #) '(JSCL::UNQUOTE JSCL::NAME)))))
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::BODY JSCL::DECLS JSCL::DOCSTRING &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       (LET* ((JSCL::EXPR (GENSYM #)) (JSCL::EXPANDER (JSCL::BACKQUOTE #'#)))
;         (JSCL::BACKQUOTE
;          (PROGN (JSCL::%DEFTYPE '# :EXPANDER #) '(JSCL::UNQUOTE JSCL::NAME)))))
; 
; caught STYLE-WARNING:
;   The variable DECLS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DOCSTRING is defined but never used.
; in: LAMBDA (#:G1615)
;     (MAPCAR (LAMBDA (JSCL::X) (GENSYM)) JSCL::VARS)
; 
; caught STYLE-WARNING:
;   The variable JSCL::X is defined but never used.
; in: LAMBDA (#:G1833)
;     (JSCL::%CHECK-TYPE-ERROR JSCL::PLACE JSCL::PLACE JSCL::TYPESPEC STRING)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::%CHECK-TYPE-ERROR

; in:
;      PROGN (DEFUN JSCL::!TYPEP (JSCL::OBJECT JSCL::TYPE-SPECIFIER) (IF (OR (EQL JSCL::TYPE-SPECIFIER (QUOTE T)) (EQL JSCL::TYPE-SPECIFIER (QUOTE NIL))) (RETURN-FROM JSCL::!TYPEP JSCL::TYPE-SPECIFIER)) (IF (JSCL::MOP-OBJECT-P JSCL::TYPE-SPECIFIER) (RETURN-FROM JSCL::!TYPEP (JSCL::!TYPEP JSCL::OBJECT (CLASS-NAME JSCL::TYPE-SPECIFIER)))) (IF (SYMBOLP JSCL::TYPE-SPECIFIER) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)) (IF (GETHASH JSCL::TYPE-SPECIFIER JSCL::*CLASS-TABLE*) (LET # #)))) (LET ((JSCL::TEST (JSCL::GET-COMPOUND-FOR JSCL::TYPE-SPECIFIER))) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP (FUNCALL JSCL::TEST JSCL::OBJECT JSCL::TYPE-SPECIFIER)))) (IF (AND (CONSP JSCL::TYPE-SPECIFIER) (NULL (REST JSCL::TYPE-SPECIFIER))) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)))) (MULTIPLE-VALUE-BIND (JSCL::EXPANSION JSCL::EXPANDED-P) (JSCL::%TYPE-EXPAND JSCL::TYPE-SPECIFIER) (IF JSCL::EXPANDED-P (JSCL::!TYPEP JSCL::OBJECT JSCL::EXPANSION) (ERROR "Unknown type-specifier ~a." JSCL::TYPE-SPECIFIER))))
;     (JSCL::%CLASS-CPL JSCL::CLASS-OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::%CLASS-CPL

;     (JSCL::%SUBCLASS (JSCL::%CLASS-CPL JSCL::CLASS-OBJECT) JSCL::TYPE-SPECIFIER)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::%SUBCLASS

;     (JSCL::%TYPE-EXPAND JSCL::TYPE-SPECIFIER)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::%TYPE-EXPAND


; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/ansiloop/ansi-loop.lisp
; in: DEFMACRO JSCL/LOOP::LOOP-BODY
;     (JSCL/LOOP::ENV JSCL::*ENVIRONMENT*)
; 
; caught WARNING:
;   undefined variable: JSCL::*ENVIRONMENT*

; in: DEFMACRO JSCL/LOOP::LOOP-REALLY-DESETQ
;     (JSCL/LOOP::ENV JSCL::*ENVIRONMENT*)
; 
; caught WARNING:
;   undefined variable: JSCL::*ENVIRONMENT*

; in: DEFMACRO JSCL/LOOP::LOOP-COLLECT-RPLACD
;     (JSCL/LOOP::ENV JSCL::*ENVIRONMENT*)
; 
; caught WARNING:
;   undefined variable: JSCL::*ENVIRONMENT*

; 
; caught WARNING:
;   2 more uses of undefined variable JSCL::*ENVIRONMENT*

; in:
;      PROGN (DEFUN JSCL::!TYPEP (JSCL::OBJECT JSCL::TYPE-SPECIFIER) (IF (OR (EQL JSCL::TYPE-SPECIFIER (QUOTE T)) (EQL JSCL::TYPE-SPECIFIER (QUOTE NIL))) (RETURN-FROM JSCL::!TYPEP JSCL::TYPE-SPECIFIER)) (IF (JSCL::MOP-OBJECT-P JSCL::TYPE-SPECIFIER) (RETURN-FROM JSCL::!TYPEP (JSCL::!TYPEP JSCL::OBJECT (CLASS-NAME JSCL::TYPE-SPECIFIER)))) (IF (SYMBOLP JSCL::TYPE-SPECIFIER) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)) (IF (GETHASH JSCL::TYPE-SPECIFIER JSCL::*CLASS-TABLE*) (LET # #)))) (LET ((JSCL::TEST (JSCL::GET-COMPOUND-FOR JSCL::TYPE-SPECIFIER))) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP (FUNCALL JSCL::TEST JSCL::OBJECT JSCL::TYPE-SPECIFIER)))) (IF (AND (CONSP JSCL::TYPE-SPECIFIER) (NULL (REST JSCL::TYPE-SPECIFIER))) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)))) (MULTIPLE-VALUE-BIND (JSCL::EXPANSION JSCL::EXPANDED-P) (JSCL::%TYPE-EXPAND JSCL::TYPE-SPECIFIER) (IF JSCL::EXPANDED-P (JSCL::!TYPEP JSCL::OBJECT JSCL::EXPANSION) (ERROR "Unknown type-specifier ~a." JSCL::TYPE-SPECIFIER))))
;     (JSCL::GET-COMPOUND-FOR JSCL::TYPE-SPECIFIER)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::GET-COMPOUND-FOR

;     (JSCL::GET-PREDICATE-FOR JSCL::TYPE-SPECIFIER)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::GET-PREDICATE-FOR

; in:
;      :DEFAULT-INITARGS (LIST (QUOTE :DIRECT-DEFAULT-INITARGS) (JSCL::BACKQUOTE (LIST (JSCL::UNQUOTE-SPLICING (JSCL::MAPAPPEND # #)))))
;     (JSCL::MAPPLIST
;      #'(LAMBDA (JSCL::KEY JSCL::VALUE)
;          (JSCL::BACKQUOTE
;           ('(JSCL::UNQUOTE JSCL::KEY) (JSCL::UNQUOTE JSCL::VALUE))))
;      (CDR JSCL::OPTION))
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::MAPPLIST

; in:
;      PROGN (DEFUN JSCL::!TYPEP (JSCL::OBJECT JSCL::TYPE-SPECIFIER) (IF (OR (EQL JSCL::TYPE-SPECIFIER (QUOTE T)) (EQL JSCL::TYPE-SPECIFIER (QUOTE NIL))) (RETURN-FROM JSCL::!TYPEP JSCL::TYPE-SPECIFIER)) (IF (JSCL::MOP-OBJECT-P JSCL::TYPE-SPECIFIER) (RETURN-FROM JSCL::!TYPEP (JSCL::!TYPEP JSCL::OBJECT (CLASS-NAME JSCL::TYPE-SPECIFIER)))) (IF (SYMBOLP JSCL::TYPE-SPECIFIER) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)) (IF (GETHASH JSCL::TYPE-SPECIFIER JSCL::*CLASS-TABLE*) (LET # #)))) (LET ((JSCL::TEST (JSCL::GET-COMPOUND-FOR JSCL::TYPE-SPECIFIER))) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP (FUNCALL JSCL::TEST JSCL::OBJECT JSCL::TYPE-SPECIFIER)))) (IF (AND (CONSP JSCL::TYPE-SPECIFIER) (NULL (REST JSCL::TYPE-SPECIFIER))) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)))) (MULTIPLE-VALUE-BIND (JSCL::EXPANSION JSCL::EXPANDED-P) (JSCL::%TYPE-EXPAND JSCL::TYPE-SPECIFIER) (IF JSCL::EXPANDED-P (JSCL::!TYPEP JSCL::OBJECT JSCL::EXPANSION) (ERROR "Unknown type-specifier ~a." JSCL::TYPE-SPECIFIER))))
;     (JSCL::MOP-OBJECT-P JSCL::TYPE-SPECIFIER)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::MOP-OBJECT-P


; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/defstruct.lisp
; in: DEFUN JSCL::STRUCTURE-P
;     (JSCL::OBJECT-TYPE-CODE JSCL::OBJ)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::OBJECT-TYPE-CODE

; in:
;      PROGN (DEFUN JSCL::!TYPEP (JSCL::OBJECT JSCL::TYPE-SPECIFIER) (IF (OR (EQL JSCL::TYPE-SPECIFIER (QUOTE T)) (EQL JSCL::TYPE-SPECIFIER (QUOTE NIL))) (RETURN-FROM JSCL::!TYPEP JSCL::TYPE-SPECIFIER)) (IF (JSCL::MOP-OBJECT-P JSCL::TYPE-SPECIFIER) (RETURN-FROM JSCL::!TYPEP (JSCL::!TYPEP JSCL::OBJECT (CLASS-NAME JSCL::TYPE-SPECIFIER)))) (IF (SYMBOLP JSCL::TYPE-SPECIFIER) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)) (IF (GETHASH JSCL::TYPE-SPECIFIER JSCL::*CLASS-TABLE*) (LET # #)))) (LET ((JSCL::TEST (JSCL::GET-COMPOUND-FOR JSCL::TYPE-SPECIFIER))) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP (FUNCALL JSCL::TEST JSCL::OBJECT JSCL::TYPE-SPECIFIER)))) (IF (AND (CONSP JSCL::TYPE-SPECIFIER) (NULL (REST JSCL::TYPE-SPECIFIER))) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)))) (MULTIPLE-VALUE-BIND (JSCL::EXPANSION JSCL::EXPANDED-P) (JSCL::%TYPE-EXPAND JSCL::TYPE-SPECIFIER) (IF JSCL::EXPANDED-P (JSCL::!TYPEP JSCL::OBJECT JSCL::EXPANSION) (ERROR "Unknown type-specifier ~a." JSCL::TYPE-SPECIFIER))))
;     (JSCL::STD-INSTANCE-CLASS JSCL::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::STD-INSTANCE-CLASS

;     (JSCL::STD-INSTANCE-P JSCL::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::STD-INSTANCE-P
; 
; compilation unit finished
;   Undefined functions:
;     JSCL::%CHECK-TYPE-ERROR JSCL::%CLASS-CPL JSCL::%SUBCLASS JSCL::%TYPE-EXPAND JSCL::GET-COMPOUND-FOR JSCL::GET-PREDICATE-FOR JSCL::MAPPLIST JSCL::MOP-OBJECT-P JSCL::OBJECT-TYPE-CODE JSCL::STD-INSTANCE-CLASS JSCL::STD-INSTANCE-P
;   Undefined variable:
;     JSCL::*ENVIRONMENT*
;   caught 4 WARNING conditions
;   caught 38 STYLE-WARNING conditions
;   printed 4 notes
Unhandled ASDF/FIND-COMPONENT:MISSING-DEPENDENCY in thread #<SB-THREAD:THREAD tid=941956 "main thread" RUNNING {1200030003}>: Component "clack" not found, required by #<SYSTEM "omg">

Backtrace for: #<SB-THREAD:THREAD tid=941956 "main thread" RUNNING {1200030003}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK Component "clack" not found, required by #<SYSTEM "omg"> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* Component "clack" not found, required by #<SYSTEM "omg">)
2: (INVOKE-DEBUGGER Component "clack" not found, required by #<SYSTEM "omg">)
3: (ERROR ASDF/FIND-COMPONENT:MISSING-DEPENDENCY :REQUIRED-BY #<ASDF/SYSTEM:SYSTEM "omg"> :REQUIRES "clack")
4: (ASDF/FIND-COMPONENT:RESOLVE-DEPENDENCY-NAME #<ASDF/SYSTEM:SYSTEM "omg"> "clack" NIL)
5: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "omg"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1228DCDD4B}>)
6: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
7: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
8: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1203684C73}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "omg"> T)
9: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/COMPONENT:STATIC-FILE "omg" "README.md"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1228DCDC2B}>)
10: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
11: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
12: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1203684C73}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/COMPONENT:STATIC-FILE "omg" "README.md"> T)
13: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/COMPONENT:STATIC-FILE "omg" "README.md"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1228DCDB0B}>)
14: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
15: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
16: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1203684C73}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/COMPONENT:STATIC-FILE "omg" "README.md"> T)
17: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omg"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1228DCD9EB}>)
18: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
19: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
20: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1203684C73}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omg"> T)
21: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "omgdaemon"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12036A7D8B}>)
22: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
23: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
24: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1203684C73}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "omgdaemon"> T)
25: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/COMPONENT:STATIC-FILE "omgdaemon" "README.md"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12036A7C3B}>)
26: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
27: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
28: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1203684C73}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/COMPONENT:STATIC-FILE "omgdaemon" "README.md"> T)
29: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/COMPONENT:STATIC-FILE "omgdaemon" "README.md"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12036A3C1B}>)
30: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
31: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
32: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1203684C73}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/COMPONENT:STATIC-FILE "omgdaemon" "README.md"> T)
33: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omgdaemon"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120368FB8B}>)
34: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
35: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
36: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1203684C73}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omgdaemon"> T)
37: ((LAMBDA NIL :IN ASDF/PLAN:MAKE-PLAN))
38: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omgdaemon"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
39: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omgdaemon">)
40: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
41: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omgdaemon">) [fast-method]
42: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "omgdaemon")
43: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
44: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "omgdaemon") [fast-method]
45: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120368D7EB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
46: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
47: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120364C74B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
48: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "omgdaemon") [fast-method]
49: (DEPCHECK::COMPUTE-DEPENDENCIES "omgdaemon" "omgdaemon")
50: (DEPCHECK::MAGIC "omgdaemon" "omgdaemon" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-6WC95rlw/depcheck-win.txt")
51: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "omgdaemon" "omgdaemon" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-6WC95rlw/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-6WC95rlw/depcheck-fail.txt"))
52: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
53: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
54: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
55: (SB-IMPL::%START-LISP)

unhandled condition in --disable-debugger mode, quitting

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/types-prelude.lisp
; in: DEFUN EXISTS-STRUCTURE-P
;     (MULTIPLE-VALUE-BIND (JSCL::V JSCL::E-P)
;         (GETHASH JSCL::NAME JSCL::*STRUCTURES*)
;       JSCL::E-P)
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::V JSCL::E-P &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       JSCL::E-P)
; 
; caught STYLE-WARNING:
;   The variable V is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/types-prelude.lisp
; in: DEFUN EXISTS-STRUCTURE-P
;     (MULTIPLE-VALUE-BIND (JSCL::V JSCL::E-P)
;         (GETHASH JSCL::NAME JSCL::*STRUCTURES*)
;       JSCL::E-P)
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::V JSCL::E-P &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       JSCL::E-P)
; 
; caught STYLE-WARNING:
;   The variable V is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/ansiloop/ansi-loop.lisp
; in: DEFUN MAKE-LOOP-MINIMAX
;     (JSCL/LOOP::LOOP-GENTEMP 'JSCL/LOOP::LOOP-MAXMIN-FLAG-)
; 
; note: deleting unreachable code

; in: DEFUN LOOP-CHECK-DATA-TYPE
;     (MULTIPLE-VALUE-BIND (JSCL/LOOP::A JSCL/LOOP::B)
;         (SUBTYPEP JSCL/LOOP::SPECIFIED-TYPE JSCL/LOOP::REQUIRED-TYPE)
;       JSCL/LOOP::SPECIFIED-TYPE)
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL/LOOP::A JSCL/LOOP::B &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       JSCL/LOOP::SPECIFIED-TYPE)
; 
; caught STYLE-WARNING:
;   The variable A is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable B is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/structures.lisp
; in: DEFUN DAS!REASSEMBLE-BOA-LIST
;     (JSCL::KEY-P)
; 
; caught STYLE-WARNING:
;   The variable KEY-P is assigned but never read.

;     (JSCL::OPT-P)
; 
; caught STYLE-WARNING:
;   The variable OPT-P is assigned but never read.

;     (JSCL::AUX-P)
; 
; caught STYLE-WARNING:
;   The variable AUX-P is assigned but never read.

; in: DEFUN DAS!PARSE-STRUCT-SLOT
;     (DESTRUCTURING-BIND
;         (JSCL::NAME
;          &OPTIONAL (JSCL::DEFAULT NIL JSCL::DEFAULT-P)
;          &KEY (TYPE NIL JSCL::TYPE-P) (JSCL::READ-ONLY NIL JSCL::READ-ONLY-P))
;         JSCL::SLOT
;       (TYPECASE JSCL::NAME
;         ((MEMBER :CONC-NAME :CONSTRUCTOR :COPIER :PREDICATE :INCLUDE :NAMED :TYPE
;                  :INITIAL-OFFSET)
;          (ERROR "Slot name of ~S indicates probable syntax error in DEFSTRUCT"
;                 JSCL::NAME))
;         (KEYWORD (ERROR "DEFSTRUCT slot ~S syntax error." JSCL::SLOT)))
;       (VALUES JSCL::NAME JSCL::DEFAULT JSCL::DEFAULT-P TYPE JSCL::TYPE-P
;               JSCL::READ-ONLY JSCL::READ-ONLY-P))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (NAME &OPTIONAL (DEFAULT NIL DEFAULT-P) &KEY (TYPE NIL TYPE-P) (READ-ONLY NIL READ-ONLY-P))

;     (MULTIPLE-VALUE-BIND
;         (JSCL::NAME JSCL::DEFAULT JSCL::DEFAULT-P TYPE JSCL::TYPE-P
;          JSCL::READ-ONLY JSCL::RO-P)
;         (TYPECASE JSCL::SLOT
;           (SYMBOL (TYPECASE JSCL::SLOT (# #)) JSCL::SLOT)
;           (CONS
;            (DESTRUCTURING-BIND
;                (JSCL::NAME &OPTIONAL # &KEY # #)
;                JSCL::SLOT
;              (TYPECASE JSCL::NAME # #)
;              (VALUES JSCL::NAME JSCL::DEFAULT JSCL::DEFAULT-P TYPE JSCL::TYPE-P
;                      JSCL::READ-ONLY JSCL::READ-ONLY-P)))
;           (T (ERROR " ~S is not a legal slot description." JSCL::SLOT)))
;       (JSCL::%MAKE-DSD-SLOT :NAME JSCL::NAME :ACCESSOR JSCL::NAME :INITFORM
;        JSCL::DEFAULT :TYPE TYPE :READ-ONLY JSCL::READ-ONLY))
; ==>
;   #'(LAMBDA
;         (
;          &OPTIONAL JSCL::NAME JSCL::DEFAULT JSCL::DEFAULT-P TYPE JSCL::TYPE-P
;          JSCL::READ-ONLY JSCL::RO-P
;          &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       (JSCL::%MAKE-DSD-SLOT :NAME JSCL::NAME :ACCESSOR JSCL::NAME :INITFORM
;        JSCL::DEFAULT :TYPE TYPE :READ-ONLY JSCL::READ-ONLY))
; 
; caught STYLE-WARNING:
;   The variable DEFAULT-P is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TYPE-P is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RO-P is defined but never used.

; in: DEFUN DAS!COMPARE-ASINS
;     (CASE JSCL::SEEN
;       (1
;        (VALUES "type" (JSCL::DSD-SLOT-TYPE JSCL::AS)
;                (JSCL::DSD-SLOT-TYPE JSCL::IN)))
;       (3
;        (VALUES "read-only" (JSCL::DSD-SLOT-READ-ONLY JSCL::AS)
;                (JSCL::DSD-SLOT-READ-ONLY JSCL::IN)))
;       (OTHERWISE "Panic" JSCL::AS JSCL::IN))
; --> IF IF EQL 
; ==>
;   JSCL::SEEN
; 
; note: deleting unreachable code

; --> IF IF THE PROGN 
; ==>
;   JSCL::IN
; 
; note: deleting unreachable code

;     (VALUES "read-only" (JSCL::DSD-SLOT-READ-ONLY JSCL::AS)
;             (JSCL::DSD-SLOT-READ-ONLY JSCL::IN))
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/compiler/compiler.lisp
; in: DEFINE-COMPILATION THE
;     (JSCL::DEFINE-COMPILATION THE
;         (JSCL::VALUE-TYPE JSCL::FORM)
;       (JSCL::CONVERT JSCL::FORM JSCL::*MULTIPLE-VALUE-P*))
; --> LET* LET* LAMBDA 
; ==>
;   #'(LAMBDA (JSCL::VALUE-TYPE JSCL::FORM)
;       (BLOCK THE (JSCL::CONVERT JSCL::FORM JSCL::*MULTIPLE-VALUE-P*)))
; 
; caught STYLE-WARNING:
;   The variable VALUE-TYPE is defined but never used.
; in: LAMBDA (#:G1008)
;     (MULTIPLE-VALUE-BIND (JSCL::FORMS JSCL::DECLS JSCL::DOCSTRING)
;         (JSCL::PARSE-BODY JSCL::BODY)
;       (JSCL::BACKQUOTE
;        (BLOCK NIL
;          (LET (JSCL::UNQUOTE JSCL::INITS)
;            (JSCL::UNQUOTE-SPLICING JSCL::DECLS)
;            (TAGBODY #)))))
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::FORMS JSCL::DECLS JSCL::DOCSTRING &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       (JSCL::BACKQUOTE
;        (BLOCK NIL
;          (LET (JSCL::UNQUOTE JSCL::INITS)
;            (JSCL::UNQUOTE-SPLICING JSCL::DECLS)
;            (TAGBODY #)))))
; 
; caught STYLE-WARNING:
;   The variable DOCSTRING is defined but never used.
; in: LAMBDA (#:G2574)
;     (DESTRUCTURING-BIND
;         (&WHOLE JSCL::ARGS FIRST SECOND &REST JSCL::OTHERS)
;         #:G2574
;       (DECLARE (IGNORE JSCL::OTHERS))
;       (IF (CONSP SECOND)
;           (JSCL::BACKQUOTE
;            (JSCL::LONG-DEFSETF (JSCL::UNQUOTE-SPLICING JSCL::ARGS)))
;           (JSCL::BACKQUOTE
;            (JSCL::SHORT-DEFSETF (JSCL::UNQUOTE-SPLICING JSCL::ARGS)))))
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST #:G2574 2 2
;                                      '(FIRST SECOND &REST JSCL::OTHERS)))
;          (JSCL::ARGS #:G0)
;          (FIRST (POP #:G0))
;          (SECOND (POP #:G0))
;          (JSCL::OTHERS #:G0))
;     (DECLARE (IGNORE JSCL::OTHERS))
;     (IF (CONSP SECOND)
;         (JSCL::BACKQUOTE
;          (JSCL::LONG-DEFSETF (JSCL::UNQUOTE-SPLICING JSCL::ARGS)))
;         (JSCL::BACKQUOTE
;          (JSCL::SHORT-DEFSETF (JSCL::UNQUOTE-SPLICING JSCL::ARGS)))))
; 
; caught STYLE-WARNING:
;   The variable FIRST is defined but never used.
; in: LAMBDA (#:G2321)
;     (DESTRUCTURING-BIND
;         (JSCL::TEST &OPTIONAL IGNORE JSCL::DATUM &REST JSCL::ARGS)
;         #:G2321
;       (LET ((JSCL::VALUE (GENSYM "ASSERT-VALUE")))
;         (JSCL::BACKQUOTE
;          (LET (#)
;            (WHEN # #)))))
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST #:G2321 1 3
;                                      '(JSCL::TEST &OPTIONAL IGNORE JSCL::DATUM
;                                        &REST JSCL::ARGS)))
;          (JSCL::TEST (POP #:G0))
;          (IGNORE
;           (IF #:G0
;               (POP #:G0)))
;          (JSCL::DATUM
;           (IF #:G0
;               (POP #:G0)))
;          (JSCL::ARGS #:G0))
;     (LET ((JSCL::VALUE (GENSYM "ASSERT-VALUE")))
;       (JSCL::BACKQUOTE
;        (LET (#)
;          (WHEN # #)))))
; 
; caught STYLE-WARNING:
;   The variable IGNORE is defined but never used.
WARNING: redefining JSCL::GET-STRUCTURE-DSD in DEFUN
; in:
;      PROGN (DEFUN EXISTS-STRUCTURE-P (NAME) (MULTIPLE-VALUE-BIND (V E-P) (GETHASH NAME *STRUCTURES*) E-P))
;     (MULTIPLE-VALUE-BIND (JSCL::V JSCL::E-P)
;         (GETHASH JSCL::NAME JSCL::*STRUCTURES*)
;       JSCL::E-P)
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::V JSCL::E-P &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       JSCL::E-P)
; 
; caught STYLE-WARNING:
;   The variable V is defined but never used.
WARNING: redefining JSCL::EXISTS-STRUCTURE-P in DEFUN
WARNING: redefining JSCL::MEMQ in DEFUN
WARNING: redefining JSCL::%LMAPCAR in DEFUN
WARNING: redefining JSCL::%STRUCT-GENERATOR in DEFUN
; in: LAMBDA (#:G20778)
;     (DESTRUCTURING-BIND
;         (&WHOLE JSCL::WHOLE JSCL::NAME JSCL::ARGS &BODY JSCL::BODY)
;         #:G20778
;       (DESTRUCTURING-BIND
;           (JSCL::NAME JSCL::LAMBDA-LIST &BODY JSCL::BODY)
;           JSCL::WHOLE
;         (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;             (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;           (LET* (#)
;             (JSCL::BACKQUOTE #)))))
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST #:G20778 2 2
;                                      '(JSCL::NAME JSCL::ARGS &BODY
;                                        JSCL::BODY)))
;          (JSCL::WHOLE #:G0)
;          (JSCL::NAME (POP #:G0))
;          (JSCL::ARGS (POP #:G0))
;          (JSCL::BODY #:G0))
;     (DESTRUCTURING-BIND
;         (JSCL::NAME JSCL::LAMBDA-LIST &BODY JSCL::BODY)
;         JSCL::WHOLE
;       (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;           (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;         (LET* (#)
;           (JSCL::BACKQUOTE #)))))
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable BODY is defined but never used.

;     (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;         (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;       (LET* ((JSCL::COMPOUND (JSCL::BACKQUOTE #'#)))
;         (JSCL::BACKQUOTE
;          (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (JSCL::%DEFTYPE '# :COMPOUND #)))))
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::BODY JSCL::DECLS JSCL::DOCSTRING &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       (LET* ((JSCL::COMPOUND (JSCL::BACKQUOTE #'#)))
;         (JSCL::BACKQUOTE
;          (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
;            (JSCL::%DEFTYPE '# :COMPOUND #)))))
; 
; caught STYLE-WARNING:
;   The variable DECLS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DOCSTRING is defined but never used.
; in: LAMBDA (#:G21412)
;     (DESTRUCTURING-BIND
;         (&WHOLE JSCL::WHOLE JSCL::NAME JSCL::LAMBDA-LIST &BODY JSCL::BODY)
;         #:G21412
;       (DESTRUCTURING-BIND
;           (JSCL::NAME (&REST JSCL::ARGS) &BODY JSCL::BODY)
;           JSCL::WHOLE
;         (IF (NULL JSCL::ARGS)
;             (SETQ JSCL::ARGS '#))
;         (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;             (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;           (LET* (# #)
;             (JSCL::BACKQUOTE #)))))
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST #:G21412 2 2
;                                      '(JSCL::NAME JSCL::LAMBDA-LIST &BODY
;                                        JSCL::BODY)))
;          (JSCL::WHOLE #:G0)
;          (JSCL::NAME (POP #:G0))
;          (JSCL::LAMBDA-LIST (POP #:G0))
;          (JSCL::BODY #:G0))
;     (DESTRUCTURING-BIND
;         (JSCL::NAME (&REST JSCL::ARGS) &BODY JSCL::BODY)
;         JSCL::WHOLE
;       (IF (NULL JSCL::ARGS)
;           (SETQ JSCL::ARGS '#))
;       (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;           (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;         (LET* (# #)
;           (JSCL::BACKQUOTE #)))))
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable LAMBDA-LIST is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable BODY is defined but never used.

;     (MULTIPLE-VALUE-BIND (JSCL::BODY JSCL::DECLS JSCL::DOCSTRING)
;         (JSCL::PARSE-BODY JSCL::BODY :DECLARATIONS T :DOCSTRING T)
;       (LET* ((JSCL::EXPR (GENSYM #)) (JSCL::EXPANDER (JSCL::BACKQUOTE #'#)))
;         (JSCL::BACKQUOTE
;          (PROGN (JSCL::%DEFTYPE '# :EXPANDER #) '(JSCL::UNQUOTE JSCL::NAME)))))
; ==>
;   #'(LAMBDA (&OPTIONAL JSCL::BODY JSCL::DECLS JSCL::DOCSTRING &REST #:IGNORE)
;       (DECLARE (IGNORE #:IGNORE))
;       (LET* ((JSCL::EXPR (GENSYM #)) (JSCL::EXPANDER (JSCL::BACKQUOTE #'#)))
;         (JSCL::BACKQUOTE
;          (PROGN (JSCL::%DEFTYPE '# :EXPANDER #) '(JSCL::UNQUOTE JSCL::NAME)))))
; 
; caught STYLE-WARNING:
;   The variable DECLS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DOCSTRING is defined but never used.
; in: LAMBDA (#:G1615)
;     (MAPCAR (LAMBDA (JSCL::X) (GENSYM)) JSCL::VARS)
; 
; caught STYLE-WARNING:
;   The variable JSCL::X is defined but never used.
; in: LAMBDA (#:G1833)
;     (JSCL::%CHECK-TYPE-ERROR JSCL::PLACE JSCL::PLACE JSCL::TYPESPEC STRING)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::%CHECK-TYPE-ERROR

; in:
;      PROGN (DEFUN JSCL::!TYPEP (JSCL::OBJECT JSCL::TYPE-SPECIFIER) (IF (OR (EQL JSCL::TYPE-SPECIFIER (QUOTE T)) (EQL JSCL::TYPE-SPECIFIER (QUOTE NIL))) (RETURN-FROM JSCL::!TYPEP JSCL::TYPE-SPECIFIER)) (IF (JSCL::MOP-OBJECT-P JSCL::TYPE-SPECIFIER) (RETURN-FROM JSCL::!TYPEP (JSCL::!TYPEP JSCL::OBJECT (CLASS-NAME JSCL::TYPE-SPECIFIER)))) (IF (SYMBOLP JSCL::TYPE-SPECIFIER) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)) (IF (GETHASH JSCL::TYPE-SPECIFIER JSCL::*CLASS-TABLE*) (LET # #)))) (LET ((JSCL::TEST (JSCL::GET-COMPOUND-FOR JSCL::TYPE-SPECIFIER))) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP (FUNCALL JSCL::TEST JSCL::OBJECT JSCL::TYPE-SPECIFIER)))) (IF (AND (CONSP JSCL::TYPE-SPECIFIER) (NULL (REST JSCL::TYPE-SPECIFIER))) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)))) (MULTIPLE-VALUE-BIND (JSCL::EXPANSION JSCL::EXPANDED-P) (JSCL::%TYPE-EXPAND JSCL::TYPE-SPECIFIER) (IF JSCL::EXPANDED-P (JSCL::!TYPEP JSCL::OBJECT JSCL::EXPANSION) (ERROR "Unknown type-specifier ~a." JSCL::TYPE-SPECIFIER))))
;     (JSCL::%CLASS-CPL JSCL::CLASS-OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::%CLASS-CPL

;     (JSCL::%SUBCLASS (JSCL::%CLASS-CPL JSCL::CLASS-OBJECT) JSCL::TYPE-SPECIFIER)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::%SUBCLASS

;     (JSCL::%TYPE-EXPAND JSCL::TYPE-SPECIFIER)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::%TYPE-EXPAND


; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/ansiloop/ansi-loop.lisp
; in: DEFMACRO JSCL/LOOP::LOOP-BODY
;     (JSCL/LOOP::ENV JSCL::*ENVIRONMENT*)
; 
; caught WARNING:
;   undefined variable: JSCL::*ENVIRONMENT*

; in: DEFMACRO JSCL/LOOP::LOOP-REALLY-DESETQ
;     (JSCL/LOOP::ENV JSCL::*ENVIRONMENT*)
; 
; caught WARNING:
;   undefined variable: JSCL::*ENVIRONMENT*

; in: DEFMACRO JSCL/LOOP::LOOP-COLLECT-RPLACD
;     (JSCL/LOOP::ENV JSCL::*ENVIRONMENT*)
; 
; caught WARNING:
;   undefined variable: JSCL::*ENVIRONMENT*

; 
; caught WARNING:
;   2 more uses of undefined variable JSCL::*ENVIRONMENT*

; in:
;      PROGN (DEFUN JSCL::!TYPEP (JSCL::OBJECT JSCL::TYPE-SPECIFIER) (IF (OR (EQL JSCL::TYPE-SPECIFIER (QUOTE T)) (EQL JSCL::TYPE-SPECIFIER (QUOTE NIL))) (RETURN-FROM JSCL::!TYPEP JSCL::TYPE-SPECIFIER)) (IF (JSCL::MOP-OBJECT-P JSCL::TYPE-SPECIFIER) (RETURN-FROM JSCL::!TYPEP (JSCL::!TYPEP JSCL::OBJECT (CLASS-NAME JSCL::TYPE-SPECIFIER)))) (IF (SYMBOLP JSCL::TYPE-SPECIFIER) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)) (IF (GETHASH JSCL::TYPE-SPECIFIER JSCL::*CLASS-TABLE*) (LET # #)))) (LET ((JSCL::TEST (JSCL::GET-COMPOUND-FOR JSCL::TYPE-SPECIFIER))) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP (FUNCALL JSCL::TEST JSCL::OBJECT JSCL::TYPE-SPECIFIER)))) (IF (AND (CONSP JSCL::TYPE-SPECIFIER) (NULL (REST JSCL::TYPE-SPECIFIER))) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)))) (MULTIPLE-VALUE-BIND (JSCL::EXPANSION JSCL::EXPANDED-P) (JSCL::%TYPE-EXPAND JSCL::TYPE-SPECIFIER) (IF JSCL::EXPANDED-P (JSCL::!TYPEP JSCL::OBJECT JSCL::EXPANSION) (ERROR "Unknown type-specifier ~a." JSCL::TYPE-SPECIFIER))))
;     (JSCL::GET-COMPOUND-FOR JSCL::TYPE-SPECIFIER)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::GET-COMPOUND-FOR

;     (JSCL::GET-PREDICATE-FOR JSCL::TYPE-SPECIFIER)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::GET-PREDICATE-FOR

; in:
;      :DEFAULT-INITARGS (LIST (QUOTE :DIRECT-DEFAULT-INITARGS) (JSCL::BACKQUOTE (LIST (JSCL::UNQUOTE-SPLICING (JSCL::MAPAPPEND # #)))))
;     (JSCL::MAPPLIST
;      #'(LAMBDA (JSCL::KEY JSCL::VALUE)
;          (JSCL::BACKQUOTE
;           ('(JSCL::UNQUOTE JSCL::KEY) (JSCL::UNQUOTE JSCL::VALUE))))
;      (CDR JSCL::OPTION))
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::MAPPLIST

; in:
;      PROGN (DEFUN JSCL::!TYPEP (JSCL::OBJECT JSCL::TYPE-SPECIFIER) (IF (OR (EQL JSCL::TYPE-SPECIFIER (QUOTE T)) (EQL JSCL::TYPE-SPECIFIER (QUOTE NIL))) (RETURN-FROM JSCL::!TYPEP JSCL::TYPE-SPECIFIER)) (IF (JSCL::MOP-OBJECT-P JSCL::TYPE-SPECIFIER) (RETURN-FROM JSCL::!TYPEP (JSCL::!TYPEP JSCL::OBJECT (CLASS-NAME JSCL::TYPE-SPECIFIER)))) (IF (SYMBOLP JSCL::TYPE-SPECIFIER) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)) (IF (GETHASH JSCL::TYPE-SPECIFIER JSCL::*CLASS-TABLE*) (LET # #)))) (LET ((JSCL::TEST (JSCL::GET-COMPOUND-FOR JSCL::TYPE-SPECIFIER))) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP (FUNCALL JSCL::TEST JSCL::OBJECT JSCL::TYPE-SPECIFIER)))) (IF (AND (CONSP JSCL::TYPE-SPECIFIER) (NULL (REST JSCL::TYPE-SPECIFIER))) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)))) (MULTIPLE-VALUE-BIND (JSCL::EXPANSION JSCL::EXPANDED-P) (JSCL::%TYPE-EXPAND JSCL::TYPE-SPECIFIER) (IF JSCL::EXPANDED-P (JSCL::!TYPEP JSCL::OBJECT JSCL::EXPANSION) (ERROR "Unknown type-specifier ~a." JSCL::TYPE-SPECIFIER))))
;     (JSCL::MOP-OBJECT-P JSCL::TYPE-SPECIFIER)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::MOP-OBJECT-P


; file: /home/quicklisp/quicklisp-controller/dist/build-cache/omglib/29c9d0cf41c77ee8b91ce937d11bdc29d12607ad/omglib-20251102-git/jscl/src/defstruct.lisp
; in: DEFUN JSCL::STRUCTURE-P
;     (JSCL::OBJECT-TYPE-CODE JSCL::OBJ)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::OBJECT-TYPE-CODE

; in:
;      PROGN (DEFUN JSCL::!TYPEP (JSCL::OBJECT JSCL::TYPE-SPECIFIER) (IF (OR (EQL JSCL::TYPE-SPECIFIER (QUOTE T)) (EQL JSCL::TYPE-SPECIFIER (QUOTE NIL))) (RETURN-FROM JSCL::!TYPEP JSCL::TYPE-SPECIFIER)) (IF (JSCL::MOP-OBJECT-P JSCL::TYPE-SPECIFIER) (RETURN-FROM JSCL::!TYPEP (JSCL::!TYPEP JSCL::OBJECT (CLASS-NAME JSCL::TYPE-SPECIFIER)))) (IF (SYMBOLP JSCL::TYPE-SPECIFIER) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)) (IF (GETHASH JSCL::TYPE-SPECIFIER JSCL::*CLASS-TABLE*) (LET # #)))) (LET ((JSCL::TEST (JSCL::GET-COMPOUND-FOR JSCL::TYPE-SPECIFIER))) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP (FUNCALL JSCL::TEST JSCL::OBJECT JSCL::TYPE-SPECIFIER)))) (IF (AND (CONSP JSCL::TYPE-SPECIFIER) (NULL (REST JSCL::TYPE-SPECIFIER))) (LET ((JSCL::TEST #)) (IF JSCL::TEST (RETURN-FROM JSCL::!TYPEP #)))) (MULTIPLE-VALUE-BIND (JSCL::EXPANSION JSCL::EXPANDED-P) (JSCL::%TYPE-EXPAND JSCL::TYPE-SPECIFIER) (IF JSCL::EXPANDED-P (JSCL::!TYPEP JSCL::OBJECT JSCL::EXPANSION) (ERROR "Unknown type-specifier ~a." JSCL::TYPE-SPECIFIER))))
;     (JSCL::STD-INSTANCE-CLASS JSCL::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::STD-INSTANCE-CLASS

;     (JSCL::STD-INSTANCE-P JSCL::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: JSCL::STD-INSTANCE-P
; 
; compilation unit finished
;   Undefined functions:
;     JSCL::%CHECK-TYPE-ERROR JSCL::%CLASS-CPL JSCL::%SUBCLASS JSCL::%TYPE-EXPAND JSCL::GET-COMPOUND-FOR JSCL::GET-PREDICATE-FOR JSCL::MAPPLIST JSCL::MOP-OBJECT-P JSCL::OBJECT-TYPE-CODE JSCL::STD-INSTANCE-CLASS JSCL::STD-INSTANCE-P
;   Undefined variable:
;     JSCL::*ENVIRONMENT*
;   caught 4 WARNING conditions
;   caught 38 STYLE-WARNING conditions
;   printed 4 notes
Unhandled ASDF/FIND-COMPONENT:MISSING-DEPENDENCY in thread #<SB-THREAD:THREAD tid=941903 "main thread" RUNNING {1200030003}>: Component "clack" not found, required by #<SYSTEM "omg">

Backtrace for: #<SB-THREAD:THREAD tid=941903 "main thread" RUNNING {1200030003}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK Component "clack" not found, required by #<SYSTEM "omg"> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* Component "clack" not found, required by #<SYSTEM "omg">)
2: (INVOKE-DEBUGGER Component "clack" not found, required by #<SYSTEM "omg">)
3: (ERROR ASDF/FIND-COMPONENT:MISSING-DEPENDENCY :REQUIRED-BY #<ASDF/SYSTEM:SYSTEM "omg"> :REQUIRES "clack")
4: (ASDF/FIND-COMPONENT:RESOLVE-DEPENDENCY-NAME #<ASDF/SYSTEM:SYSTEM "omg"> "clack" NIL)
5: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "omg"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1228A7B92B}>)
6: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
7: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
8: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1228A69D73}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "omg"> T)
9: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/COMPONENT:STATIC-FILE "omg" "README.md"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1228A7B7DB}>)
10: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
11: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
12: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1228A69D73}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/COMPONENT:STATIC-FILE "omg" "README.md"> T)
13: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/COMPONENT:STATIC-FILE "omg" "README.md"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1228A7777B}>)
14: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
15: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
16: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1228A69D73}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/COMPONENT:STATIC-FILE "omg" "README.md"> T)
17: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omg"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1228A736FB}>)
18: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION))
19: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
20: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {1228A69D73}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omg"> T)
21: ((LAMBDA NIL :IN ASDF/PLAN:MAKE-PLAN))
22: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omg"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
23: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omg">)
24: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
25: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "omg">) [fast-method]
26: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "omg")
27: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
28: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "omg") [fast-method]
29: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1228A5EFCB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
30: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
31: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1228A15F0B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
32: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "omg") [fast-method]
33: (DEPCHECK::COMPUTE-DEPENDENCIES "omg" "omg")
34: (DEPCHECK::MAGIC "omg" "omg" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-egNSaPEV/depcheck-win.txt")
35: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "omg" "omg" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-egNSaPEV/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-egNSaPEV/depcheck-fail.txt"))
36: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
37: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
38: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
39: (SB-IMPL::%START-LISP)

unhandled condition in --disable-debugger mode, quitting