anchor.diff:             (cl-cron:delete-cron-job job)
              (pop *build-job*)
           )
  +  (save-job "~/note/todo/jobs.l")
     )
  
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:         (external-program:signal-process proc :quit)))
      ))
  
  (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)
  