anchor.diff:    (awhen (@ [js-emit-method class-name _]
               (reverse (class-methods cls)))
   	`(,@(cdrlist !)
  +      ,@(js-gen-inherit-methods class-name (!? (class-parent cls)
  +                                               (class-name !)))
         (hash-merge (slot-value ,class-name 'prototype)
   	              (%%%make-hash-table ,@(apply #'+ (carlist !)))))))
   
  
positive.code: ; tré – Copyright (c) 2008–2016 Sven Michael Klose <pixel@copei.de>
  
  (defun js-gen-inherit-methods (class-name bases)
    (@ [`(hash-merge (slot-value ,class-name 'prototype)
                     (slot-value ,_ 'prototype))]
       bases))
  
  (defun js-gen-inherit-constructor-calls (bases)
    (@ [`((slot-value ,_ 'CALL) this)]
  
negative.code:            ; TOOD: Set 'super' instead.
             ,@(js-gen-inherit-constructor-calls bases)
             ,@body))
         (declare-cps-exception ,($ class-name '?))
  	   (defun ,($ class-name '?) (x)
  	     (%%native x " instanceof " ,(compiled-function-name-string class-name))))))
  