cells

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

cells-test

WARNING: PARSE-VERSION: "2007-12-02" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "2007-12-02" for component "utils-kt" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/utils-kt/2c82fb87dd2d9c9d1720b22508d7000d5bd13a38/utils-kt-20210928-git/utils-kt.asd", using NIL instead
WARNING: Invalid :version specifier "2007-12-02" for component "utils-kt" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/utils-kt/2c82fb87dd2d9c9d1720b22508d7000d5bd13a38/utils-kt-20210928-git/utils-kt.asd", using NIL instead

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/trc-eko.lisp
; in: DEFUN CALL-TRC
;     (IF CELLS::PKWP
;         " ~(~s~)"
;         " ~(~s~)")
; ==>
;   " ~(~s~)"
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/cells.lisp
; in: DEFUN CELLS-RESET
;     (DEFUN CELLS:CELLS-RESET (&OPTIONAL CELLS::CLIENT-QUEUE-HANDLER &KEY DEBUG)
;       (UTILS-KT:UTILS-KT-RESET)
;       (SETF CELLS::*C-DEBUG* DEBUG
;             CELLS::*C-PROP-DEPTH* 0
;             CELLS::*NOT-TO-BE* NIL
;             CELLS::*NTB-DBG* NIL
;             CELLS::*DATA-PULSE-ID* 0
;             CELLS::*FINBIZ-ID* 0
;             ...)
;       (CELLS:TRC NIL "------ cell reset ----------------------------"))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CELLS:CELLS-RESET
;         (&OPTIONAL CELLS::CLIENT-QUEUE-HANDLER &KEY DEBUG)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CELLS:CELLS-RESET
;         (UTILS-KT:UTILS-KT-RESET)
;         (SETF CELLS::*C-DEBUG* DEBUG
;               CELLS::*C-PROP-DEPTH* 0
;               CELLS::*NOT-TO-BE* NIL
;               CELLS::*NTB-DBG* NIL
;               CELLS::*DATA-PULSE-ID* 0
;               CELLS::*FINBIZ-ID* 0
;               ...)
;         (CELLS:TRC NIL "------ cell reset ----------------------------")))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL CLIENT-QUEUE-HANDLER &KEY DEBUG)
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells" "cells">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/integrity.lisp
; in: DEFINE-CONSTANT *UFB-OPCODES*
;     (UTILS-KT:DEFINE-CONSTANT CELLS::*UFB-OPCODES*
;                               '(:TELL-DEPENDENTS :AWAKEN :CLIENT :EPHEMERAL-RESET
;                                 :CHANGE :POST-CHANGE))
; --> DEFCONSTANT EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFCONSTANT 'CELLS::*UFB-OPCODES*
;                          (IF (NOT (BOUNDP 'CELLS::*UFB-OPCODES*))
;                              '(:TELL-DEPENDENTS :AWAKEN :CLIENT
;                                :EPHEMERAL-RESET :CHANGE :POST-CHANGE)
;                              (LET ((UTILS-KT::VALUE '#))
;                                (IF (EQUAL UTILS-KT::VALUE #)
;                                    (SYMBOL-VALUE 'CELLS::*UFB-OPCODES*)
;                                    UTILS-KT::VALUE)))
;                          (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Defining (*UFB-OPCODES*) as a constant, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/integrity.lisp
; in: DEFUN CALL-WITH-INTEGRITY
;     (LET ((CELLS::*ISTACK*
;            (LIST (LIST CELLS::OPCODE CELLS::DEFER-INFO)
;                  (LIST :TRIGGER CELLS::CODE)
;                  (LIST :START-DP CELLS::*DATA-PULSE-ID*))))
;       (CELLS:TRC "*istack* bound")
;       (HANDLER-CASE (CELLS::GO-GO)
;                     (CELLS::XCELL (CELLS::C)
;                      (IF (FUNCTIONP CELLS::*C-DEBUG*)
;                          (FUNCALL CELLS::*C-DEBUG* CELLS::C #)
;                          (LOOP CELLS::FOR CELLS::F CELLS::IN #
;                                DO #
;                                CELLS::FINALLY # #))))
;       (CELLS:TRC "*istack* unbinding"))
; 
; note: deleting unreachable code

;     (CELLS:TRC "*istack* bound")
; --> CELLS:WITHOUT-C-DEPENDENCY LET CELLS::CALL-TRC 
; ==>
;   "*istack* bound"
; 
; note: deleting unreachable code

;     (FUNCTIONP CELLS::*C-DEBUG*)
; 
; note: deleting unreachable code

;     (NREVERSE CELLS::*ISTACK*)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (CELLS:TRC "*istack* unbinding")
; --> CELLS:WITHOUT-C-DEPENDENCY LET CELLS::CALL-TRC 
; ==>
;   "*istack* unbinding"
; 
; note: deleting unreachable code

;     (DESCRIBE CELLS::C)
; ==>
;   CELLS::C
; 
; note: deleting unreachable code

;     (FORMAT T "~&istk> ~(~a~) " CELLS::F)
; ==>
;   CELLS::F
; 
; note: deleting unreachable code
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells" "integrity">
STYLE-WARNING: Defining (*UFB-OPCODES*) as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/cell-types.lisp
; in: DEFSTRUCT CELL
;     (DEFSTRUCT (CELLS:CELL (:CONC-NAME CELLS::C-))
;       CELLS::MODEL
;       CELLS::SLOT-NAME
;       CELLS:VALUE
;       CELLS::INPUTP
;       CELLS::SYNAPTIC
;       (CELLS::CALLER-STORE (UTILS-KT:MAKE-FIFO-QUEUE) :TYPE CONS)
;       (CELLS::STATE :NASCENT :TYPE SYMBOL)
;       (CELLS::VALUE-STATE :UNBOUND :TYPE SYMBOL)
;       (CELLS::PULSE 0 :TYPE FIXNUM)
;       (CELLS::PULSE-LAST-CHANGED 0 :TYPE FIXNUM)
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CELLS:CELL {100C9FFB33}>
;    '#(#<SB-KERNEL:WRAPPER (ID=0) for T {50201003}>
;       #<SB-KERNEL:WRAPPER (ID=1) for STRUCTURE-OBJECT {50201073}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to CELLS::C-MODEL could not be inlined because the structure definition for CELLS:CELL was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells" "cell-types">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/initialize.lisp
; in: EVAL-WHEN (COMPILE EVAL LOAD)
;     (EVAL-WHEN (COMPILE EVAL LOAD) (EXPORT '(CELLS::C-ENVALUE)))
; 
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names LOAD EVAL COMPILE
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells" "initialize">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/md-utilities.lisp
; in: DEFGENERIC NOT-TO-BE
;     'CELLS::FAMILY
; 
; note: can't open-code test of unknown type FAMILY

;     (CELLS:WTRC (0 100 "not.to-be nailing" CELLS:SELF
;                  (WHEN (TYPEP CELLS:SELF 'CELLS::FAMILY)
;                    (MAPCAR 'TYPE-OF (SLOT-VALUE CELLS:SELF 'CELLS:.KIDS))))
;       (CELLS::GOK)
;       (WHEN CELLS::DBG (CELLS:TRC "finished nailing" CELLS:SELF)))
; --> LET SB-C::WITH-SOURCE-FORM WHEN IF IF SB-C::WITH-SOURCE-FORM CELLS:TRC 
; --> SB-C::WITH-SOURCE-FORM CELLS:WITHOUT-C-DEPENDENCY LET CELLS::CALL-TRC 
; ==>
;   "not.to-be nailing"
; 
; note: deleting unreachable code

;     (CELLS::GOK)
; 
; note: deleting unreachable code

;     (CELLS:TRC "finished nailing" CELLS:SELF)
; --> CELLS:WITHOUT-C-DEPENDENCY LET CELLS::CALL-TRC 
; ==>
;   "finished nailing"
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/md-utilities.lisp
; in: DEFUN COUNT-MODEL
;     (LET ((CELLS::*COUNTED* (MAKE-HASH-TABLE :TEST 'EQ :SIZE 5000)))
;       (UTILS-KT:WITH-METRICS (T NIL "cells statistics for" CELLS:SELF)
;           (LABELS ((CELLS::CC #
;                      #))
;             (CELLS::CC CELLS:SELF NIL))))
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol (CELLS::*COUNTED*), not the
;   dynamic binding, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

;     (TYPECASE CELLS:SELF
;       (CONS
;        (CELLS::CC (CAR CELLS:SELF) CELLS::FROM)
;        (CELLS::CC (CDR CELLS:SELF) CELLS::FROM))
;       (CELLS::MODEL
;        (WHEN (ZEROP (MOD # 100))
;          (CELLS:TRC "cc" (CELLS:MD-NAME CELLS:SELF) (TYPE-OF CELLS:SELF)))
;        (UTILS-KT:COUNT-IT! :THING)
;        (UTILS-KT:COUNT-IT! :THING (TYPE-OF CELLS:SELF))
;        (WHEN CELLS::COUNT-CELLS
;          (LOOP CELLS::FOR (NIL . CELLS::C) CELLS::IN (CELLS::CELLS CELLS:SELF)
;                DO (UTILS-KT:COUNT-IT! :LIVE-CELL) (WHEN #
;                                                     #
;                                                     #) (TYPECASE CELLS::C
;                                                          #
;                                                          #) (LOOP CELLS::REPEAT #
;                                                                   DO #))
;          (LOOP CELLS::REPEAT (LENGTH #)
;                DO (UTILS-KT:COUNT-IT! :FLUSHED-CELL)))
;        (LOOP CELLS::FOR CELLS::SLOT CELLS::IN (CELLS::MD-OWNING-SLOTS CELLS:SELF)
;              DO (LOOP CELLS::FOR CELLS::K CELLS::IN (LET #
;                                                       #)
;                       DO (CELLS::CC CELLS::K CELLS:SELF))))
;       (OTHERWISE (UTILS-KT:COUNT-IT (TYPE-OF CELLS:SELF))))
; --> LET COND IF IF 
; ==>
;   (TYPEP #:G2 'CELLS::MODEL)
; 
; note: can't open-code test of unknown type MODEL

; ==>
;   (TYPEP #:G13 'CELLS::MODEL)
; 
; note: can't open-code test of unknown type MODEL

; ==>
;   (TYPEP #:G25 'CELLS::MODEL)
; 
; note: can't open-code test of unknown type MODEL

; ==>
;   (TYPEP #:G36 'CELLS::MODEL)
; 
; note: can't open-code test of unknown type MODEL

;     (UTILS-KT:WITH-METRICS (T NIL "cells statistics for" CELLS:SELF)
;         (LABELS ((CELLS::CC (CELLS:SELF CELLS::FROM)
;                    (UNLESS # # #)))
;           (CELLS::CC CELLS:SELF NIL)))
; --> UTILS-KT:WITH-COUNTS IF LET PROG2 PROG1 LET PROGN PROGN UTILS-KT:TIMEX IF 
; --> PROG2 PROG1 LET PROGN FORMAT LIST 
; ==>
;   "cells statistics for"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; --> UTILS-KT:WITH-COUNTS IF PROGN UTILS-KT:TIMEX IF PROG2 PROG1 LET PROGN 
; --> FORMAT LIST 
; ==>
;   "cells statistics for"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LABELS ((CELLS::CC (CELLS:SELF CELLS::FROM)
;                (UNLESS (GETHASH CELLS:SELF CELLS::*COUNTED*)
;                  (SETF #)
;                  (TYPECASE CELLS:SELF # # #))))
;       (CELLS::CC CELLS:SELF NIL))
; 
; note: deleting unreachable code

;     (TYPE-OF CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (CELLS::CC CELLS::K CELLS:SELF)
; ==>
;   CELLS::K
; 
; note: deleting unreachable code

;     (IF (LISTP CELLS::SV)
;         CELLS::SV
;         (LIST CELLS::SV))
; ==>
;   CELLS::SV
; 
; note: deleting unreachable code

;     (LET ((CELLS::SV (SLOT-VALUE CELLS:SELF CELLS::SLOT)))
;       (IF (LISTP CELLS::SV)
;           CELLS::SV
;           (LIST CELLS::SV)))
; 
; note: deleting unreachable code

;     (CELLS::MD-OWNING-SLOTS CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (CELLS::C-CALLERS CELLS::C)
; 
; note: deleting unreachable code

;     (CELLS::CELLS-FLUSHED CELLS:SELF)
; 
; note: deleting unreachable code

;     (TYPECASE CELLS::C
;       (CELLS::C-DEPENDENT (UTILS-KT:COUNT-IT! :DEPENDENT-CELL))
;       (OTHERWISE
;        (IF (CELLS::C-INPUTP CELLS::C)
;            (PROGN (UTILS-KT:COUNT-IT! :C-INPUT-ALTOGETHER))
;            (UTILS-KT:COUNT-IT! :C-UNKNOWN))))
; --> LET 
; ==>
;   CELLS::C
; 
; note: deleting unreachable code

;     (CELLS::CELLS CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (WHEN CELLS::COUNT-CELLS
;       (LOOP CELLS::FOR (NIL . CELLS::C) CELLS::IN (CELLS::CELLS CELLS:SELF)
;             DO (UTILS-KT:COUNT-IT! :LIVE-CELL) (WHEN (CELLS::C-LAZY CELLS::C)
;                                                  (UTILS-KT:COUNT-IT! :LAZY)
;                                                  (UTILS-KT:COUNT-IT! :LAZY
;                                                                      (CELLS::C-VALUE-STATE
;                                                                       CELLS::C))) (TYPECASE
;                                                                                       CELLS::C
;                                                                                     (CELLS::C-DEPENDENT
;                                                                                      (UTILS-KT:COUNT-IT!
;                                                                                       :DEPENDENT-CELL))
;                                                                                     (OTHERWISE
;                                                                                      (IF #
;                                                                                          #
;                                                                                          #))) (LOOP CELLS::REPEAT (LENGTH
;                                                                                                                    (CELLS::C-CALLERS
;                                                                                                                     CELLS::C))
;                                                                                                     DO (UTILS-KT:COUNT-IT!
;                                                                                                         :CELL-CALLERS)))
;       (LOOP CELLS::REPEAT (LENGTH (CELLS::CELLS-FLUSHED CELLS:SELF))
;             DO (UTILS-KT:COUNT-IT! :FLUSHED-CELL)))
; --> IF 
; ==>
;   CELLS::COUNT-CELLS
; 
; note: deleting unreachable code

;     (CELLS:TRC "cc" (CELLS:MD-NAME CELLS:SELF) (TYPE-OF CELLS:SELF))
; --> CELLS:WITHOUT-C-DEPENDENCY LET CELLS::CALL-TRC 
; ==>
;   "cc"
; 
; note: deleting unreachable code

;     (CAR CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (TYPE-OF CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (CELLS::CC CELLS::K CELLS:SELF)
; ==>
;   CELLS::K
; 
; note: deleting unreachable code

;     (IF (LISTP CELLS::SV)
;         CELLS::SV
;         (LIST CELLS::SV))
; ==>
;   CELLS::SV
; 
; note: deleting unreachable code

;     (LET ((CELLS::SV (SLOT-VALUE CELLS:SELF CELLS::SLOT)))
;       (IF (LISTP CELLS::SV)
;           CELLS::SV
;           (LIST CELLS::SV)))
; 
; note: deleting unreachable code

;     (CELLS::MD-OWNING-SLOTS CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (CELLS::C-CALLERS CELLS::C)
; 
; note: deleting unreachable code

;     (CELLS::CELLS-FLUSHED CELLS:SELF)
; 
; note: deleting unreachable code

;     (TYPECASE CELLS::C
;       (CELLS::C-DEPENDENT (UTILS-KT:COUNT-IT! :DEPENDENT-CELL))
;       (OTHERWISE
;        (IF (CELLS::C-INPUTP CELLS::C)
;            (PROGN (UTILS-KT:COUNT-IT! :C-INPUT-ALTOGETHER))
;            (UTILS-KT:COUNT-IT! :C-UNKNOWN))))
; --> LET 
; ==>
;   CELLS::C
; 
; note: deleting unreachable code

;     (CELLS::CELLS CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (WHEN CELLS::COUNT-CELLS
;       (LOOP CELLS::FOR (NIL . CELLS::C) CELLS::IN (CELLS::CELLS CELLS:SELF)
;             DO (UTILS-KT:COUNT-IT! :LIVE-CELL) (WHEN (CELLS::C-LAZY CELLS::C)
;                                                  (UTILS-KT:COUNT-IT! :LAZY)
;                                                  (UTILS-KT:COUNT-IT! :LAZY
;                                                                      (CELLS::C-VALUE-STATE
;                                                                       CELLS::C))) (TYPECASE
;                                                                                       CELLS::C
;                                                                                     (CELLS::C-DEPENDENT
;                                                                                      (UTILS-KT:COUNT-IT!
;                                                                                       :DEPENDENT-CELL))
;                                                                                     (OTHERWISE
;                                                                                      (IF #
;                                                                                          #
;                                                                                          #))) (LOOP CELLS::REPEAT (LENGTH
;                                                                                                                    (CELLS::C-CALLERS
;                                                                                                                     CELLS::C))
;                                                                                                     DO (UTILS-KT:COUNT-IT!
;                                                                                                         :CELL-CALLERS)))
;       (LOOP CELLS::REPEAT (LENGTH (CELLS::CELLS-FLUSHED CELLS:SELF))
;             DO (UTILS-KT:COUNT-IT! :FLUSHED-CELL)))
; --> IF 
; ==>
;   CELLS::COUNT-CELLS
; 
; note: deleting unreachable code

;     (CELLS:TRC "cc" (CELLS:MD-NAME CELLS:SELF) (TYPE-OF CELLS:SELF))
; --> CELLS:WITHOUT-C-DEPENDENCY LET CELLS::CALL-TRC 
; ==>
;   "cc"
; 
; note: deleting unreachable code

;     (CAR CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (TYPE-OF CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (CELLS::CC CELLS::K CELLS:SELF)
; ==>
;   CELLS::K
; 
; note: deleting unreachable code

;     (IF (LISTP CELLS::SV)
;         CELLS::SV
;         (LIST CELLS::SV))
; ==>
;   CELLS::SV
; 
; note: deleting unreachable code

;     (LET ((CELLS::SV (SLOT-VALUE CELLS:SELF CELLS::SLOT)))
;       (IF (LISTP CELLS::SV)
;           CELLS::SV
;           (LIST CELLS::SV)))
; 
; note: deleting unreachable code

;     (CELLS::MD-OWNING-SLOTS CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (CELLS::C-CALLERS CELLS::C)
; 
; note: deleting unreachable code

;     (CELLS::CELLS-FLUSHED CELLS:SELF)
; 
; note: deleting unreachable code

;     (TYPECASE CELLS::C
;       (CELLS::C-DEPENDENT (UTILS-KT:COUNT-IT! :DEPENDENT-CELL))
;       (OTHERWISE
;        (IF (CELLS::C-INPUTP CELLS::C)
;            (PROGN (UTILS-KT:COUNT-IT! :C-INPUT-ALTOGETHER))
;            (UTILS-KT:COUNT-IT! :C-UNKNOWN))))
; --> LET 
; ==>
;   CELLS::C
; 
; note: deleting unreachable code

;     (CELLS::CELLS CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (WHEN CELLS::COUNT-CELLS
;       (LOOP CELLS::FOR (NIL . CELLS::C) CELLS::IN (CELLS::CELLS CELLS:SELF)
;             DO (UTILS-KT:COUNT-IT! :LIVE-CELL) (WHEN (CELLS::C-LAZY CELLS::C)
;                                                  (UTILS-KT:COUNT-IT! :LAZY)
;                                                  (UTILS-KT:COUNT-IT! :LAZY
;                                                                      (CELLS::C-VALUE-STATE
;                                                                       CELLS::C))) (TYPECASE
;                                                                                       CELLS::C
;                                                                                     (CELLS::C-DEPENDENT
;                                                                                      (UTILS-KT:COUNT-IT!
;                                                                                       :DEPENDENT-CELL))
;                                                                                     (OTHERWISE
;                                                                                      (IF #
;                                                                                          #
;                                                                                          #))) (LOOP CELLS::REPEAT (LENGTH
;                                                                                                                    (CELLS::C-CALLERS
;                                                                                                                     CELLS::C))
;                                                                                                     DO (UTILS-KT:COUNT-IT!
;                                                                                                         :CELL-CALLERS)))
;       (LOOP CELLS::REPEAT (LENGTH (CELLS::CELLS-FLUSHED CELLS:SELF))
;             DO (UTILS-KT:COUNT-IT! :FLUSHED-CELL)))
; --> IF 
; ==>
;   CELLS::COUNT-CELLS
; 
; note: deleting unreachable code

;     (CELLS:TRC "cc" (CELLS:MD-NAME CELLS:SELF) (TYPE-OF CELLS:SELF))
; --> CELLS:WITHOUT-C-DEPENDENCY LET CELLS::CALL-TRC 
; ==>
;   "cc"
; 
; note: deleting unreachable code

;     (CAR CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells" "md-utilities">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/family.lisp
; in: DEFSTRUCT KID-SLOTDEF
;     (DEFSTRUCT (CELLS::KID-SLOTDEF (:CONC-NAME NIL))
;       CELLS::KS-NAME
;       CELLS::KS-RULE
;       (CELLS::KS-IF-MISSING T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CELLS::KID-SLOTDEF {1017EF13F3}>
;    '#(#<SB-KERNEL:WRAPPER (ID=0) for T {50201003}>
;       #<SB-KERNEL:WRAPPER (ID=1) for STRUCTURE-OBJECT {50201073}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CELLS::KS-NAME, CELLS::KS-RULE and CELLS::KS-IF-MISSING could not be inlined because the structure definition for CELLS::KID-SLOTDEF was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells" "family">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/fm-utilities.lisp
; in: DEFUN FM-FIND-ALL
;     (UTILS-KT:WITH-DYNAMIC-FN (CELLS::FILTER (CELLS::KID)
;                                (EQL CELLS:MD-NAME (CELLS:MD-NAME CELLS::KID)))
;       (LET ((CELLS::MATCHES (REMOVE-IF-NOT CELLS::FILTER #)))
;         (WHEN CELLS::MATCHES (THROW 'CELLS:FM-FIND-ALL CELLS::MATCHES))))
; --> LET LAMBDA 
; ==>
;   #'(LAMBDA (CELLS::KID) (EQL CELLS:MD-NAME (CELLS:MD-NAME CELLS::KID)))
; 
; note: could not stack allocate: (WITH-DYNAMIC-FN (FILTER (KID) (EQL MD-NAME (MD-NAME KID))) (LET ((MATCHES (REMOVE-IF-NOT FILTER (KIDS FAMILY)))) (WHEN MATCHES (THROW (QUOTE FM-FIND-ALL) MATCHES))))

;     (UTILS-KT:WITH-DYNAMIC-FN (CELLS::TRAVELLER (CELLS:FAMILY)
;                                (UTILS-KT:WITH-DYNAMIC-FN (CELLS::FILTER
;                                                           (CELLS::KID)
;                                                           (EQL CELLS:MD-NAME #))
;                                  (LET (#)
;                                    (WHEN CELLS::MATCHES #))))
;       (CELLS:FM-TRAVERSE CELLS:FAMILY CELLS::TRAVELLER :GLOBAL-SEARCH
;        CELLS::GLOBAL-SEARCH))
; --> LET LAMBDA 
; ==>
;   #'(LAMBDA (CELLS:FAMILY)
;       (UTILS-KT:WITH-DYNAMIC-FN (CELLS::FILTER (CELLS::KID)
;                                  (EQL CELLS:MD-NAME (CELLS:MD-NAME CELLS::KID)))
;         (LET ((CELLS::MATCHES #))
;           (WHEN CELLS::MATCHES (THROW 'CELLS:FM-FIND-ALL CELLS::MATCHES)))))
; 
; note: could not stack allocate: (WITH-DYNAMIC-FN (TRAVELLER (FAMILY) (WITH-DYNAMIC-FN (FILTER (KID) (EQL MD-NAME (MD-NAME KID))) (LET ((MATCHES (REMOVE-IF-NOT FILTER (KIDS FAMILY)))) (WHEN MATCHES (THROW (QUOTE FM-FIND-ALL) MATCHES))))) (FM-TRAVERSE FAMILY TRAVELLER :GLOBAL-SEARCH GLOBAL-SEARCH))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/fm-utilities.lisp
; in: DEFUN FM-KID-CONTAINING
;     (UTILS-KT:WITH-DYNAMIC-FN (CELLS::FINDER (CELLS::NODE)
;                                (NOT (EQL CELLS:FM-PARENT CELLS::NODE)))
;       (CELLS:FM-TOP CELLS::DESCENDANT CELLS::FINDER))
; --> LET LAMBDA 
; ==>
;   #'(LAMBDA (CELLS::NODE) (NOT (EQL CELLS:FM-PARENT CELLS::NODE)))
; 
; note: could not stack allocate: (WITH-DYNAMIC-FN (FINDER (NODE) (NOT (EQL FM-PARENT NODE))) (FM-TOP DESCENDANT FINDER))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/cells-test/person.lisp
; in: DEFOBSERVER S-VALUE
;     (CELLS:DEFOBSERVER CELLS::S-VALUE NIL :TEST)
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF 
; ==>
;   (FORMAT T "~&output ~d (~a ~a) old: ~a" #:G0 'CELLS::S-VALUE #:G1
;           CELLS:OLD-VALUE CELLS::C)
; 
; caught STYLE-WARNING:
;   Too many arguments (5) to FORMAT "~&output ~d (~a ~a) old: ~a": uses at most 4.
;   See also:
;     The ANSI Standard, Section 22.3.10.2

; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET 
; ==>
;   (FORMAT T "~&output ~d (~a ~a) new: ~a" #:G0 'CELLS::S-VALUE #:G1
;           CELLS:NEW-VALUE CELLS::C)
; 
; caught STYLE-WARNING:
;   Too many arguments (5) to FORMAT "~&output ~d (~a ~a) new: ~a": uses at most 4.
;   See also:
;     The ANSI Standard, Section 22.3.10.2

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20210928-git/cells-test/person.lisp
; in: DEFOBSERVER E-VALUE
;     (CELLS:DEFOBSERVER CELLS::E-VALUE NIL :TEST)
; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET WHEN IF 
; ==>
;   (FORMAT T "~&output ~d (~a ~a) old: ~a" #:G0 'CELLS::E-VALUE #:G1
;           CELLS:OLD-VALUE CELLS::C)
; 
; caught STYLE-WARNING:
;   Too many arguments (5) to FORMAT "~&output ~d (~a ~a) old: ~a": uses at most 4.
;   See also:
;     The ANSI Standard, Section 22.3.10.2

; --> PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET 
; ==>
;   (FORMAT T "~&output ~d (~a ~a) new: ~a" #:G0 'CELLS::E-VALUE #:G1
;           CELLS:NEW-VALUE CELLS::C)
; 
; caught STYLE-WARNING:
;   Too many arguments (5) to FORMAT "~&output ~d (~a ~a) new: ~a": uses at most 4.
;   See also:
;     The ANSI Standard, Section 22.3.10.2
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells-test" "cells-test" "person">
Unhandled SIMPLE-CONDITION in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: break

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-CONDITION "break" {102BA87333}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SIMPLE-CONDITION "break" {102BA87333}>)
2: (INVOKE-DEBUGGER #<SIMPLE-CONDITION "break" {102BA87333}>)
3: (SB-INT:%BREAK BREAK "break")
4: (BREAK "break")
5: (CELLS::CV-TEST-PERSON-5)
6: (CELLS::TEST-CELLS)
7: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cells-test">)
8: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
9: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cells-test">) [fast-method]
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005902463}>) [fast-method]
11: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
12: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005902463}>) [fast-method]
13: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cells-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
14: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cells-test">)
15: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
16: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cells-test">) [fast-method]
17: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cells-test")
18: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
19: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cells-test") [fast-method]
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10058FBDAB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
21: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
22: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10058BE52B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
23: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cells-test") [fast-method]
24: (DEPCHECK::COMPUTE-DEPENDENCIES "cells-test" "cells-test")
25: (DEPCHECK::MAGIC "cells-test" "cells-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-p9goJlSX/depcheck-win.txt")
26: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cells-test" "cells-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-p9goJlSX/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-p9goJlSX/depcheck-fail.txt"))
27: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
28: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
29: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
30: (SB-IMPL::START-LISP)

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