From 3836b55f081fe196e8f7beecc674c5c8a1f98b35 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 6 Sep 2007 02:54:45 +0000
Subject: 	* bookvol5.pamphlet (getenviron): Remove.

---
 src/interp/ChangeLog         |  4 ++++
 src/interp/bookvol5.pamphlet | 20 ++------------------
 2 files changed, 6 insertions(+), 18 deletions(-)

(limited to 'src')

diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index 5a709b07..ea36e41f 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-05  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* bookvol5.pamphlet (getenviron): Remove.
+
 2007-09-05  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* Makefile.pamphlet (depsys_lisp_macro_sources): Remove
diff --git a/src/interp/bookvol5.pamphlet b/src/interp/bookvol5.pamphlet
index 48b2f9d6..ed3a91f6 100644
--- a/src/interp/bookvol5.pamphlet
+++ b/src/interp/bookvol5.pamphlet
@@ -1,3 +1,4 @@
+%% Oh Emacs, this is a -*- Lisp -*- file despite apperance.
 \documentclass{book}
 \usepackage{axiom}
 \usepackage{graphicx}
@@ -761,21 +762,7 @@ Call the garbage collector on various platforms.
 #+sbcl
 (defun reclaim () (sb-ext::gc))
 @
-\subsection{defun getenviron}
-<<defun getenviron>>=
-(defun getenviron (shellvar)
- #+allegro (sys::getenv (string var))
- #+clisp (ext:getenv (string var))
- #+(or cmu scl)
-  (cdr 
-   (assoc (string var) ext:*environment-list* :test #'equalp :key #'string))
- #+(or kcl akcl gcl) (si::getenv (string var))
- #+lispworks (lw:environment-variable (string var))
- #+lucid (lcl:environment-variable (string var))
- #+mcl (ccl::getenv var)
- #+sbcl (sb-ext:posix-getenv var)
- )
-@
+
 \subsection{defun init-memory-config}
 Austin-Kyoto Common Lisp (AKCL), now known as Gnu Common Lisp (GCL)
 requires some changes to the default memory setup to run Axiom efficently.
@@ -1606,9 +1593,6 @@ DEBUGSYS=${OBJ}/${SYS}/bin/debugsys
 (in-package "BOOT")
 <<initvars>>
 
-
-<<defun getenviron>>
-
 <<defun init-memory-config>>
 <<defun initroot>>
 
-- 
cgit v1.2.3