quicklisp-controller/map-systems.lisp at master · quicklisp/quicklisp-controller · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
;;;; map-systems.lisp

(in-package #:quicklisp-controller)

(defun map-systems (file)
  (let ((table (asdf-systems-table)))
    (maphash (lambda (key value)
               (declare (ignore value))
               (ignore-errors
                 (run "sbcl"
                    "--noinform"
                    "--no-userinit"
                    "--non-interactive"
                    "--load" (probe-file #p "asdf.lisp")
                    "--load" (probe-file #p"map-systems-init.lisp")
                    "--eval"
                    (prin1-to-string `(defvar cl-user::*map-systems-system*
                                        ,key))
                    "--load" (truename file)
                    (translate-logical-pathname *system-file-index-file*))))
             table)))