anchor.diff:  ; 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-methods (class-name base-name)
  +  `(,@(!? base-name
  +          `((= (slot-value ,(compiled-function-name class-name) 'prototype) (*object.create (slot-value ,! 'prototype)))))
  +    (= (slot-value (slot-value ,(compiled-function-name class-name) 'prototype) 'constructor) ,class-name)))
   
   (defun js-gen-inherit-constructor-calls (bases)
     (@ [`((slot-value ,_ 'CALL) this)]
  
positive.code:   (awhen (@ [js-emit-method class-name _]
              (reverse (class-methods cls)))
  	`(,@(cdrlist !)
        (hash-merge (slot-value ,class-name 'prototype)
  	              (%%%make-hash-table ,@(apply #'+ (carlist !)))))))
  
  
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))))))
  