diff options
Diffstat (limited to 'pkgs/development/lisp-modules-obsolete/clwrapper/build-with-lisp.sh')
-rwxr-xr-x | pkgs/development/lisp-modules-obsolete/clwrapper/build-with-lisp.sh | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/pkgs/development/lisp-modules-obsolete/clwrapper/build-with-lisp.sh b/pkgs/development/lisp-modules-obsolete/clwrapper/build-with-lisp.sh deleted file mode 100755 index 13965f14c5e26..0000000000000 --- a/pkgs/development/lisp-modules-obsolete/clwrapper/build-with-lisp.sh +++ /dev/null @@ -1,67 +0,0 @@ -#! /bin/sh -# Part of NixPkgs package collection -# This script can be used at your option under the same license as NixPkgs or -# under MIT/X11 license - -lisp="$1" -systems="$2" -target="$3" -code="$4" - -NIX_LISP_SKIP_CODE=1 NIX_LISP_COMMAND="$lisp" source "$(dirname "$0")/cl-wrapper.sh" - -NIX_LISP_BUILD_CODE= - -case "$NIX_LISP" in - sbcl) - NIX_LISP_BUILD_CODE="(progn - (let* - ((old-fn (symbol-function 'sb-alien::dlopen-or-lose ))) - (sb-ext:with-unlocked-packages (:sb-sys :sb-alien) - (defun sb-alien::dlopen-or-lose (&rest args) - (or - (ignore-errors (progn (apply old-fn args))) - (and - args - (loop - with try = nil - with obj = (first args) - with original-namestring = (sb-alien::shared-object-namestring obj) - for path in (list $(echo "$NIX_LISP_LD_LIBRARY_PATH" | sed -e 's/:/" "/g; s/^/"/; s/$/"/')) - for target := (format nil \"~a/~a\" path original-namestring) - when (ignore-errors - (progn - (setf (sb-alien::shared-object-namestring obj) target) - (setf try (apply old-fn args)) - t)) do - (progn (return try)) - finally (progn (setf (sb-alien::shared-object-namestring obj) original-namestring) - (return (apply old-fn args))) - ) - ) - ) - ) - ) - ) - (sb-ext:save-lisp-and-die \"$target\" - :toplevel (lambda () - (setf common-lisp:*standard-input* (sb-sys::make-fd-stream 0 :input t :buffering :line)) - (setf common-lisp:*standard-output* (sb-sys::make-fd-stream 1 :output t :buffering :line)) - (setf uiop/image:*command-line-arguments* (cdr sb-ext:*posix-argv*)) - $code) - :executable t :save-runtime-options t :purify t))" - systems=":sb-posix $systems" - ;; - ecl) - NIX_LISP_BUILD_CODE="()" - ;; - clisp) - NIX_LISP_BUILD_CODE="(ext:saveinitmem \"$target\" :norc t :init-function (lambda () $code (ext:bye)) :script nil :executable 0)" - ;; -esac - -"$lisp" \ - "$NIX_LISP_EXEC_CODE" "(load \"$NIX_LISP_ASDF/lib/common-lisp/asdf/build/asdf.lisp\")" \ - "$NIX_LISP_EXEC_CODE" "(mapcar 'asdf:load-system (list $systems))" \ - "$NIX_LISP_EXEC_CODE" "$NIX_LISP_BUILD_CODE" \ - "$NIX_LISP_EXEC_CODE" "(quit)" |