(COMMON-LISP:DEFMETHOD INITIALIZE-INSTANCE :AFTER
                       ((SHOWCASE SHOWCASE)
                        &KEY COMPLICATE-SHAPES-P GENDER SHAPES
                        &ALLOW-OTHER-KEYS)
  (WITH-SLOTS-BOUND (SHOWCASE SHOWCASE)
    (SETF (Q+ "MINIMUM-WIDTH" ANIMATOR) 128 (Q+ "MINIMUM-HEIGHT" ANIMATOR) 96)
    (SETF (COLOR-CODE ANIMATOR) COLOR-CODE)
    (LET ((NEW
           (COND (SHAPES)
                 (COMPLICATE-SHAPES-P
                  (OBJECT-COMPLEX-AVATAR-SHAPES OBJECT GENDER))
                 (T (REMOVE-IF-NOT PREDICATE (CHILDREN OBJECT))))))
      (SETF (SHAPES SHOWCASE) NEW))
    (DRAW-OBJECT SHOWCASE)))



; compiling (DEFINE-CONSTRUCTOR (SHOWCASE COMPLICATE-SHAPES-P ...) ...)

; file: /tmp/slimewe6rXZ
; in: DEFINE-CONSTRUCTOR (SHOWCASE COMPLICATE-SHAPES-P GENDER SHAPES)
;     (PHOE-TOOLBOX:DEFINE-CONSTRUCTOR (FOX5/QT:SHOWCASE
;                                       FOX5/QT::COMPLICATE-SHAPES-P
;                                       FOX5/QT::GENDER FOX5/QT::SHAPES)
;       (QTOOLS:WITH-SLOTS-BOUND (FOX5/QT:SHOWCASE FOX5/QT:SHOWCASE)
;         (CL+QT:SETF (QTOOLS:Q+ "MINIMUM-WIDTH" FOX5/QT::ANIMATOR) 128
;                     (QTOOLS:Q+ "MINIMUM-HEIGHT" FOX5/QT::ANIMATOR) 96)
;         (CL+QT:SETF (FOX5/QT::COLOR-CODE FOX5/QT::ANIMATOR) FOX5/QT::COLOR-CODE)
;         (LET ((QT:NEW #))
;           (CL+QT:SETF (FOX5/QT::SHAPES FOX5/QT:SHOWCASE) QT:NEW))
;         (FOX5/QT::DRAW-OBJECT FOX5/QT:SHOWCASE)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER
;                           (FOX5/QT:SHOWCASE))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. FOX5/QT:SHOWCASE &KEY
;          FOX5/QT::COMPLICATE-SHAPES-P FOX5/QT::GENDER FOX5/QT::SHAPES
;          &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER FOX5/QT:SHOWCASE))
;       (DECLARE (IGNORABLE FOX5/QT:SHOWCASE))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((FOX5/QT:SHOWCASE)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (FOX5/QT:SHOWCASE) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS FOX5/QT:SHOWCASE FOX5/QT:SHOWCASE))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable SHAPES is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition