anchor.diff:  handled differently."
     (let*
         ((constructors
  -        (remove-if-not (lambda (x) (and (listp x) (string-equal (car x) 'constructor))) params))
  +        (remove-if-not (lambda (x) (and (listp x) (string-equal (car x) 'constructor)))
  +                       (cdr params)))
          (others
  -        (remove-if (lambda (x) (and (listp x) (string-equal (car x) 'constructor))) params))
  +        (remove-if (lambda (x) (and (listp x) (string-equal (car x) 'constructor)))
  +                   (cdr params)))
          (constructor
           (case (length constructors)
  -          (0 `(defun ,name ()))
  +          (0 `(defun ,name () (chain #:-react #:-pure-component (#:call #:this))))
             (1 `(defun ,name ,@(cddr constructors)))
             (otherwise (error "Component can't have more than one constructor")))))
       `(macrolet
  
positive.code:             `(chain %thisref #:state ,@params))
            (cl-react:set-state (&rest params)
              `(chain %thisref (#:set-state (create ,@params)))))
         ,constructor
         ,@(mapcar
            (lambda (item)
              `(setf (@ ,name prototype ,(car item))
                     (lambda ,(second item) ,@(%add-thisref-binding (cddr item)))))
            others)
         (setf (@ ,name prototype) (chain -object (create (@ -react -pure-component prototype))))
         (setf (@ ,name prototype constructor) ,name))))
  
  (defpsmacro cl-react:prop (&rest params)
    `(chain this #:props ,@params))
  
negative.code:             (ps:create
               ,@(when (car params)
                       `(:render (lambda ()
                                   ,@(%add-thisref-binding  (list (car params))))))
               ,@(when name
                       `(#:display-name ',name))
               ,@(loop for (k v) on (cdr params) by #'cddr
                    collect k
                    collect (%add-thisref-lambda v))))))
      `(macrolet
           ((cl-react:prop (&rest params)
              `(chain %thisref #:props ,@params))
  