anchor.diff:  (define-php-std-macro finalize-class (class-name)
     (let classes (thisify-classes)
       (!? (href classes class-name)
  -	    `{(defun ,($ class-name '?) (x)
  +	    `{(fn ,($ class-name '?) (x)
   	        (& (object? x)
   	           (is_a x ,(obfuscated-identifier class-name))
                  x))
  
positive.code: (define-php-std-macro defmember (class-name &rest names)
    (apply #'generic-defmember class-name names))
  
  (defun php-method-function (class-name x)
    `(function ,(php-method-name class-name x.)
               (,(. 'this .x.)
                (let ~%this this
  	            (%thisify ,class-name ,@(| ..x. (list nil)))))))
  
  (defun php-method-functions (class-name cls)
    (awhen (class-methods cls)
  	(@ [php-method-function class-name _]
         (reverse !))))
  
  (defun php-method (class-name x)
    `("public function " ,x. " " ,(php-argument-list (argument-expand-names 'php-method .x.)) ,*php-newline*
      "{" ,*php-newline*
          ,*php-indent* "return " ,(php-compiled-method-name class-name x.) ,(php-argument-list (argument-expand-names 'php-method-function-call (. 'this .x.))) ,*php-separator*
      "}"))
  
  (defun php-members (class-name cls)
    (awhen (class-members cls)
  	(@ [`(%%native "var $" ,_. ,*php-separator*)]
         (reverse !))))
  
  (defun php-methods (class-name cls)
    (awhen (class-methods cls)
  	(mapcan [php-method class-name _]
              (reverse !))))
  
negative.code: (fn php-constructor-name (class-name)
    ($ class-name '-constructor))
  
  (fn php-compiled-constructor-name (class-name)
    (compiled-function-name (php-constructor-name class-name)))
  
  (fn php-method-name (class-name name)
    ($ class-name '- name))
  
  (fn php-compiled-method-name (class-name name)
    (compiled-function-name (php-method-name class-name name)))
  
  (fn php-constructor (class-name bases args body)
    (add-defined-function class-name args body)
    `(function ,(php-constructor-name class-name)
               (,(. 'this args)
                (let ~%this this
                  (%thisify ,class-name
                    (macrolet ((super (&rest args)
                                `((%%native "parent::__construct" ,@args))))
                      ,@body))))))
  
  (define-php-std-macro defclass (class-name args &body body)
    (apply #'generic-defclass #'php-constructor class-name args body))
  