;;; -*- Mode:LISP; Base:10 -*-
(defun copy-dir ()
  (FS:COPY-DIRECTORY "DJ:L.CDI;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.CDI-SITE;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.COLD;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.CUSTOMER-SITE;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.DEBUGGER;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.DEMO;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.DOC;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.EXAMPLES;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.FILE;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.FILE2;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.FONTS;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.GATEWAY;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.HARDCOPY;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.IMICRO;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.IO;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.IO1;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.LAMBDA-DIAG;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.LAMBDA-E-NET;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.LM-PROLOG;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.LMI-SITE;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.MICRO-COMPILER;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.NETWORK;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.NEW-TAPE;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.OBJECTLISP;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.OBLISP;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.PATCH;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.SYS;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.SYS2;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.TAPE;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.UBIN;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.ULAMBDA;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.UNIX;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.VERIFY;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.VIDEO-DEVICE;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.VISTA;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.WINDOW;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.ZMAIL;*.*#>" "exp2:" :verbose nil :create-directory t)
  (FS:COPY-DIRECTORY "DJ:L.ZWEI;*.*#>" "exp2:" :verbose nil :create-directory t)
  )