From 1189054f7f23b886407a1be8263f4ab41edaa999 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 14 Sep 2007 19:42:36 +0000
Subject: 	* vmlisp.lisp.pamphlet: Don't define package VMLISP.  Remove 
 export declarations.  Import "boot-pkg". 	* sys-macros.lisp (EQUABLE):
 Remove definition. 	* sys-constants.boot ($true): Define as twice quoted
 T. 	* hash.lisp.pamphlet: Push into package BOOT, VMLISP. 	*
 ggreater.lisp: Likewise. 	* nlib.lisp.pamphlet: Likewise. 	*
 obey.lisp: Likewise. 	* construc.lisp.pamphlet: Remove reference to VMLISP
 package. 	* daase.lisp.pamphlet: Likewise. 	* debug.lisp.pamphlet:
 Likewise. 	* util.lisp.pamphlet: Likewise. 	* cformat.boot: Remove
 hack for GCL limitation. 	* scan.boot: Likewise. 	* incl.boot: Likewise.
 	* parsing.lisp: Likewise. 	* bootlex.lisp: Remove reference to
 VMLISP package. 	* union.lisp: Likewise. 	* boot-pkg.lisp:
 Remove hack for GCL limitation.  Don't import 	"vmlisp" anymore. 	*
 bookvol5.pamphlet (vmlisp::$current-directory): Remove. 	*
 patches.lisp.pamphlet: Likewise. 	* astr.boot: Import "vmlisp" instead
 of "boot-pkg". 	* Makefile.pamphlet (boot-pkg.$(FASLEXT)): Don't
 depend on 	vmlisp.$(FASLEXT). 	(vmlisp.$(FASLEXT)): Depend on
 boot=pkg.$(FASLEXT).

---
 src/interp/bookvol5.pamphlet | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/interp/bookvol5.pamphlet')

diff --git a/src/interp/bookvol5.pamphlet b/src/interp/bookvol5.pamphlet
index ed3a91f6..79fca804 100644
--- a/src/interp/bookvol5.pamphlet
+++ b/src/interp/bookvol5.pamphlet
@@ -178,7 +178,7 @@ NAME                         & SET                 & USE \\
 coerceFailure                &                     & runspad \\
 curinstream                  & ncIntLoop           & \\
 curoutstream                 & ncIntLoop           & \\
-vmlisp::\$current-directory  & restart             & \\
+\$current-directory  & restart             & \\
                              & reroot              & \\
 \$currentLine                & restart             & removeUndoLines \\
 \$dalymode                   &                     & intloopReadConsole \\
@@ -276,7 +276,7 @@ The [[curoutstream]] variable is set to the value of the
 [[*standard-output*]] common lisp variable in [[ncIntLoop]].
 While not using the ``dollar'' convention this variable is still ``global''.
 
-\subsection{vmlisp::\$current-directory}
+\subsection{\$current-directory}
 When running in Lucid Common Lisp ([[:lucid]]) on an IBM/370 mainframe
 ([[:ibm/370]]) this variable is used in place of the 
 [[*default-pathname-defaults*]] common lisp variable. 
@@ -706,9 +706,9 @@ We do not care that tail recursion occurs.
   (setq |$IOindex| 1)
   (setq |$InteractiveFrame| (|makeInitialModemapFrame|))
 #+(and :lucid :ibm/370)
-  (setq vmlisp::$current-directory "")
+  (setq $current-directory "")
 #-(and :lucid :ibm/370)
-  (setq vmlisp::$current-directory
+  (setq $current-directory
      (make-directory *default-pathname-defaults*))
   (|loadExposureGroupData|)
   (|statisticsInitialization|)
-- 
cgit v1.2.3