;;; -*- Mode: LISP; Syntax: COMMON-LISP; Base: 10.; Package: XIT; -*-
;;;_____________________________________________________________________________
;;;
;;;                       System: XIT
;;;                       Module: Identifier
;;;                       (Version 1.0)
;;;
;;; Copyright (c): Forschungsgruppe DRUID, Juergen Herczeg
;;;                Universitaet Stuttgart
;;;
;;; File: /usr/local/lisp/xit/utilities/identifier.lisp
;;; File Creation Date: 5/19/90 09:48:11
;;; Last Modification Time: 06/11/92 13:25:19
;;; Last Modification By: Juergen Herczeg
;;;
;;;
;;; Changes (worth to be mentioned):
;;; ================================
;;;_____________________________________________________________________________

(in-package :xit)

(pmds::load-system :xit-identifier)

(defparameter *identifier* nil)

(defun make-identifier (&optional (toplevel *toplevel*))
  (setq *identifier* (make-window 'identifier :parent toplevel)))
    
(if (and (boundp '*display*) *display*
	 (boundp '*toplevel*) *toplevel*)
    (make-identifier *toplevel*)
  (add-open-toplevel-hook 'make-identifier))
       