* 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).

1 files changed, 7 insertions, 7 deletions

diff --git a/src/interp/util.lisp.pamphlet b/src/interp/util.lisp.pamphlet
index f6c4dd32..da707ab2 100644
--- a/src/interp/util.lisp.pamphlet
+++ b/src/interp/util.lisp.pamphlet
@@ -1018,7 +1018,7 @@ need to be compiled without optimize due to compiler bugs
    (error "makelib:MID=~a OUT=~a~% these are not set properly~%" mid out))
 #+:akcl (compiler::emit-fn nil)
 #+:akcl (si::chdir mid)
-#-:akcl (vmlisp::obey (concatenate 'string "cd " mid))
+#-:akcl (obey (concatenate 'string "cd " mid))
   (setq libs (directory "*.NRLIB"))
   (unless libs
    (format t "makelib:directory of ~a returned NIL~%" mid)
@@ -1042,7 +1042,7 @@ need to be compiled without optimize due to compiler bugs
       (concatenate 'string out "/" (pathname-name lib) ".NRLIB/index.KAF*"))
     (unless (probe-file mntlib)
      (format t "creating directory ~a~%" mntlib)
-     (vmlisp::obey (concatenate 'string "cp -pr " (namestring lib) " " out))
+     (obey (concatenate 'string "cp -pr " (namestring lib) " " out))
      (when (probe-file (concatenate 'string mntlib "/code." stype))
       (delete-file  (concatenate 'string mntlib "/code." stype))))
     (setq intkafdate (and (probe-file intkaf) (file-write-date intkaf)))
@@ -1050,7 +1050,7 @@ need to be compiled without optimize due to compiler bugs
     (when intkafdate
      (unless (and mntkafdate (> mntkafdate intkafdate))
       (format t "~&copying ~s to ~s" intkaf mntkaf)
-      (vmlisp::obey
+      (obey
        (concatenate 'string "cp " 
          (namestring intkaf) " " (namestring mntkaf)))))
     (setq lspdate (and (probe-file dotlsp) (file-write-date dotlsp)))
@@ -1105,7 +1105,7 @@ quality we check anyway.
    (format t "doing directory on ~s...~%" (concatenate 'string src "/*"))
    (error "makespad:SRC=~a MID=~a not set properly~%" src mid))
 #+:akcl (si::chdir mid)
-#-:akcl (vmlisp::obey (concatenate 'string "cd " mid))
+#-:akcl (obey (concatenate 'string "cd " mid))
   (setq mntlibs (directory "*.NRLIB"))
   (unless mntlibs
    (format t "makespad:directory of ~a returned NIL~%" src)
@@ -1204,7 +1204,7 @@ of the exposed constructors, is consistent with the actual libraries.
    "read the NRLIB directory and return a sorted abbreviation list"
    (let (libs nrlibs)
 #+:akcl (si::chdir algebra)
-#-:akcl (vmlisp::obey (concatenate 'string "cd " algebra))
+#-:akcl (obey (concatenate 'string "cd " algebra))
     (setq nrlibs (directory "*.NRLIB"))
     (unless nrlibs
      (error "libcheck: (directory ~s) returned NIL~%" 
@@ -1246,7 +1246,7 @@ of the exposed constructors, is consistent with the actual libraries.
   (SRCSCAN ()
    (let (longnames names)
 #+:gcl (system::chdir int)
-#-:gcl (vmlisp::obey (concatenate 'string "cd " int))
+#-:gcl (obey (concatenate 'string "cd " int))
     (setq spads (directory "*.spad"))
     (dolist (spad spads)
      (multiple-value-setq (short long) (srcabbrevs spad))
@@ -1289,7 +1289,7 @@ final TAGS file is constructed in the {\bf tmp} directory.
 <<make-tags-file>>=
 (defun make-tags-file ()
 #+:gcl (system:chdir "/tmp")
-#-:gcl (vmlisp::obey (concatenate 'string "cd " "/tmp"))
+#-:gcl (obey (concatenate 'string "cd " "/tmp"))
   (obey (concat "etags " (make-absolute-filename "../../src/interp/*.lisp")))
   (spadtags-from-directory "../../src/interp" "boot")
   (obey "cat /tmp/boot.TAGS >> /tmp/TAGS"))