mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix and revision of example 'swank-server'

Browse source
This commit is contained in:
pls.153 2022-03-03 08:31:11 +01:00
parent 693821fcdc
commit e03a0b81ad
2 changed files with 25 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

34
examples/swank-server/lisp/swank-quicklisp.lisp
View file

@ -79,6 +79,7 @@
(in-package :qml-user))
:asdf)
#+(or android ios)
(defun ensure-asdf ()
(unless (find-package :asdf)
#+android
@ -153,28 +154,25 @@
'stop-swank
'quicklisp))
;;; adapt paths to mobile specific values
#+ios
(progn
;; adapt paths to iOS specific values
(defvar *user-homedir-pathname-orig* (symbol-function 'user-homedir-pathname))
(ext:package-lock :common-lisp nil)
(ext:package-lock :common-lisp nil)
(defvar *user-homedir-pathname-orig* (symbol-function 'user-homedir-pathname))
(defun cl:user-homedir-pathname (&optional host)
(merge-pathnames "Library/" (funcall *user-homedir-pathname-orig* host)))
(defun cl:user-homedir-pathname (&optional host)
#+ios
(merge-pathnames "Library/" (funcall *user-homedir-pathname-orig* host)
#-ios
*default-pathname-defaults*))
(ext:package-lock :common-lisp t)
(ext:package-lock :common-lisp t)
#+ios ; for ASDF
(dolist (el '(("XDG_DATA_HOME" . "")
("XDG_CONFIG_HOME" . "")
("XDG_DATA_DIRS" . "")
("XDG_CONFIG_DIRS" . "")
("XDG_CACHE_HOME" . ".cache")))
(ext:setenv (car el) (namestring (merge-pathnames (cdr el)
(user-homedir-pathname)))))
(dolist (el '(("XDG_DATA_HOME" . "")
("XDG_CONFIG_HOME" . "")
("XDG_DATA_DIRS" . "")
("XDG_CONFIG_DIRS" . "")
("XDG_CACHE_HOME" . ".cache")))
(ext:setenv (car el) (namestring (merge-pathnames (cdr el)
(user-homedir-pathname))))))
;;; ini