anchor.diff:                   :for line = (read-line file nil nil)
                    :while line :do (write-line line out)))))
         (ignore-errors (delete-file path)))))
  +
   
   
   (defun distribution ()
  
positive.code: (defparameter *system-licenses*
    '(("cl-ppcre"       . "BSD-2")
      ("split-sequence" . :unknown)
      ("terminfo"       . "MIT")))
  
  (defun asdf-system-name (system)
    (slot-value system 'asdf::name))
  
  (defun asdf-system-license (system-name)
    (let ((system  (asdf:find-system system-name)))
      (if (slot-boundp system 'asdf::licence)
          (slot-value system 'asdf::licence)
          (or (cdr (assoc system-name *system-licenses* :test 'string-equal))
              :unknown))))
  
  (defun system-depends-on (system)
    (delete (string-downcase system)
  
negative.code: (defun shell-command-to-string (command)
    "Execute the COMMAND with asdf:run-shell-command and returns its
  stdout in a string (going thru a file)."
    (let ((*default-pathname-defaults* #P"")
          (path (format nil "~:@(out-~36,8,'0R.txt~)" (random (expt 2 32)))))
      (unwind-protect
           (when (zerop (asdf:run-shell-command (format nil "~A > ~S" command path)))
             (with-output-to-string (out)
  