[Mit-cadr-cvs] r312 - trunk/lisp/site

[rswindells at common-lisp.net]

Author: rswindells
Date: Sun Oct 21 13:30:32 2012
New Revision: 312

Log:
Add extra directories for COLD, UBIN and NETWORK. Rename directory
strings to match SVN.

Modified:
   trunk/lisp/site/site.lisp

Modified: trunk/lisp/site/site.lisp
==============================================================================
--- trunk/lisp/site/site.lisp	Sun Oct 21 11:45:12 2012	(r311)
+++ trunk/lisp/site/site.lisp	Sun Oct 21 13:30:32 2012	(r312)
@@ -18,21 +18,23 @@
 ;;     ))
 
 (DEFCONST SYS-HOST-DIRECTORY-TRANSLATIONS
-  '(("CC" "//tree//lmcons//")
+  '(("CC" "//tree//cc//")
+    ("COLD" "//tree//cold//")
     ("CHAOS" "//tree//chaos//")
     ("DEMO" "//tree//lmdemo//")
     ("DISTRIBUTION" "//tree//distribution//")
-    ("FONTS" "//tree//lmfonts//")
-    ("IO" "//tree//lmio//")
-    ("IO1" "//tree//lmio1//")
+    ("FONTS" "//tree//fonts//")
+    ("IO" "//tree//io//")
+    ("IO1" "//tree//io1//")
     ("LMFS" "//tree//lmfs//")
-    ("LMSYM" "//tree//lmsym//")
-    ("PATCH" "//tree//lmpat//")
-    ("SITE" "//tree//lmsite//")
-    ("SYS" "//tree//lispm//")
-    ("SYS2" "//tree//lispm2//")
-    ("UCADR" "//tree//lcadr//")
-    ("WINDOW" "//tree//lmwin//")
+    ("NETWORK" "//tree//network//")
+    ("PATCH" "//tree//patch//")
+    ("SITE" "//tree//site//")
+    ("SYS" "//tree//sys//")
+    ("SYS2" "//tree//sys2//")
+    ("UBIN" "//tree/ubin//")
+    ("UCADR" "//tree//ucadr//")
+    ("WINDOW" "//tree//window//")
     ("ZMAIL" "//tree//zmail//")
     ("ZWEI" "//tree//zwei//")
     ))