anchor.diff:                     (%make-opin-popups (if (and (not (prop not-viewable))
                                                  (state viewable))
                                             (prop opinions)
  -                                          ([]))
  +                                          (list))
                                         (@ this props)))))
           get-initial-state
           (lambda () (create viewable false))
  
positive.code: 
        (defun %format-looks (looks)
          (let ((res (create)))
            (dolist (itm looks)
              (when (@ itm 1)
                (setf (getprop res (@ itm 1))
                      (@ itm 0))))
            res))
  
        (def-component target-root
  
negative.code:                                              (if (and (not (prop not-viewable))
                                                        (state viewable))
                                                   opins
                                                   (list))
                                               (@ this props))))))))))
          get-initial-state
          (lambda () (create viewable false))
  