hu.dwim.asdf

SBCL 1.4.6.140-f8d5864 / ASDF 3.3.1

hu.dwim.asdf.documentation

WARNING: redefining SB-KERNEL:LINE-LENGTH in DEFUN
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/8edc182c56fc03da3a83f6fb26d446c6f381abec/trivial-garbage-20180424-git/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/e389592fd6c0af849f4f420657cd784036c44bc5/cl-fad-20180424-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl+ssl/8d84443d03c9e0fce74c30ce9708a9ea6bc1e603/cl+ssl-20180424-git/cl+ssl.asd" contains definition for system "openssl-1.1.0". Please only define "cl+ssl" and secondary systems with a name starting with "cl+ssl/" (e.g. "cl+ssl/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/9289f0d6ee8c821e4d9d5bd5e56a95d94da1142a/flexi-streams-20180424-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180424-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cxml/833a30fefae72cc146d4cd2135bf8e09f8705908/cxml-20180424-git/cxml.asd" contains definition for system "cxml-xml". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cxml/833a30fefae72cc146d4cd2135bf8e09f8705908/cxml-20180424-git/cxml.asd" contains definition for system "cxml-dom". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cxml/833a30fefae72cc146d4cd2135bf8e09f8705908/cxml-20180424-git/cxml.asd" contains definition for system "cxml-klacks". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cxml/833a30fefae72cc146d4cd2135bf8e09f8705908/cxml-20180424-git/cxml.asd" contains definition for system "cxml-test". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/puri/79053c86ebabe7ec8aab7ef175e13c9f3a9f0960/puri-20180424-git/puri.asd" contains definition for system "puri-tests". Please only define "puri" and secondary systems with a name starting with "puri/" (e.g. "puri/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/queues.lisp
; in: DEFMETHOD INSERT-ITEM (BASIC-QUEUE T)
;     (DEFMETHOD METABANG.CL-CONTAINERS:INSERT-ITEM ((METABANG.CL-CONTAINERS::Q METABANG.CL-CONTAINERS:BASIC-QUEUE) (METABANG.CL-CONTAINERS::ITEM T))
;       "Add an item to the queue."
;       (LET ((METABANG.CL-CONTAINERS::NEW-ITEM (LIST METABANG.CL-CONTAINERS::ITEM)))
;         (COND ((METABANG.CL-CONTAINERS:EMPTY-P METABANG.CL-CONTAINERS::Q) (SETF #)) (T (SETF #))))
;       METABANG.CL-CONTAINERS::Q)
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; ==>
;   (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'METABANG.CL-CONTAINERS:INSERT-ITEM 'NIL (LIST (FIND-CLASS 'METABANG.CL-CONTAINERS:BASIC-QUEUE) (FIND-CLASS 'T))
;                           '(METABANG.CL-CONTAINERS::Q METABANG.CL-CONTAINERS::ITEM)
;                           (LIST* :FUNCTION
;                                  (LET* ((SB-PCL::FMF #) (SB-PCL::MF #))
;                                    (SB-MOP:SET-FUNCALLABLE-INSTANCE-FUNCTION SB-PCL::MF (SB-PCL::METHOD-FUNCTION-FROM-FAST-FUNCTION SB-PCL::FMF '#))
;                                    SB-PCL::MF)
;                                  '(SB-PCL::PLIST (:ARG-INFO (2)) SB-PCL::SIMPLE-NEXT-METHOD-CALL T :DOCUMENTATION "Add an item to the queue."))
;                           (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to METABANG.CL-CONTAINERS::TAIL-OF-QUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.
; 
; caught STYLE-WARNING:
;   Call to METABANG.CL-CONTAINERS::TAIL-OF-QUEUE! could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/queues.lisp
; in: DEFMETHOD DELETE-FIRST (BASIC-QUEUE)
;     (DEFMETHOD METABANG.CL-CONTAINERS:DELETE-FIRST ((METABANG.CL-CONTAINERS::Q METABANG.CL-CONTAINERS:BASIC-QUEUE))
;       (LET ((METABANG.CL-CONTAINERS::RESULT (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q)))
;         (SETF (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q) (CDR METABANG.CL-CONTAINERS::RESULT)
;               METABANG.CL-CONTAINERS::RESULT (FIRST METABANG.CL-CONTAINERS::RESULT))
;         (WHEN (NULL (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q)) (METABANG.CL-CONTAINERS:EMPTY! METABANG.CL-CONTAINERS::Q))
;         METABANG.CL-CONTAINERS::RESULT))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; ==>
;   (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'METABANG.CL-CONTAINERS:DELETE-FIRST 'NIL (LIST (FIND-CLASS 'METABANG.CL-CONTAINERS:BASIC-QUEUE))
;                           '(METABANG.CL-CONTAINERS::Q)
;                           (LIST* :FUNCTION
;                                  (LET* ((SB-PCL::FMF #) (SB-PCL::MF #))
;                                    (SB-MOP:SET-FUNCALLABLE-INSTANCE-FUNCTION SB-PCL::MF (SB-PCL::METHOD-FUNCTION-FROM-FAST-FUNCTION SB-PCL::FMF '#))
;                                    SB-PCL::MF)
;                                  '(SB-PCL::PLIST (:ARG-INFO (1)) SB-PCL::SIMPLE-NEXT-METHOD-CALL T))
;                           (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to METABANG.CL-CONTAINERS::FRONT-OF-QUEUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.
; 
; caught STYLE-WARNING:
;   Call to METABANG.CL-CONTAINERS::FRONT-OF-QUEUE! could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-containers" "dev" "queues">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/vectors.lisp
; in: DEFMETHOD ITEM-AT (VECTOR-CONTAINER-MIXIN)
;     (FIRST METABANG.CL-CONTAINERS::INDICES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a (MOD 4611686018427387901):
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; caught STYLE-WARNING:
;   This is not a (MOD 4611686018427387901):
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/vectors.lisp
; in: DEFMETHOD ITEM-AT! (VECTOR-CONTAINER-MIXIN T)
;     (FIRST METABANG.CL-CONTAINERS::INDICES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a (MOD 4611686018427387901):
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; caught STYLE-WARNING:
;   This is not a (MOD 4611686018427387901):
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/vectors.lisp
; in: DEFMETHOD ITEM-AT! :BEFORE (FLEXIBLE-VECTOR-CONTAINER T)
;     (FIRST METABANG.CL-CONTAINERS::INDICES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a NUMBER:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-containers" "dev" "vectors">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD ITEM-AT (LIST-CONTAINER)
;     (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a (MOD 4611686018427387901):
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD ITEM-AT (SORTED-LIST-CONTAINER)
;     (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a (MOD 4611686018427387901):
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD ITEM-AT (DLIST-CONTAINER)
;     (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   The binding of SB-C::X is not a REAL:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; caught STYLE-WARNING:
;   The binding of NUMBER is not a REAL:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE DLIST-CONTAINER-NODE)
;     (DEFMETHOD METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED-ABOUT-NODE
;                ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::NODE METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE)
;                 (METABANG.CL-CONTAINERS::NEW-NODE METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE))
;       (WHEN (= (METABANG.UTILITIES:SIZE LIST) 0)
;         (SETF (METABANG.CL-CONTAINERS:FIRST-ELEMENT LIST) METABANG.CL-CONTAINERS::NEW-NODE
;               (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST) METABANG.CL-CONTAINERS::NEW-NODE
;               (METABANG.UTILITIES:SIZE LIST) 1)
;         (RETURN-FROM METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED-ABOUT-NODE LIST))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NEW-KEY #))
;           (IF (AND # #)
;               (METABANG.CL-CONTAINERS:ITERATE-LEFT-NODES LIST METABANG.CL-CONTAINERS::NODE #)
;               (METABANG.CL-CONTAINERS:ITERATE-RIGHT-NODES LIST METABANG.CL-CONTAINERS::NODE #))))
;       (SETF (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::NEW-NODE) (METABANG.CL-CONTAINERS:NEXT-ITEM (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST))
;             (METABANG.CL-CONTAINERS:NEXT-ITEM (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST)) METABANG.CL-CONTAINERS::NEW-NODE
;             (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::NEW-NODE) (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST)
;             (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST) METABANG.CL-CONTAINERS::NEW-NODE)
;       (INCF (METABANG.UTILITIES:SIZE LIST))
;       (VALUES LIST))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET IF METABANG.CL-CONTAINERS:ITERATE-RIGHT-NODES LAMBDA FUNCTION LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G3 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
; 
; note: could not stack allocate: (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ((LIST SORTED-DLIST-CONTAINER) (NODE DLIST-CONTAINER-NODE) (NEW-NODE DLIST-CONTAINER-NODE)) (WHEN (= (SIZE LIST) 0) (SETF (FIRST-ELEMENT LIST) NEW-NODE (LAST-ELEMENT LIST) NEW-NODE (SIZE LIST) 1) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) (WITH-SLOTS (KEY SORTER TEST) LIST (LET ((NEW-KEY (FUNCALL KEY (ELEMENT NEW-NODE)))) (IF (AND (PREVIOUS-ITEM NODE) (FUNCALL SORTER NEW-KEY (FUNCALL KEY (ELEMENT (PREVIOUS-ITEM NODE))))) (ITERATE-LEFT-NODES LIST NODE (LAMBDA (N) (LET ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (COND ((FUNCALL TEST (ELEMENT NEW-NODE) (ELEMENT N)) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) ((NOT (FUNCALL SORTER NEW-KEY CURRENT-KEY)) (INSERT-ITEM-AFTER LIST N NEW-NODE) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)))))) (ITERATE-RIGHT-NODES LIST NODE (LAMBDA (N) (LET ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (COND ((FUNCALL TEST (ELEMENT NEW-NODE) (ELEMENT N)) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) ((FUNCALL SORTER NEW-KEY CURRENT-KEY) (INSERT-ITEM-BEFORE LIST N NEW-NODE) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST))))))))) (SETF (NEXT-ITEM NEW-NODE) (NEXT-ITEM (LAST-ELEMENT LIST)) (NEXT-ITEM (LAST-ELEMENT LIST)) NEW-NODE (PREVIOUS-ITEM NEW-NODE) (LAST-ELEMENT LIST) (LAST-ELEMENT LIST) NEW-NODE) (INCF (SIZE LIST)) (VALUES LIST))

; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET IF METABANG.CL-CONTAINERS:ITERATE-LEFT-NODES LAMBDA FUNCTION LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G3 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
; 
; note: could not stack allocate: (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ((LIST SORTED-DLIST-CONTAINER) (NODE DLIST-CONTAINER-NODE) (NEW-NODE DLIST-CONTAINER-NODE)) (WHEN (= (SIZE LIST) 0) (SETF (FIRST-ELEMENT LIST) NEW-NODE (LAST-ELEMENT LIST) NEW-NODE (SIZE LIST) 1) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) (WITH-SLOTS (KEY SORTER TEST) LIST (LET ((NEW-KEY (FUNCALL KEY (ELEMENT NEW-NODE)))) (IF (AND (PREVIOUS-ITEM NODE) (FUNCALL SORTER NEW-KEY (FUNCALL KEY (ELEMENT (PREVIOUS-ITEM NODE))))) (ITERATE-LEFT-NODES LIST NODE (LAMBDA (N) (LET ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (COND ((FUNCALL TEST (ELEMENT NEW-NODE) (ELEMENT N)) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) ((NOT (FUNCALL SORTER NEW-KEY CURRENT-KEY)) (INSERT-ITEM-AFTER LIST N NEW-NODE) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)))))) (ITERATE-RIGHT-NODES LIST NODE (LAMBDA (N) (LET ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (COND ((FUNCALL TEST (ELEMENT NEW-NODE) (ELEMENT N)) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) ((FUNCALL SORTER NEW-KEY CURRENT-KEY) (INSERT-ITEM-BEFORE LIST N NEW-NODE) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST))))))))) (SETF (NEXT-ITEM NEW-NODE) (NEXT-ITEM (LAST-ELEMENT LIST)) (NEXT-ITEM (LAST-ELEMENT LIST)) NEW-NODE (PREVIOUS-ITEM NEW-NODE) (LAST-ELEMENT LIST) (LAST-ELEMENT LIST) NEW-NODE) (INCF (SIZE LIST)) (VALUES LIST))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD DELETE-ITEM (SORTED-DLIST-CONTAINER I-KNOW-MY-NODE-MIXIN)
;     (METABANG.CL-CONTAINERS:MY-NODE METABANG.CL-CONTAINERS::ITEM)
; 
; note: could not stack allocate: (MY-NODE ITEM)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD LEFT-NODE-FOR-ITEM (SORTED-DLIST-CONTAINER T)
;     (DEFMETHOD METABANG.CL-CONTAINERS:LEFT-NODE-FOR-ITEM ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::ITEM T))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NEW-KEY #))
;           (COND (# #) (# #) (T # #)))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET IF IF THE PROGN METABANG.CL-CONTAINERS:ITERATE-NODES LAMBDA FUNCTION LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
; 
; note: could not stack allocate: (DEFMETHOD LEFT-NODE-FOR-ITEM ((LIST SORTED-DLIST-CONTAINER) (ITEM T)) (WITH-SLOTS (KEY SORTER TEST) LIST (LET ((NEW-KEY (FUNCALL KEY ITEM))) (COND ((= (SIZE LIST) 0) (VALUES NIL)) ((AND (= (SIZE LIST) 1) (NOT (FUNCALL SORTER NEW-KEY (FUNCALL KEY (ELEMENT (FIRST-ELEMENT LIST)))))) (VALUES (FIRST-ELEMENT LIST))) (T (ITERATE-NODES LIST (LAMBDA (N) (LET* ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (WHEN (OR (FUNCALL TEST NEW-KEY CURRENT-KEY) (FUNCALL SORTER NEW-KEY CURRENT-KEY)) (RETURN-FROM LEFT-NODE-FOR-ITEM (PREVIOUS-ITEM N)))))) (VALUES (LAST-ELEMENT LIST)))))))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD RIGHT-NODE-FOR-ITEM (SORTED-DLIST-CONTAINER T)
;     (DEFMETHOD METABANG.CL-CONTAINERS:RIGHT-NODE-FOR-ITEM ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::ITEM T))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NEW-KEY #))
;           (COND (# #) (# #) (T # #)))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET IF IF THE PROGN METABANG.CL-CONTAINERS:ITERATE-NODES LAMBDA FUNCTION LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
; 
; note: could not stack allocate: (DEFMETHOD RIGHT-NODE-FOR-ITEM ((LIST SORTED-DLIST-CONTAINER) (ITEM T)) (WITH-SLOTS (KEY SORTER TEST) LIST (LET ((NEW-KEY (FUNCALL KEY ITEM))) (COND ((= (SIZE LIST) 0) (VALUES NIL)) ((AND (= (SIZE LIST) 1) (FUNCALL SORTER NEW-KEY (FUNCALL KEY (ELEMENT (FIRST-ELEMENT LIST))))) (VALUES (FIRST-ELEMENT LIST))) (T (ITERATE-NODES LIST (LAMBDA (N) (LET* ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (WHEN (OR (FUNCALL TEST NEW-KEY CURRENT-KEY) (FUNCALL SORTER NEW-KEY CURRENT-KEY)) (RETURN-FROM RIGHT-NODE-FOR-ITEM N))))) (VALUES NIL))))))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM (SORTED-DLIST-CONTAINER T)
;     (DEFMETHOD METABANG.CL-CONTAINERS:LEFT-AND-RIGHT-NODES-FOR-ITEM ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::ITEM T))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NEW-KEY #))
;           (COND (# #) (# #) (T # #)))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET IF IF THE PROGN METABANG.CL-CONTAINERS:ITERATE-NODES LAMBDA FUNCTION LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
; 
; note: could not stack allocate: (DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM ((LIST SORTED-DLIST-CONTAINER) (ITEM T)) (WITH-SLOTS (KEY SORTER TEST) LIST (LET ((NEW-KEY (FUNCALL KEY ITEM))) (COND ((= (SIZE LIST) 0) (VALUES NIL NIL)) ((= (SIZE LIST) 1) (IF (FUNCALL SORTER NEW-KEY (FUNCALL KEY (ELEMENT (FIRST-ELEMENT LIST)))) (VALUES NIL (FIRST-ELEMENT LIST)) (VALUES (FIRST-ELEMENT LIST) NIL))) (T (ITERATE-NODES LIST (LAMBDA (N) (LET* ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (WHEN (OR (FUNCALL TEST NEW-KEY CURRENT-KEY) (FUNCALL SORTER NEW-KEY CURRENT-KEY)) (RETURN-FROM LEFT-AND-RIGHT-NODES-FOR-ITEM (VALUES (PREVIOUS-ITEM N) N)))))) (VALUES (LAST-ELEMENT LIST) NIL))))))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD ITERATE-LEFT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE T)
;     (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::ITEM)
; 
; note: could not stack allocate: (PREVIOUS-ITEM ITEM)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD ITERATE-RIGHT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE T)
;     (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::ITEM)
; 
; note: could not stack allocate: (NEXT-ITEM ITEM)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD SORT-UPDATE-LEFT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE)
;     (DEFMETHOD METABANG.CL-CONTAINERS::SORT-UPDATE-LEFT
;                ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::NODE METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NODE-KEY #) (METABANG.CL-CONTAINERS::NEXT-NEIGHBOR #))
;           (DECLARE (DYNAMIC-EXTENT METABANG.CL-CONTAINERS::NODE-KEY METABANG.CL-CONTAINERS::NEXT-NEIGHBOR))
;           (LOOP METABANG.CL-CONTAINERS::WHILE (AND METABANG.CL-CONTAINERS::NEXT-NEIGHBOR #)
;                 DO (SETF #) (WHEN #
;                               #) (IF #
;                                      #
;                                      #) (SETF #) (SETF #))
;           (WHEN (NOT METABANG.CL-CONTAINERS::NEXT-NEIGHBOR) (SETF #)))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::NODE))
; 
; note: could not stack allocate: (DEFMETHOD SORT-UPDATE-LEFT ((LIST SORTED-DLIST-CONTAINER) (NODE DLIST-CONTAINER-NODE)) (WITH-SLOTS (SORTER KEY TEST) LIST (LET ((NODE-KEY (FUNCALL KEY (ELEMENT NODE))) (NEXT-NEIGHBOR (PREVIOUS-ITEM NODE))) (DECLARE (DYNAMIC-EXTENT NODE-KEY NEXT-NEIGHBOR)) (LOOP WHILE (AND NEXT-NEIGHBOR (FUNCALL SORTER NODE-KEY (FUNCALL KEY (ELEMENT NEXT-NEIGHBOR)))) DO (SETF (NEXT-ITEM NEXT-NEIGHBOR) (NEXT-ITEM NODE) (PREVIOUS-ITEM NODE) (PREVIOUS-ITEM NEXT-NEIGHBOR)) (WHEN (NOT (EQ NEXT-NEIGHBOR (FIRST-ELEMENT LIST))) (SETF (NEXT-ITEM (PREVIOUS-ITEM NEXT-NEIGHBOR)) NODE)) (IF (NOT (EQ NODE (LAST-ELEMENT LIST))) (SETF (PREVIOUS-ITEM (NEXT-ITEM NODE)) NEXT-NEIGHBOR) (SETF (LAST-ELEMENT LIST) NEXT-NEIGHBOR)) (SETF (NEXT-ITEM NODE) NEXT-NEIGHBOR (PREVIOUS-ITEM NEXT-NEIGHBOR) NODE) (SETF NEXT-NEIGHBOR (PREVIOUS-ITEM NODE))) (WHEN (NOT NEXT-NEIGHBOR) (SETF (FIRST-ELEMENT LIST) NODE)))))

;     (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::NODE)
; 
; note: could not stack allocate: (PREVIOUS-ITEM NODE)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/lists.lisp
; in: DEFMETHOD SORT-UPDATE-RIGHT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE)
;     (DEFMETHOD METABANG.CL-CONTAINERS::SORT-UPDATE-RIGHT
;                ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::NODE METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NODE-KEY #) (METABANG.CL-CONTAINERS::NEXT-NEIGHBOR #))
;           (DECLARE (DYNAMIC-EXTENT METABANG.CL-CONTAINERS::NODE-KEY METABANG.CL-CONTAINERS::NEXT-NEIGHBOR))
;           (LOOP METABANG.CL-CONTAINERS::WHILE (AND METABANG.CL-CONTAINERS::NEXT-NEIGHBOR #)
;                 DO (SETF #) (WHEN #
;                               #) (IF #
;                                      #
;                                      #) (SETF #) (SETF #))
;           (WHEN (NOT METABANG.CL-CONTAINERS::NEXT-NEIGHBOR) (SETF #)))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::NODE))
; 
; note: could not stack allocate: (DEFMETHOD SORT-UPDATE-RIGHT ((LIST SORTED-DLIST-CONTAINER) (NODE DLIST-CONTAINER-NODE)) (WITH-SLOTS (SORTER KEY TEST) LIST (LET ((NODE-KEY (FUNCALL KEY (ELEMENT NODE))) (NEXT-NEIGHBOR (NEXT-ITEM NODE))) (DECLARE (DYNAMIC-EXTENT NODE-KEY NEXT-NEIGHBOR)) (LOOP WHILE (AND NEXT-NEIGHBOR (NOT (FUNCALL SORTER NODE-KEY (FUNCALL KEY (ELEMENT NEXT-NEIGHBOR))))) DO (SETF (PREVIOUS-ITEM NEXT-NEIGHBOR) (PREVIOUS-ITEM NODE) (NEXT-ITEM NODE) (NEXT-ITEM NEXT-NEIGHBOR)) (WHEN (NOT (EQ NEXT-NEIGHBOR (LAST-ELEMENT LIST))) (SETF (PREVIOUS-ITEM (NEXT-ITEM NEXT-NEIGHBOR)) NODE)) (IF (NOT (EQ NODE (FIRST-ELEMENT LIST))) (SETF (NEXT-ITEM (PREVIOUS-ITEM NEXT-NEIGHBOR)) NEXT-NEIGHBOR) (SETF (FIRST-ELEMENT LIST) NEXT-NEIGHBOR)) (SETF (PREVIOUS-ITEM NODE) NEXT-NEIGHBOR (NEXT-ITEM NEXT-NEIGHBOR) NODE) (SETF NEXT-NEIGHBOR (NEXT-ITEM NODE))) (WHEN (NOT NEXT-NEIGHBOR) (SETF (LAST-ELEMENT LIST) NODE)))))

;     (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::NODE)
; 
; note: could not stack allocate: (NEXT-ITEM NODE)
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-containers" "dev" "lists">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/ring-buffers.lisp
; in: DEFMETHOD ITEM-AT (RING-BUFFER)
;     (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   The binding of NUMBER is not a REAL:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20180424-git/dev/ring-buffers.lisp
; in: DEFMETHOD ITEM-AT! (RING-BUFFER T)
;     (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   The binding of NUMBER is not a REAL:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-containers" "dev" "ring-buffers">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-graph/2163417e2d2d61b2ad9d7c4eac1298d33573cdeb/cl-graph-20180424-git/dev/graph.lisp
; in: DEFMETHOD ADD-EDGE-BETWEEN-VERTEXES (BASIC-GRAPH BASIC-VERTEX BASIC-VERTEX)
;     (HANDLER-CASE (CL-GRAPH:FIND-EDGE-BETWEEN-VERTEXES CL-GRAPH:GRAPH CL-GRAPH::V-1 CL-GRAPH::V-2 :ERROR-IF-NOT-FOUND? T)
;                   (CL-GRAPH:GRAPH-EDGE-NOT-FOUND-ERROR (CL-GRAPH::ENF)
;                    (WHEN (OR (NOT #) (AND # #) (AND # #))
;                      (CL-GRAPH:FIND-EDGE-BETWEEN-VERTEXES CL-GRAPH:GRAPH CL-GRAPH::V-2 CL-GRAPH::V-1 :ERROR-IF-NOT-FOUND? NIL))))
; --> SB-INT:DX-FLET FLET 
; ==>
;   (#:FUN24 (CL-GRAPH::ENF)
;    (PROGN (WHEN (OR (NOT #) (AND # #) (AND # #)) (CL-GRAPH:FIND-EDGE-BETWEEN-VERTEXES CL-GRAPH:GRAPH CL-GRAPH::V-2 CL-GRAPH::V-1 :ERROR-IF-NOT-FOUND? NIL))))
; 
; caught STYLE-WARNING:
;   The variable ENF is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-graph" "dev" "graph">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE DTDISC-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTDISC-T HU.DWIM.GRAPHVIZ.CFFI::_DTDISC-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDISC-S)) or (:STRUCT _DTDISC-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE DTLINK-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTLINK-T HU.DWIM.GRAPHVIZ.CFFI::_DTLINK-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTLINK-S)) or (:STRUCT _DTLINK-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE DTDATA-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTDATA-T HU.DWIM.GRAPHVIZ.CFFI::_DTDATA-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDATA-S)) or (:STRUCT _DTDATA-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE DTMETHOD-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTMETHOD-T HU.DWIM.GRAPHVIZ.CFFI::_DTMETHOD-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTMETHOD-S)) or (:STRUCT _DTMETHOD-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE DT-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DT-T HU.DWIM.GRAPHVIZ.CFFI::_DT-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE DICT-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DICT-T HU.DWIM.GRAPHVIZ.CFFI::_DT-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT LAYOUT-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:LAYOUT-T
;       (HU.DWIM.GRAPHVIZ.CFFI:QUANTUM :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:SCALE :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:RATIO :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:DPI :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:MARGIN HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:PAGE HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIZE HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:FILLED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:LANDSCAPE HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:CENTERED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:LAYOUT-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::LAYOUT-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:QUANTUM :DOUBLE) (HU.DWIM.GRAPHVIZ.CFFI:SCALE :DOUBLE) (HU.DWIM.GRAPHVIZ.CFFI:RATIO :DOUBLE)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DPI :DOUBLE) (HU.DWIM.GRAPHVIZ.CFFI:MARGIN HU.DWIM.GRAPHVIZ.CFFI:POINT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:PAGE HU.DWIM.GRAPHVIZ.CFFI:POINT) (HU.DWIM.GRAPHVIZ.CFFI:SIZE HU.DWIM.GRAPHVIZ.CFFI:POINT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:FILLED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:LANDSCAPE HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:CENTERED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:RATIO-KIND HU.DWIM.GRAPHVIZ.CFFI:RATIO-T)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE POINTF
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:POINTF HU.DWIM.GRAPHVIZ.CFFI:POINTF-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT TEXTLABEL-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T
;       (HU.DWIM.GRAPHVIZ.CFFI:TEXT (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:FONTNAME (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:FONTCOLOR (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:FONTSIZE :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:DIMEN HU.DWIM.GRAPHVIZ.CFFI:POINTF)
;       (HU.DWIM.GRAPHVIZ.CFFI:P HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:D HU.DWIM.GRAPHVIZ.CFFI:POINTF)
;       (HU.DWIM.GRAPHVIZ.CFFI:SET HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:HTML HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::TEXTLABEL-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:TEXT (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:FONTNAME (:POINTER :CHAR))
;                                             (HU.DWIM.GRAPHVIZ.CFFI:FONTCOLOR (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:FONTSIZE :DOUBLE)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DIMEN HU.DWIM.GRAPHVIZ.CFFI:POINTF) (HU.DWIM.GRAPHVIZ.CFFI:P HU.DWIM.GRAPHVIZ.CFFI:POINT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:D HU.DWIM.GRAPHVIZ.CFFI:POINTF) (HU.DWIM.GRAPHVIZ.CFFI:SET HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HTML HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT BOX
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX
;       (HU.DWIM.GRAPHVIZ.CFFI:LL HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:UR HU.DWIM.GRAPHVIZ.CFFI:POINT))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:BOX '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::BOX-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:LL HU.DWIM.GRAPHVIZ.CFFI:POINT) (HU.DWIM.GRAPHVIZ.CFFI:UR HU.DWIM.GRAPHVIZ.CFFI:POINT)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE GVC-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:GVC-T HU.DWIM.GRAPHVIZ.CFFI:GVC-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GVC-S)) or (:STRUCT GVC-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGRAPHINFO-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T
;       (HU.DWIM.GRAPHVIZ.CFFI:DRAWING :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOX)
;       (HU.DWIM.GRAPHVIZ.CFFI:BORDER HU.DWIM.GRAPHVIZ.CFFI:POINT :COUNT 4)
;       (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE :UNSIGNED-CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:HAS-LABELS :UNSIGNED-CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:HAS-IMAGES HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:CHARSET :UNSIGNED-CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:RANKDIR :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:HT-1 :INT)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGRAPHINFO-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:DRAWING :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOX)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:BORDER HU.DWIM.GRAPHVIZ.CFFI:POINT :COUNT 4)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE :UNSIGNED-CHAR) (HU.DWIM.GRAPHVIZ.CFFI:HAS-LABELS :UNSIGNED-CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HAS-IMAGES HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) (HU.DWIM.GRAPHVIZ.CFFI:CHARSET :UNSIGNED-CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:RANKDIR :INT) (HU.DWIM.GRAPHVIZ.CFFI:HT-1 :INT) (HU.DWIM.GRAPHVIZ.CFFI:HT-2 :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:FLAGS :UNSIGNED-SHORT) ...))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGRAPH-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T
;       (HU.DWIM.GRAPHVIZ.CFFI::PADDING1 :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:NAME (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:UNIV :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:NODES :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:INEDGES :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:OUTEDGES :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:ROOT :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:META-NODE :POINTER)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGRAPH-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI::PADDING1 :INT) (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:NAME (:POINTER :CHAR))
;                                             (HU.DWIM.GRAPHVIZ.CFFI:UNIV :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:NODES :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:INEDGES :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:OUTEDGES :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:ROOT :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:META-NODE :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:PROTO :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE GRAPH-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:GRAPH-T HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPH-T)) or (:STRUCT AGRAPH-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGNODEINFO-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T
;       (HU.DWIM.GRAPHVIZ.CFFI:SHAPE :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:SHAPE-INFO (:POINTER :VOID))
;       (HU.DWIM.GRAPHVIZ.CFFI:COORD HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:WIDTH :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:HEIGHT :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOXF)
;       (HU.DWIM.GRAPHVIZ.CFFI:HT :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:LW :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:RW :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGNODEINFO-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:SHAPE :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:SHAPE-INFO (:POINTER :VOID))
;                                             (HU.DWIM.GRAPHVIZ.CFFI:COORD HU.DWIM.GRAPHVIZ.CFFI:POINT) (HU.DWIM.GRAPHVIZ.CFFI:WIDTH :DOUBLE)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HEIGHT :DOUBLE) (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOXF)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HT :INT) (HU.DWIM.GRAPHVIZ.CFFI:LW :INT) (HU.DWIM.GRAPHVIZ.CFFI:RW :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:ALG (:POINTER :VOID))
;                                             (HU.DWIM.GRAPHVIZ.CFFI:STATE :CHAR) ...))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGNODE-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODE-T
;       (HU.DWIM.GRAPHVIZ.CFFI::PADDING2 :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:NAME (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:ID :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:GRAPH :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGNODE-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGNODE-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI::PADDING2 :INT) (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:NAME (:POINTER :CHAR))
;                                             (HU.DWIM.GRAPHVIZ.CFFI:ID :INT) (HU.DWIM.GRAPHVIZ.CFFI:GRAPH :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE NODE-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:NODE-T HU.DWIM.GRAPHVIZ.CFFI:AGNODE-T)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODE-T)) or (:STRUCT AGNODE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT BEZIER
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER
;       (HU.DWIM.GRAPHVIZ.CFFI:LIST :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:SFLAG :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:EFLAG :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:SP HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:EP HU.DWIM.GRAPHVIZ.CFFI:POINT))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::BEZIER-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:LIST :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT) (HU.DWIM.GRAPHVIZ.CFFI:SFLAG :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:EFLAG :INT) (HU.DWIM.GRAPHVIZ.CFFI:SP HU.DWIM.GRAPHVIZ.CFFI:POINT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:EP HU.DWIM.GRAPHVIZ.CFFI:POINT)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT SPLINES
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES
;       (HU.DWIM.GRAPHVIZ.CFFI:LIST :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOXF))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:SPLINES '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::SPLINES-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:LIST :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOXF)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT PORT
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:PORT
;       (HU.DWIM.GRAPHVIZ.CFFI:P HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:THETA :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:BP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:DEFINED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:CONSTRAINED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:CLIP HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:ORDER :UNSIGNED-CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIDE :UNSIGNED-CHAR))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:PORT '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::PORT-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:P HU.DWIM.GRAPHVIZ.CFFI:POINT) (HU.DWIM.GRAPHVIZ.CFFI:THETA :DOUBLE)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:BP :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:DEFINED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:CONSTRAINED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:CLIP HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) (HU.DWIM.GRAPHVIZ.CFFI:ORDER :UNSIGNED-CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:SIDE :UNSIGNED-CHAR)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE PPOINT-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:PPOINT-T HU.DWIM.GRAPHVIZ.CFFI:POINTF-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE PPOLYLINE-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:PPOLYLINE-T HU.DWIM.GRAPHVIZ.CFFI:PPOLY-T)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PPOLY-T)) or (:STRUCT PPOLY-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGEDGEINFO-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T
;       (HU.DWIM.GRAPHVIZ.CFFI:SPL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:TAIL-PORT HU.DWIM.GRAPHVIZ.CFFI:PORT)
;       (HU.DWIM.GRAPHVIZ.CFFI:HEAD-PORT HU.DWIM.GRAPHVIZ.CFFI:PORT)
;       (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:HEAD-LABEL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:TAIL-LABEL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:EDGE-TYPE :CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:ADJACENT :CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:LABEL-ONTOP :CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE :UNSIGNED-CHAR)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGEDGEINFO-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:SPL :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:TAIL-PORT HU.DWIM.GRAPHVIZ.CFFI:PORT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HEAD-PORT HU.DWIM.GRAPHVIZ.CFFI:PORT) (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HEAD-LABEL :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:TAIL-LABEL :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:EDGE-TYPE :CHAR) (HU.DWIM.GRAPHVIZ.CFFI:ADJACENT :CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:LABEL-ONTOP :CHAR) (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE :UNSIGNED-CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:TO-ORIG :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:ALG (:POINTER :VOID)) ...))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGEDGE-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T
;       (HU.DWIM.GRAPHVIZ.CFFI::PADDING3 :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:HEAD :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:TAIL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:ID :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGEDGE-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI::PADDING3 :INT) (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:HEAD :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:TAIL :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:ID :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE EDGE-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:EDGE-T HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGE-T)) or (:STRUCT AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT PATHEND-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:PATHEND-T
;       (HU.DWIM.GRAPHVIZ.CFFI:NB HU.DWIM.GRAPHVIZ.CFFI:BOX)
;       (HU.DWIM.GRAPHVIZ.CFFI:NP HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIDEMASK :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:BOXN :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:BOXES HU.DWIM.GRAPHVIZ.CFFI:BOX :COUNT 20))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:PATHEND-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::PATHEND-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:NB HU.DWIM.GRAPHVIZ.CFFI:BOX) (HU.DWIM.GRAPHVIZ.CFFI:NP HU.DWIM.GRAPHVIZ.CFFI:POINT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:SIDEMASK :INT) (HU.DWIM.GRAPHVIZ.CFFI:BOXN :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:BOXES HU.DWIM.GRAPHVIZ.CFFI:BOX :COUNT 20)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE FILE
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:FILE HU.DWIM.GRAPHVIZ.CFFI::_IO-FILE)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _IO-FILE)) or (:STRUCT _IO-FILE) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT PATH
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:PATH
;       (HU.DWIM.GRAPHVIZ.CFFI:START HU.DWIM.GRAPHVIZ.CFFI:PORT)
;       (HU.DWIM.GRAPHVIZ.CFFI:END HU.DWIM.GRAPHVIZ.CFFI:PORT)
;       (HU.DWIM.GRAPHVIZ.CFFI:ULPP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:URPP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:LLPP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:LRPP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:NBOX :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:BOXES :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:DATA (:POINTER :VOID)))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:PATH '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::PATH-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:START HU.DWIM.GRAPHVIZ.CFFI:PORT) (HU.DWIM.GRAPHVIZ.CFFI:END HU.DWIM.GRAPHVIZ.CFFI:PORT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:ULPP :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:URPP :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:LLPP :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:LRPP :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:NBOX :INT) (HU.DWIM.GRAPHVIZ.CFFI:BOXES :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DATA (:POINTER :VOID))))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCSTRUCT FIELD-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:FIELD-T
;       (HU.DWIM.GRAPHVIZ.CFFI:SIZE HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:B HU.DWIM.GRAPHVIZ.CFFI:BOX)
;       (HU.DWIM.GRAPHVIZ.CFFI:N-FLDS :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:LP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:FLD :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:ID (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:LR :UNSIGNED-CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIDES :UNSIGNED-CHAR))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:FIELD-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::FIELD-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:SIZE HU.DWIM.GRAPHVIZ.CFFI:POINT) (HU.DWIM.GRAPHVIZ.CFFI:B HU.DWIM.GRAPHVIZ.CFFI:BOX)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:N-FLDS :INT) (HU.DWIM.GRAPHVIZ.CFFI:LP :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:FLD :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:ID (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:LR :UNSIGNED-CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:SIDES :UNSIGNED-CHAR)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/cffi.lisp
; in: DEFCTYPE ATTRSYM-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:ATTRSYM-T HU.DWIM.GRAPHVIZ.CFFI:AGSYM-T)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGSYM-T)) or (:STRUCT AGSYM-T) instead.
WARNING: Lisp compilation had style-warnings while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.graphviz" "source" "cffi">
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDISC-S)) or (:STRUCT _DTDISC-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTLINK-S)) or (:STRUCT _DTLINK-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDATA-S)) or (:STRUCT _DTDATA-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTMETHOD-S)) or (:STRUCT _DTMETHOD-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GVC-S)) or (:STRUCT GVC-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPH-T)) or (:STRUCT AGRAPH-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODE-T)) or (:STRUCT AGNODE-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PPOLY-T)) or (:STRUCT PPOLY-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGE-T)) or (:STRUCT AGEDGE-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _IO-FILE)) or (:STRUCT _IO-FILE) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGSYM-T)) or (:STRUCT AGSYM-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN NODE-COORDINATE
;     (CFFI:FOREIGN-SLOT-VALUE (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:COORD)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) 16) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN NODE-SIZE
;     (CFFI:FOREIGN-SLOT-VALUE (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-VALUE (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN SPLINE-COUNT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::SPLINES 'HU.DWIM.GRAPHVIZ.CFFI:SPLINES 'HU.DWIM.GRAPHVIZ.CFFI:SIZE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN SPLINES-OF-EDGE
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::EDGE-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:SPL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN SPLINES-BEZIER-AT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::SPLINES 'HU.DWIM.GRAPHVIZ.CFFI:SPLINES 'HU.DWIM.GRAPHVIZ.CFFI:LIST)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN BEZIER-START-POINT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:SP)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER HU.DWIM.GRAPHVIZ::BEZIER 20) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN BEZIER-END-POINT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:EP)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER HU.DWIM.GRAPHVIZ::BEZIER 28) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN BEZIER-POINT-COUNT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:SIZE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN BEZIER-POINT-AT
;     (CFFI:MEM-AREF HU.DWIM.GRAPHVIZ::POINTS 'HU.DWIM.GRAPHVIZ.CFFI:POINT HU.DWIM.GRAPHVIZ::INDEX)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; ==>
;   (CFFI:MEM-REF HU.DWIM.GRAPHVIZ::POINTS 'HU.DWIM.GRAPHVIZ.CFFI:POINT (* HU.DWIM.GRAPHVIZ::INDEX 8))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:LIST)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN EDGE-TYPE
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::EDGE-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:EDGE-TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN EDGE-LABEL
;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:LABEL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN HEAD-LABEL
;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:HEAD-LABEL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN TAIL-LABEL
;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:TAIL-LABEL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN LABEL-COORDINATE
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::LABEL 'HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T 'HU.DWIM.GRAPHVIZ.CFFI:P)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER HU.DWIM.GRAPHVIZ::LABEL 48) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN BOX-LOWER-LEFT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BOX 'HU.DWIM.GRAPHVIZ.CFFI:BOX 'HU.DWIM.GRAPHVIZ.CFFI:LL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER HU.DWIM.GRAPHVIZ::BOX 0) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN BOX-UPPER-RIGHT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BOX 'HU.DWIM.GRAPHVIZ.CFFI:BOX 'HU.DWIM.GRAPHVIZ.CFFI:UR)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER HU.DWIM.GRAPHVIZ::BOX 8) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20180424-darcs/source/graphviz.lisp
; in: DEFUN GRAPH-BOUNDING-BOX
;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::GRAPH-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:BB)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::GRAPH 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T) instead.
WARNING: Lisp compilation had style-warnings while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.graphviz" "source" "graphviz">
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: redefining HU.DWIM.COMMON:IN-PACKAGE in DEFMACRO
WARNING: redefining EMACS-INSPECT (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
Unhandled SB-INT:SIMPLE-PROGRAM-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006005B3}>: invalid number of arguments: 3

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006005B3}>
0: (SB-C:%COMPILER-DEFUN LIST-DELETE-IF NIL T) [external]
1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-C:%COMPILER-DEFUN (QUOTE LIST-DELETE-IF) NIL T) #<NULL-LEXENV>)
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SB-C:%COMPILER-DEFUN (QUOTE LIST-DELETE-IF) NIL T)) #<NULL-LEXENV>)
3: (SB-EXT:EVAL-TLF (PROGN (SB-C:%COMPILER-DEFUN (QUOTE LIST-DELETE-IF) NIL T)) 38 #<NULL-LEXENV>)
4: ((FLET SB-C::FROB :IN SB-C::EVAL-COMPILE-TOPLEVEL))
5: (SB-C::EVAL-COMPILE-TOPLEVEL ((SB-C:%COMPILER-DEFUN (QUOTE LIST-DELETE-IF) NIL T)) (#1=(EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE LIST-DELETE-IF) NIL T)) (PROGN #1# (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SETF (FDEFINITION/CC # #) (MAKE-CLOSURE/CC #)) (QUOTE LIST-DELETE-IF))) SB-C::ORIGINAL-SOURCE-START 0 38))
6: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE LIST-DELETE-IF) NIL T)) ((PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE LIST-DELETE-IF) NIL T)) (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SETF (FDEFINITION/CC # #) (MAKE-CLOSURE/CC #)) (QUOTE LIST-DELETE-IF))) SB-C::ORIGINAL-SOURCE-START 0 38) NIL)
7: (SB-C::PROCESS-TOPLEVEL-PROGN ((EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE LIST-DELETE-IF) NIL T)) (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SETF (FDEFINITION/CC (QUOTE LIST-DELETE-IF) (QUOTE DEFUN/CC)) (MAKE-CLOSURE/CC (WALK-FORM/DELICO #))) (QUOTE LIST-DELETE-IF))) ((PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE LIST-DELETE-IF) NIL T)) (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SETF (FDEFINITION/CC # #) (MAKE-CLOSURE/CC #)) (QUOTE LIST-DELETE-IF))) SB-C::ORIGINAL-SOURCE-START 0 38) NIL)
8: (SB-C::PROCESS-TOPLEVEL-FORM (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE LIST-DELETE-IF) NIL T)) (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SETF (FDEFINITION/CC (QUOTE LIST-DELETE-IF) (QUOTE DEFUN/CC)) (MAKE-CLOSURE/CC (WALK-FORM/DELICO #))) (QUOTE LIST-DELETE-IF))) (SB-C::ORIGINAL-SOURCE-START 0 38) NIL)
9: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (DEFUN/CC LIST-DELETE-IF (TEST LIST START END COUNT KEY) (LET* ((HEAD (CONS NIL LIST)) (SPLICE HEAD)) (DO ((I 0 #) (X LIST #)) ((ENDP X) (RPLACD SPLICE NIL) (CDR HEAD)) (WHEN (AND COUNT #) (RPLACD SPLICE X) (RETURN #)) (IF (AND # # #) (WHEN COUNT #) (SETQ SPLICE #))))))
10: (SB-C::PROCESS-TOPLEVEL-FORM (DEFUN/CC LIST-DELETE-IF (TEST LIST START END COUNT KEY) (LET* ((HEAD (CONS NIL LIST)) (SPLICE HEAD)) (DO ((I 0 #) (X LIST #)) ((ENDP X) (RPLACD SPLICE NIL) (CDR HEAD)) (WHEN (AND COUNT #) (RPLACD SPLICE X) (RETURN #)) (IF (AND # # #) (WHEN COUNT #) (SETQ SPLICE #))))) (SB-C::ORIGINAL-SOURCE-START 0 38) NIL)
11: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-SUB-COMPILE-FILE) (DEFUN/CC LIST-DELETE-IF (TEST LIST START END COUNT KEY) (LET* ((HEAD (CONS NIL LIST)) (SPLICE HEAD)) (DO ((I 0 #) (X LIST #)) ((ENDP X) (RPLACD SPLICE NIL) (CDR HEAD)) (WHEN (AND COUNT #) (RPLACD SPLICE X) (RETURN #)) (IF (AND # # #) (WHEN COUNT #) (SETQ SPLICE #))))) :CURRENT-INDEX 38)
12: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-SUB-COMPILE-FILE) {22226CCB}> #<SB-C::SOURCE-INFO {100F8E81B3}> SB-C::INPUT-ERROR-IN-COMPILE-FILE)
13: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {100F8E81B3}>)
14: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE))
15: ((FLET "WITHOUT-INTERRUPTS-BODY-29" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
16: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE) {7FFFF6DA656B}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {10006005B3}>> T NIL)
17: ((FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;MAIN.LISP"))
18: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
19: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {100F8E81B3}>)
20: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.delico/fc99400add620674e04e252848a00b0a38cd3a77/hu.dwim.delico-20180424-darcs/source/interpreter/common-lisp-cc.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (257)) /home/quicklisp/.cache/common-lisp/sbcl-1.4.6.140-f8d5864-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.delico/fc99400add620674e04e252848a00b0a38cd3a77/hu.dwim.delico-20180424... {100FB7B9BF}> :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :TRACE-FILE NIL :BLOCK-COMPILE NIL :EMIT-CFASL NIL)
21: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {100F8E52FB}> NIL)
22: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.delico/fc99400add620674e04e252848a00b0a38cd3a77/hu.dwim.delico-20180424-darcs/source/interpreter/common-lisp-cc.lisp" NIL #<CLOSURE (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {100F8E4A4B}>)
23: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.delico/fc99400add620674e04e252848a00b0a38cd3a77/hu.dwim.delico-20180424-darcs/source/interpreter/common-lisp-cc.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (245)) /home/quicklisp/.cache/common-lisp/sbcl-1.4.6.140-f8d5864-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.delico/fc99400add620674e04e252848a00b0a38cd3a77/hu.dwim.delico-20180424... {100FB886EF}> :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL)
24: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.delico" "source" "interpreter" "common-lisp-cc">)
25: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.delico" "source" "interpreter" "common-lisp-cc">)
26: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
27: ((FLET CALL-NEXT-METHOD :IN "/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.asdf/01112d47c5447cea51bb89332792802e103b3736/hu.dwim.asdf-20180424-darcs/source/system.lisp")) [more]
28: (HU.DWIM.ASDF::CALL-WITH-MUFFLED-BORING-COMPILER-WARNINGS #<CLOSURE (FLET CALL-NEXT-METHOD :IN "/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.asdf/01112d47c5447cea51bb89332792802e103b3736/hu.dwim.asdf-20180424-darcs/source/system.lisp") {100F8BC9BB}>)
29: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/OPERATION:OPERATION HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.delico" "source" "interpreter" "common-lisp-cc">) [fast-method]
30: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.delico" "source" "interpreter" "common-lisp-cc">) [fast-method]
31: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.delico" "source" "interpreter" "common-lisp-cc">) [fast-method]
32: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1006063843}>) [fast-method]
33: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
34: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1006063843}>) [fast-method]
35: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<HU.DWIM.DOCUMENTATION-SYSTEM "hu.dwim.asdf.documentation"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
36: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<HU.DWIM.DOCUMENTATION-SYSTEM "hu.dwim.asdf.documentation">)
37: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
38: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<HU.DWIM.DOCUMENTATION-SYSTEM "hu.dwim.asdf.documentation">) [fast-method]
39: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "hu.dwim.asdf.documentation")
40: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
41: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "hu.dwim.asdf.documentation") [fast-method]
42: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100601877B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
43: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
44: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005FE9AFB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
45: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "hu.dwim.asdf.documentation") [fast-method]
46: (DEPCHECK::COMPUTE-DEPENDENCIES "hu.dwim.asdf.documentation" "hu.dwim.asdf.documentation")
47: (DEPCHECK::MAGIC "hu.dwim.asdf.documentation" "hu.dwim.asdf.documentation" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-e22UZKqS/depcheck-win.txt")
48: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "hu.dwim.asdf.documentation" "hu.dwim.asdf.documentation" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-e22UZKqS/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-e22UZKqS/depcheck-fail.txt"))
49: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
50: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
51: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SB-EXT:SAVE-LISP-AND-DIE))
52: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 2 fatal ERROR conditions
;   caught 241 STYLE-WARNING conditions
;   printed 12 notes