anchor.diff: -;;;;; phitamine – Copyright (c) 2012–2014 Sven Michael Klose <pixel@copei.de>
  +; phitamine – Copyright (c) 2012–2015 Sven Michael Klose <pixel@copei.de>
   
   (load "phitamine/compile-time-sql-info.lisp")
   
   (defun phitamine-files (target)
  -  (| (in? target 'php 'nodejs)
  +  (| (in? target :php :nodejs)
        (error "Expecting TARGET to one of PHP or NODEJS. Got ~A." target))
  -  (& (eq target 'nodejs)
  +  (& (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)
  +    ,@(& (eq target :php)
            '("environment/platforms/php/request-path.lisp"
              "phitamine/php/db-connect.lisp"
              "phitamine/php/header.lisp"
  
positive.code: 
  (defun make-phitamine-transpiler (target transpiler)
    (case target
      'php     (| transpiler
                  *php-transpiler*)
      'nodejs  (aprog1 (copy-transpiler (| transpiler
                                           *js-transpiler*))
                 (= (transpiler-configuration ! :platform) 'nodejs)
                 (= (transpiler-configuration ! :nodejs-requirements) '("fs" "http" "https" "querystring" "crypto")))))
  
  (defun make-phitamine-project (name &key (target 'php)
                                           files
                                           script-path
                                           (dest-path "compiled")
  
negative.code:            "phitamine/php/session.lisp"
             "phitamine/php/sql.lisp"
             "phitamine/php/sql-date.lisp"))
      ,@(& (eq target :nodejs)
           '("phitamine/growroom/nodejs/cookie.lisp"
             "phitamine/growroom/nodejs/server.lisp"))
      "phitamine/sql/utils-querystring.lisp"
  