anchor.diff:                                               (if (and (not (prop not-viewable))
                                                         (state viewable))
                                                    opins
  -                                                 ([]))
  +                                                 (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:                    (%make-opin-popups (if (and (not (prop not-viewable))
                                                 (state viewable))
                                            (prop opinions)
                                            (list))
                                        (@ this props)))))
          get-initial-state
          (lambda () (create viewable false))
  