anchor.diff:                        (argument-expand-names 'compile-argument-expansion adef))))))
          (%setq ~%ret nil))))
   
  -(define-php-std-macro defmacro (&rest x)
  -  (apply #'shared-defmacro x))
  +(define-php-std-macro defmacro (name args &body x)
  +  (apply #'shared-defmacro name args x))
   
   (define-php-std-macro defvar (name &optional (val '%%no-value))
     (funcall #'shared-defvar name val))
  
positive.code:      (%setq ,place ,@x)
       ((slot-value ,(list 'quote place) 'sf) ,(compiled-function-name-string *current-transpiler* place))))
  
  (define-php-std-macro define-native-php-fun (name args &rest body)
    `(%%vm-scope
       ,@(apply #'shared-defun (%defun-name name) args (body-with-noargs-tag body))
       (%setq ~%ret nil)))
  
negative.code: ;;;;; tré – Copyright (c) 2008-2012 Sven Michael Klose <pixel@copei.de>
  
  (defmacro define-php-std-macro (&rest x)
    `(define-transpiler-std-macro *php-transpiler* ,@x))
  