--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/ilisp/ilisp-val.el	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,47 @@
+;;; -*- Mode: Emacs-Lisp -*-
+
+;;; ilisp-val.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 buffer value interface
+;;;
+;;;
+
+;;;
+(defun ilisp-value (variable &optional no-error-p)
+  "Return the value of VARIABLE in the ILISP buffer.
+If NO-ERROR-P is NIL, then an error will be signalled if VARIABLE is nil."
+  (save-excursion
+    (set-buffer (ilisp-buffer))
+    (let ((value (eval variable)))
+      (if value
+	  value
+	  (if no-error-p
+	      nil
+	      (error "%s is not defined." variable))))))
+
+;;;
+(defun set-ilisp-value (variable value)
+  "Set the value of VARIABLE in the ILISP buffer."
+  (save-excursion
+    (set-buffer (ilisp-buffer))
+    (set variable value)))