anchor.diff:  (define-php-std-macro functional (&rest x)
     (when *show-definitions*
       (late-print `(functional ,@x)))
  -  (setf *functionals* (nconc x *functionals*))
  +  (append! *functionals* x)
     nil)
   
   (define-php-std-macro in-package (n)
     (setf (transpiler-current-package *js-transpiler*) (when n (make-package (symbol-name n))))
     `(%%in-package ,n))
  -
  
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: (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 &body body)
    (with ((fi-sym adef) (split-funinfo-and-args args)
           fun-name (%defun-name name))
      `(%%vm-scope
  