;;; -*- Mode:LISP; Package:USER; Base:10 -*-

(let*((default-source (pathname "lm:keith.networks;*.*#>"))
      (source (prompt-and-read '(:pathname :defaults default-source)
			      "Enter directory containing BOXNET sources (default is ~a) : "
			      default-source))
      (dest "sys:site;"))
  (flet
    ((copy-exactly-to-dir
       (from-file &aux to)
       (setq from-file (send (fs:merge-pathnames from-file default-source) :truename))
       (setq to (fs:merge-pathnames dest from-file))
       (copy-file from-file to)))
    (copy-exactly-to-dir "boxnet.translations")
    (copy-exactly-to-dir "boxnet.system")))