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 functional (&rest x)
    (when *show-definitions*
      (late-print `(functional ,@x)))
    (setf *functionals* (nconc x *functionals*))
    nil)
  
  (define-php-std-macro in-package (n)
    (setf (transpiler-current-package *js-transpiler*) (when n (make-package (symbol-name n))))
    `(%%in-package ,n))
  
  
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)))
  