mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-10-31 08:21:49 +01:00
54 lines
1.9 KiB
Common Lisp
54 lines
1.9 KiB
Common Lisp
(in-package :cl-user)
|
|
|
|
(setq lem-core::*deployed* t)
|
|
|
|
(dolist (module sb-impl::*modules*)
|
|
(require module))
|
|
|
|
(setq asdf:*output-translations-parameter* nil
|
|
asdf/output-translations:*output-translations* nil)
|
|
|
|
;; XXX:
|
|
;; (ql:quickload :drakma) causes sb-bsd-sockets require to fail.
|
|
;; Override this method to work around it.
|
|
(defmethod asdf:perform ((o asdf:load-op) (s asdf:require-system))
|
|
nil)
|
|
|
|
(defmethod asdf:output-files :around ((operation t) (component t))
|
|
(call-next-method)
|
|
;; XXX:
|
|
;; Disable the following code defined in asdf
|
|
;; because the target environment may refer to directories in the host environment
|
|
#+(or)
|
|
(do-asdf-cache `(output-files ,operation ,component)
|
|
(values
|
|
(multiple-value-bind (pathnames fixedp) (call-next-method)
|
|
;; 1- Make sure we have absolute pathnames
|
|
(let* ((directory (pathname-directory-pathname
|
|
(component-pathname (find-component () component))))
|
|
(absolute-pathnames
|
|
(loop
|
|
:for pathname :in pathnames
|
|
:collect (ensure-absolute-pathname pathname directory))))
|
|
;; 2- Translate those pathnames as required
|
|
(if fixedp
|
|
absolute-pathnames
|
|
(mapcar *output-translation-function* absolute-pathnames))))
|
|
t)))
|
|
|
|
(uiop:copy-file (cffi:foreign-library-pathname (cffi::get-foreign-library 'async-process::async-process))
|
|
(merge-pathnames #p"libasyncprocess.so" *load-pathname*))
|
|
|
|
(maphash (lambda (key value)
|
|
(declare (ignore value))
|
|
(unless (or (equal key "asdf")
|
|
(equal key "asdf-package-system")
|
|
(equal key "uiop")
|
|
(uiop:string-prefix-p "sb-" key))
|
|
(remhash key asdf::*registered-systems*)))
|
|
asdf::*registered-systems*)
|
|
|
|
(defun launch (&optional (args (uiop:command-line-arguments)))
|
|
(setup-foreign-library-directories)
|
|
(apply #'lem:lem args))
|