1 files changed, 14 insertions, 0 deletions
diff --git a/com/locked b/com/locked
new file mode 100755
index 0000000..f98fd19
--- /dev/null
+++ b/com/locked
@@ -0,0 +1,14 @@
+#!/bin/csh
+#
+#
+# identify locked source files
+#
+
+cd $Y2
+foreach i (*/*.scm */*.lisp)
+  if (-e $i:h/RCS/$i:t,v) then
+    foreach j (`rlog -R -L $i:h/RCS/$i:t,v`)
+      ls -l $i
+    end
+  endif
+end