anchor.diff:    (print-definition `(finalize-class ,class-name))
     (!? (href (thisify-classes) class-name)
         `{,(assoc-value class-name *delayed-constructors*)
  -        ,@(js-emit-methods class-name !)}
  +        ,@(js-emit-methods class-name !)
  +        (= (slot-value (slot-value ,(compiled-function-name class-name) 'prototype) 'constructor) ,class-name)}
         (error "Cannot finalize undefined class ~A." class-name)))
  
positive.code:           (%thisify ,class-name
              ,@(| ..x. (list nil)))))))
  
  (fn js-emit-methods (class-name cls)
    (!? (@ [js-emit-method class-name _]
           (reverse (class-methods cls)))
        `(,@(cdrlist !)
          ,@(js-gen-inherit-methods class-name (!? (class-parent cls)
  
negative.code: (fn js-gen-constructor (class-name bases args body)
    `{(fn ,class-name ,args
        (%thisify ,class-name
  