important: fix ASDF compiling for iOS

This commit is contained in:
pls.153 2022-03-22 07:42:13 +01:00
parent a8698e1ad4
commit f3e45837e0

View file

@ -13,6 +13,8 @@
(defvar *ql-libs* nil) (defvar *ql-libs* nil)
(defvar *require* nil) (defvar *require* nil)
(pushnew :lqml *features*)
(dolist (lib *require*) (dolist (lib *require*)
(require lib)) (require lib))
@ -31,10 +33,14 @@
(ext:install-bytecodes-compiler) (ext:install-bytecodes-compiler)
(when *ql-libs* (when *ql-libs*
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (let ((home (user-homedir-pathname)))
(user-homedir-pathname)))) #+ios
(when (probe-file quicklisp-init) (setf home (make-pathname :directory
(load quicklisp-init))) (remove "Library" (pathname-directory home)
:test 'string=)))
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" home)))
(when (probe-file quicklisp-init)
(load quicklisp-init))))
(load *ql-libs*)) ; eventual, not yet installed dependencies (load *ql-libs*)) ; eventual, not yet installed dependencies
;;; load ASDF system ;;; load ASDF system