packages-made-by.lisp

(defun packages-made-by(system)
  (if(find system (asdf:already-loaded-systems):test #'string-equal)
    (warn "System ~S is already loaded."system)
    (let((depends-on(asdf:system-depends-on(asdf:find-system system))))
      (when depends-on
        (ql:quickload depends-on :silent t)) ; setup
      (let((old(list-all-packages))) ; keep olds state
        (ql:quickload system :silent t) ; install new
        (set-difference(list-all-packages)old)))))