anchor.diff:    (format t "; Making phitamine project ~A for target ~A.~%" name target)
     (| (cons? files)
        (error "FILES is missing."))
  -  (? (& (eq target 'php)
  +  (? (& (eq target :php)
           (not (string? script-path)))
        (error "SCRIPT-PATH is missing but it's required to make .htaccess rules."))
     (| (string? filename)
  
positive.code: ;;;;; phitamine – Copyright (c) 2012–2014 Sven Michael Klose <pixel@copei.de>
  
  (load "phitamine/compile-time-sql-info.lisp")
  
  (defun phitamine-files (target)
    (| (in? target 'php 'nodejs)
       (error "Expecting TARGET to one of PHP or NODEJS. Got ~A." target))
    (& (eq target 'nodejs)
       (warn "Target NODEJS is under construction."))
    `("environment/platforms/shared/url/path-pathlist.lisp"
      "environment/platforms/shared/url/url-assignments.lisp"
      "environment/platforms/shared/uuid.lisp"
      "phitamine/lang.lisp"
      ,@(& (eq target 'php)
           '("environment/platforms/php/request-path.lisp"
             "phitamine/php/db-connect.lisp"
             "phitamine/php/header.lisp"
  
negative.code:                 :transpiler  (make-phitamine-transpiler target transpiler)
                  :obfuscate?  nil
                  :emitter     [put-file (format nil "~A/~A" dest-path filename) _])
    (when (eq :php target)
      (with-output-file out (format nil "~A/.htaccess" dest-path)
        (print-htaccess-rules out :script-path script-path))))
  