diff options
Diffstat (limited to 'pkgs/development/lisp-modules-new-obsolete/import/main.lisp')
-rw-r--r-- | pkgs/development/lisp-modules-new-obsolete/import/main.lisp | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/pkgs/development/lisp-modules-new-obsolete/import/main.lisp b/pkgs/development/lisp-modules-new-obsolete/import/main.lisp deleted file mode 100644 index c36db3731c8a6..0000000000000 --- a/pkgs/development/lisp-modules-new-obsolete/import/main.lisp +++ /dev/null @@ -1,40 +0,0 @@ -(defpackage org.lispbuilds.nix/main - (:use :common-lisp - :org.lispbuilds.nix/database/sqlite - :org.lispbuilds.nix/repository/quicklisp - :org.lispbuilds.nix/api)) - -(in-package org.lispbuilds.nix/main) - -(defun resource (name type) - (make-pathname - :defaults (asdf:system-source-directory :org.lispbuilds.nix) - :name name - :type type)) - -(defvar *sqlite* - (make-instance - 'sqlite-database - :init-file (resource "init" "sql") - :url "packages.sqlite")) - -(defvar *quicklisp* - (make-instance - 'quicklisp-repository - :dist-url - "https://beta.quicklisp.org/dist/quicklisp/2022-11-07/")) - -(defun run-importers () - (import-lisp-packages *quicklisp* *sqlite*) - (format t "Imported packages from quicklisp to ~A~%" - (truename "packages.sqlite"))) - -(defun gen-nix-file () - (database->nix-expression *sqlite* "imported.nix") - (format t "Dumped nix file to ~a~%" - (truename "imported.nix"))) - -(defun main () - (format t "~%") - (run-importers) - (gen-nix-file)) |