Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (19 sloc) 786 Bytes
;;;; 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)))
Something went wrong with that request. Please try again.