anchor.diff: -;;;;; TRE environment
  -;;;;; Copyright (c) 2008-2011 Sven Klose <pixel@copei.de>
  +;;;;; tré - Copyright (c) 2008-2012 Sven Michael Klose <pixel@copei.de>
   
   (defun ignore-body-doc (body)
     (? (and (not *transpiler-assert*)
  
positive.code: 	  (warn "Class ~A already defined." cname))
  	(setf (href classes cname)
  		  (? bases
      		 (with (bc (href classes (car bases)))
  			   (make-class :members (class-members bc)
  					       :parent bc));:methods (class-methods bc)))
  			 (make-class)))
  
negative.code: 	nil))
  
  (defun transpiler_defmethod (class-name name args &rest body)
    (when *show-definitions*
      (late-print `(defmethod ,class-name ,name ,@(awhen args (list !)))))
    (!? (href (transpiler-thisify-classes *current-transpiler*) class-name)
        (let code (list args (append (head-atoms body :but-last t)
                                     (tail-after-atoms body :keep-last t)))
          (? (assoc name (class-methods !))
             (progn
               (setf (assoc-value name (class-methods !)) code)
               (warn "In class '~A': member '~A' already defined." class-name name))
             (acons! name code (class-methods !))))
        (error "Defiinition of method ~A: class ~A is not defined." name class-name))
    nil)
  
  (defun transpiler_defmember (class-name &rest names)
    (when *show-definitions*
      (late-print `(defmember ,class-name ,@names)))
    (!? (href (transpiler-thisify-classes *current-transpiler*) class-name)
        (dolist (name names)
          (push (list name t) (class-members !)))
        (error "class ~A is not defined." class-name)))
  