anchor.diff:  From here by should not include lisp implementation dependency.
   |#
   
  +(defun daemonize (&key exit-parent)
  +  (let ((pid (fork)))
  +    (cond ((zerop pid)
  +	   ;; Child
  +	   (unless (eql t (setsid))
  +	     (exit))
  +	   (close-fd-streams)
  +	   (let* ((out (make-two-way-stream 
  +			(make-concatenated-stream)
  +			(make-broadcast-stream))))
  +	     (setf *standard-output* out
  +		   *error-output* out
  +		   *trace-output* out		   
  +		   *standard-input* out
  +		   *debug-io* out
  +		   *query-io* out
  +		   *terminal-io* out)))
  +	  (t 
  +	   ;; Parent
  +	   (when exit-parent
  +	     (exit))
  +	   (pclose 0)
  +	   (pclose 1)
  +	   (pclose 2)
  +	   (retrun-from daemonize pid))))
  +  nil)
  +
  +(defmacro with-daemonize (&body body)
  +  `(progn
  +     (daemonize :exit-parent t)
  +     ,@body
  +     (exit)))
  +
  +#|
  +Frome here by are not so important with daemonize. These are used for my daemon-project.
  +I consider separate to another file.
  +|#
  +
   (defun _ (pkg sym &rest args)
     (let ((symbol (intern (symbol-name sym) (find-package pkg))))
       (if args
  
positive.code: (defun ymdhms (&optional (universal-date (get-universal-time)))
    (let ((date(multiple-value-list (decode-universal-time universal-date))))
      (format nil "~D/~2,'0D/~2,'0D ~2,'0D:~2,'0D:~2,'0D" (sixth date) (fifth date) (fourth date) (third date) (second date) (first date))))
  
  
  
  (defun daemonize (callback)
    (when (zerop (fork))
      (unless (eql t (setsid))
        (exit))
      (unless (zerop (fork))
        (exit))
      (close-fd-streams)
      (let* ((out (make-two-way-stream 
  		 (make-concatenated-stream)
  		 (make-broadcast-stream)))
  	   (*standard-output* out)
  	   (*error-output* out)
  	   (*trace-output* out)
  	   (*standard-input* out)
  	   (*debug-io* out)
  	   (*query-io* out)
  	   (*terminal-io* out))
        (funcall callback))
      (exit)))
  
  (defmacro with-daemonize (&body body)
    `(daemonize (lambda ()
  		,@body)))
  
  (defvar *username*
    (load-time-value
  
negative.code: 			   #+sbcl sb-unix:sigkill
  			   #+allegro excl::*sigkill*
  			   #+ccl #$SIGKILL))
  
  (defvar *o-rdonly* (or 
  		    #+sbcl sb-posix:o-rdonly
  		    #+allegro excl::*o-rdonly*
  		    #+ccl #$O_RDONLY 
  		    ))
  
  (defvar *o-wronly* (or
  		    #+sbcl sb-posix:o-wronly
  		    #+allegro excl::*o-wronly*
  		    #+ccl #$O_WRONLY
  		    ))
  
  (defvar *o-append* (or 
  		    #+sbcl sb-posix:o-append
  		    #+allegro excl::*o-append*
  