From 9d7bb32ae64db94bcfb41bf036a6d382bfd3ccd6 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 20 Aug 1993 00:25:59 +0000 Subject: [PATCH] Move VMDIR function here from comcom, since it seems somewhat more generallty useful. --- tools/setup.lisp | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/tools/setup.lisp b/tools/setup.lisp index c7efff166..ba083b9f1 100644 --- a/tools/setup.lisp +++ b/tools/setup.lisp @@ -199,6 +199,21 @@ (c::assemble-file src :output-file obj) (apply #'compile-file src :allow-other-keys t keys)))))))))) + +;;; VMDIR -- Interface +;;; +(defun vmdir (f) + (merge-pathnames + (make-pathname :directory nil :defaults f) + (merge-pathnames + (cond ((c:target-featurep :pmax) "mips/") + ((c:target-featurep :rt) "rt/") + ((c:target-featurep :hppa) "hppa/") + ((c:target-featurep :sparc) "sparc/") + ((c:target-featurep :x86) "x86/") + (t + (error "What machine is this?"))) + (make-pathname :directory (pathname-directory f))))) ;;; CAT-IF-ANYTHING-CHAGNED -- GitLab