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