anchor.diff:    (setq sb-impl::*default-external-format* :utf-8))
   
   #|
  -From here by codes should not include lisp implementation dependency.
  +From here by should not include lisp implementation dependency.
   |#
  -
  -(defvar *project-directory* nil)
  -(defvar *run-child-function* 'run-child)
  -
   
   (defun _ (pkg sym &rest args)
     (let ((symbol (intern (symbol-name sym) (find-package pkg))))
  
positive.code:   #+ccl (#_close fd))
  
  (defun exit ()
    #+sbcl(sb-unix:unix-exit)
    #+allegro (excl:exit 0 :quiet t)
    #+ccl (#_exit 0))
  
  
negative.code: 		      (format t "~&loading ~S~%" lpath)
  		      (force-output)
  		      (load lpath)
  		      (format t "~&load complete~%"))
  		    (format t "~&skip loading ~A~%" lpath))
  		(force-output))
  	      (loop :while (/= (getppid) 1)
  		 :do
  		 (sleep 5))
  	      (format t "~&parent process is dead~%"))
  	  (serious-condition (x)
  	    (_ :trivial-backtrace :print-backtrace
  	       x :output *standard-output*)))
  	(format t "~&finish ~S~%" (multiple-value-list 
  				   (decode-universal-time (get-universal-time))))))))
  
  (defun run-projects (&key (project-name "lisp-services")
  		     directory
  		     qlpath
  		     (child-function *run-child-function*)
  		     initialize)
    (declare (ignorable project-name))
    (chore)
    (with-daemonize
      (with-shepherd-1process () ()
  