;;; -*- Mode:LISP; Package:ZWEI; Fonts:(CPTFONT); Base:10 -*-

;;; Copyright (C) Lisp Machine, Inc. 1984, 1985, 1986
;;;   See filename "Copyright" for
;;; licensing and release information.

;;; -*- Mode:LISP; Package:(GATEWAY :use (zwei global)); Fonts:(CPTFONT); Base:10 -*-
;;; (in-package 'gateway :use '(zwei global))
;;; (use-package '(zwei global))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; LMI INFORMATION SYSTEM - LOAD SYSTEM MODULE
;;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(fs:add-logical-pathname-host
  "GATEWAY"
  (let ((host (send fs:fdefine-file-pathname ':host)))
    (if (typep host 'fs:logical-host)
	(send host ':host)
      host))
  '(("SOURCE" "release-3.gateway.database;")
    ("PATCH" "release-3.gateway.database;")
    ("DATA" "release-3.gateway.database;")
    )
  )