| | 1 | ;;; a quick startup script that can be loaded with all supported lisps |
|---|
| | 2 | (in-package :cl-user) |
|---|
| | 3 | |
|---|
| | 4 | #+sbcl(require 'asdf) |
|---|
| | 5 | #+sbcl(require 'sb-posix) |
|---|
| | 6 | #+sbcl(assert (eql sb-impl::*default-external-format* :utf-8)) |
|---|
| | 7 | |
|---|
| | 8 | (load (compile-file "../../../thirdparty/asdf/asdf.lisp")) |
|---|
| | 9 | |
|---|
| | 10 | (defun setup-registry () |
|---|
| | 11 | (format t "; setting up ASDF registry, please be patient...") |
|---|
| | 12 | (finish-output) |
|---|
| | 13 | (mapc #'(lambda (asd-pathname) |
|---|
| | 14 | (pushnew (make-pathname :directory (pathname-directory asd-pathname)) |
|---|
| | 15 | asdf:*central-registry* |
|---|
| | 16 | :test #'equal)) |
|---|
| | 17 | (directory #p"../../../**/*.asd"))) |
|---|
| | 18 | |
|---|
| | 19 | ;;; setup asdf:*central-registry* |
|---|
| | 20 | (setup-registry) |
|---|
| | 21 | |
|---|
