mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
24 lines
991 B
Common Lisp
24 lines
991 B
Common Lisp
(defpackage :roswell.delete.dump
|
|
(:use :cl :roswell.util))
|
|
(in-package :roswell.delete.dump)
|
|
|
|
(defun dump (_ &rest params)
|
|
(declare (ignore _))
|
|
(let* ((lisp (parse-version-spec
|
|
(or (ros:opt "*lisp")
|
|
(ros:opt "default.lisp"))))
|
|
(version (or (second lisp)
|
|
(ros:opt (format nil "~A.version" (first lisp)) :from-end t)))
|
|
(impl (first lisp))
|
|
(path (make-pathname :name (first params)
|
|
:type (core-extention impl)
|
|
:defaults
|
|
(merge-pathnames (format nil "impls/~A/~A/~A/~A/dump/"
|
|
(uname-m) (uname) impl version)
|
|
(homedir)))))
|
|
(if (probe-file path)
|
|
(delete-file path)
|
|
(progn
|
|
(format *error-output* "The specified image doesn't exist \"~A/~A\"~%" impl version)
|
|
(ros:quit 1)))))
|