anchor.diff:                                      "array.lisp"
                                       "function.lisp"
                                       "objectp.lisp")
  -                     (php-load-base "../../../environment/"
  +                     (php-load-core "../../../environment/"
                                       "not.lisp"
                                       "atom.lisp"
                                       "exception.lisp"
                                       "cps-exceptions.lisp")
  -                     (php-load-base ""
  +                     (php-load-core ""
                                       "character.lisp"
                                       "eq.lisp"
                                       "../../../environment/equality.lisp"
  
positive.code: 
  (defvar *php-core-path* "environment/transpiler/targets/php/core/")
  
  (defun php-load-base (dir-path &rest files)
    (with-temporary *have-compiler?* nil
      (mapcan [alet (+ *php-core-path* dir-path _)
                (format t  "(php-load-base \"~A\")~%" !)
                (read-file !)]
              files)))
  
  (defvar *php-core0*
  	,(list 'quote (php-load-base ""
                                   "assert.lisp"
                                   "return-value.lisp"
                                   "superglobals.lisp")))
  (defvar *php-core*
  	,(list 'quote (php-load-base ""
                                   "cons.lisp"
                                   "symbol.lisp")))
  
  (defvar *php-core2*
  	,(list 'quote (+ (php-load-base ""
                                      "../../../environment/number-typing.lisp"
                                      "print-object.lisp"
                                      "%princ.lisp"
  
negative.code:                                     "string.lisp"
                                      "base64.lisp"
                                      "quit.lisp")
                       (php-load-core "../../../environment/"
                                      "string.lisp"))))
  