From bfbee5658f46de16284ec71a58d9ecb2def60367 Mon Sep 17 00:00:00 2001
From: cer <cer>
Date: Fri, 31 Jan 1992 17:51:10 +0000
Subject: [PATCH] fixes

---
 Makefile        | 10 +++++-----
 misc/go-xm.lisp | 15 ++++++++++++++-
 2 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/Makefile b/Makefile
index bd07faee..76901c2b 100644
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,7 @@
-# $fiHeader: Makefile,v 1.6 92/01/30 10:09:16 cer Exp $
+# $fiHeader: Makefile,v 1.7 92/01/31 14:59:11 cer Exp Locker: cer $
 
-SOMEDIRS=utils silica clim
-DIRS=$(SOMEDIRS) xlib tk xm-silica
+SOMEDIRS=sys utils silica clim demo
+DIRS=$(SOMEDIRS) xlib tk xm-silica misc
 DEVICE=/dev/null
 CL=/net/vapor/usr/composer2/composer2
 CLOPTS	= -qq
@@ -21,7 +21,7 @@ FRC :
 
 
 swm-tape:
-	tar cf $(DEVICE) `find misc $(SOMEDIRS) '(' -name "*.cl" -o -name "*.lisp" ')' -print`
+	tar cf $(DEVICE) `find $(SOMEDIRS) '(' -name "*.cl" -o -name "*.lisp" ')' -print`
 
 xm-composer:
 	cd tk ; $(MAKE) xm-composer
@@ -35,7 +35,7 @@ dist	:
 	> Dist/src.tar.Z
 
 rcscheck:
-	rcscheck $(DIRS) | grep -v .fasl
+	rcscheck  $(DIRS) | grep -v .fasl
 
 # For the day the make dist happens.
 
diff --git a/misc/go-xm.lisp b/misc/go-xm.lisp
index e369fc72..b5acefee 100644
--- a/misc/go-xm.lisp
+++ b/misc/go-xm.lisp
@@ -20,8 +20,21 @@
 ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
 ;; applicable.
 ;;
-;; $fiHeader$
+;; $fiHeader: go-xm.lisp,v 1.1 92/01/30 10:16:06 cer Exp Locker: cer $
 
+#+ignore
 (let ((which :motif))
   (declare (special which))
   (load (merge-pathnames "go.cl" excl::*source-pathname*)))
+
+(compile-file-if-needed "sys/defsystem")
+(let ((*enable-package-locked-errors* nil))
+  (load "sys/defsystem"))
+(load "sys/sysdcl")
+(defsys::compile-system 'motif-clim :propagate t)
+(tenuring (defsys::load-system 'motif-clim))
+
+
+
+
+
-- 
GitLab