anchor.diff: -;;;;; tré - Copyright (c) 2008-2012 Sven Michael Klose <pixel@copei.de>
  +;;;;; 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))
  
positive.code: (define-php-std-macro not (&rest x)
    (? .x
       `(%not (list ,@x))
        `(let ,*not-gensym* t
           (? ,x. (setf ,*not-gensym* nil))
           ,*not-gensym*)))
  
  (define-php-std-macro defun (name args &rest body)
    (with ((fi-sym adef) (split-funinfo-and-args args)
           fun-name (%defun-name name))
      `(%%vm-scope
  
negative.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 &body body)
    `(%%vm-scope
       ,@(apply #'shared-defun (%defun-name name) args (body-with-noargs-tag body))
       (%setq ~%ret nil)))
  