--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/ilisp/ilisp-sym.el	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,48 @@
+;;; -*- Mode: Emacs-Lisp -*-
+
+;;; ilisp-sym.el --
+
+;;; This file is part of ILISP.
+;;; Version: 5.7
+;;;
+;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
+;;;               1993, 1994 Ivan Vasquez
+;;;               1994, 1995 Marco Antoniotti and Rick Busdiecker
+;;;
+;;; Other authors' names for which this Copyright notice also holds
+;;; may appear later in this file.
+;;;
+;;; Send mail to 'ilisp-request@lehman.com' to be included in the
+;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
+;;; mailing list were bugs and improvements are discussed.
+;;;
+;;; ILISP is freely redistributable under the terms found in the file
+;;; COPYING.
+
+
+
+;;;
+;;; ILISP Lisp symbol utils.
+;;;
+
+;;;%%Symbol
+(defun lisp-symbol (package delimiter name)
+  "Create a LISP symbol."
+  (list package (if package (or delimiter "::")) name))
+(defun lisp-symbol-name (symbol)
+  "Return the name of SYMBOL."
+  (car (cdr (cdr symbol))))
+(defun lisp-symbol-package (symbol)
+  "Return the package of SYMBOL."
+  (car symbol))
+(defun lisp-symbol-delimiter (symbol)
+  "Return the qualifier of SYMBOL."
+  (car (cdr symbol)))
+
+;;;
+(defun lisp-symbol= (symbol1 symbol2)
+  "Return T is SYMBOL1 is equal to SYMBOL2."
+  (and (string= (lisp-symbol-name symbol1) (lisp-symbol-name symbol2))
+       (string= (lisp-symbol-package symbol1) (lisp-symbol-package symbol2))
+       (string= (lisp-symbol-delimiter symbol1)
+		(lisp-symbol-delimiter symbol2))))