anchor.diff:          (external-program:signal-process proc :quit)))
       ))
   
  -(defparameter *project-list*
  -  (list
  -   (list "inception" (list "/home/xhyang/src/Android-5.1/android/" "build_android_boot.sh")))
  +(defparameter *project-list* nil
     )
   
   (defparameter *build-log* "/build-log.txt")
   (defparameter *build-job* nil)
  +
  +(defun save-job (filename)
  +  (with-open-file (out filename
  +                   :direction :output
  +                   :if-exists :supersede)
  +    (with-standard-io-syntax
  +      (print *project-list* out))))
  +
  +(defun load-job (filename)
  +  (with-open-file (in filename)
  +    (with-standard-io-syntax
  +      (setf *project-list* (read in)))))
   
   (defun build-system ()
     (mapcar #'(lambda (project)
  
positive.code:           *project-list*))
  
  (defun start-cron-job()
    (let ((build (cl-cron:make-cron-job #'build-system :hour 12 :minute 30)))
      (push build *build-job*)
      (cl-cron:start-cron)
  
negative.code:            (cl-cron:delete-cron-job job)
             (pop *build-job*)
          )
    (save-job "~/note/todo/jobs.l")
    )
  