anchor.diff:    (unless (excl.osi:detach-from-terminal-supported-p)
       (error "not supported allegro cl  to detach console")))
   
  +(defvar *project-directory* nil)
  +
   (defconstant +wnohang+ (if (boundp '+wnohang+) +wnohang+
  -			   #+sbcl sb-unix:wnohang
  +			   #+sbcl 1
   			   #+allegro 1
  -			   #+ccl #$WNOHANG
  -			   ))
  +			   #+ccl #$WNOHANG))
  +
   (defconstant +sigkill+ (if (boundp '+sigkill+) +sigkill+
   			   #+sbcl sb-unix:sigkill
   			   #+allegro excl::*sigkill*
  -			   #+ccl #$SIGKILL
  -			   ))
  +			   #+ccl #$SIGKILL))
   (defvar *o-rdonly* (or 
   		    #+sbcl sb-posix:o-rdonly
   		    #+allegro excl::*o-rdonly*
  
positive.code:   (setq sb-impl::*default-external-format* :utf-8))
  
  #|
  From here by codes 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))))
  
negative.code:       (let ((ql (or qlpath 
  		    (merge-pathnames "quicklisp/setup.lisp"
  				     (pathname (concatenate 'string (passwd-dir (getpwnam *username*)) "/"))))))
  	(when (ignore-errors (probe-file ql))
  	  (load ql))
  	(_ :asdf :enable-asdf-binary-locations-compatibility 
  	   :centralize-lisp-binaries t
  