diff options
author | Mx Kookie <kookie@spacekookie.de> | 2020-12-09 18:55:19 +0000 |
---|---|---|
committer | Mx Kookie <kookie@spacekookie.de> | 2020-12-09 18:55:19 +0000 |
commit | 80d90d9b204f7c17912740f9f414fe5d59f293ba (patch) | |
tree | 5f2065a06e724270610760d59d01c6888b375a46 /infra/libkookie/nixpkgs/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp | |
parent | 3a31a84c7d3e589035ad08499206aac44a81f424 (diff) | |
parent | 83cbad92d73216bb0d9187c56cce0b91f9121d5a (diff) |
Merge commit '83cbad92d73216bb0d9187c56cce0b91f9121d5a' into main
Diffstat (limited to 'infra/libkookie/nixpkgs/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp')
-rw-r--r-- | infra/libkookie/nixpkgs/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/infra/libkookie/nixpkgs/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp b/infra/libkookie/nixpkgs/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp index 0f7941a01157..fecae710247d 100644 --- a/infra/libkookie/nixpkgs/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp +++ b/infra/libkookie/nixpkgs/pkgs/development/lisp-modules/quicklisp-to-nix/system-info.lisp @@ -7,11 +7,20 @@ (:export #:dump-image)) (in-package :ql-to-nix-system-info) +(eval-when (:compile-toplevel :load-toplevel :execute) + (defparameter *implementation-systems* + (append + #+sbcl(list :sb-posix :sb-bsd-sockets :sb-rotate-byte :sb-cltl2 + :sb-introspect :sb-rt :sb-concurrency))) + (mapcar (function require) *implementation-systems*)) + (declaim (optimize (debug 3) (speed 0) (space 0) (compilation-speed 0) (safety 3))) ;; This file cannot have any dependencies beyond quicklisp and asdf. ;; Otherwise, we'll miss some dependencies! +;; (Implementation-provided dependencies are special, though) + ;; We can't load quicklisp until runtime (at which point we'll create ;; an isolated quicklisp installation). These wrapper functions are ;; nicer than funcalling intern'd symbols every time we want to talk @@ -441,6 +450,8 @@ Run with --debug and/or --verbose for more info. (when cache-dir (setf cache-dir (pathname-as-directory (parse-namestring cache-dir)))) + (mapcar (function require) *implementation-systems*) + (with-quicklisp (dir) (:cache-dir (or cache-dir :temp)) (declare (ignore dir)) |