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