2007-09-19 Gabriel Dos Reis <gdr@cs.tamu.edu>

	* Makefile.pamphlet (all-interpsys): Now depend on all-depsys.

src/interp/
2007-09-19  Gabriel Dos Reis  <gdr@cs.tamu.edu>

	* util.lisp.pamphlet ($directory-list): Move to sys-globals.boot.
	($library-directory-list): Likewise.
	* spad.lisp.pamphlet: Import "bootlex".
	* preparse.lisp.pamphlet: Import "fnewmeta".
	* postprop.lisp: Import "macros".
	* postpar.boot.pamphlet: Import "postprop".
	* nlib.lisp.pamphlet (rdefiostream): Define unconditionally.
	(get-io-index-stream): Likewise.
	(makedir): Likewise.
	(get-directory-list): Don't use $current-diretory.
	($filetype-table): Move to sys-constants.boot.
	* patches.lisp.pamphlet ($current-directory): Remove.
	(|cd|): Simplify implementation.
	* newaux.lisp.pamphlet: Import "macros".
	(|PARSE-NewKEY|): Define.
	* metalex.lisp: Move various file, line, stack, character
	utilities to here.
	* macros.lisp.pamphlet (NREVERSE0): Move to sys-macros.lisp.  Tidy.
	* fnewmeta.lisp.pamphlet: Import "parsing".
	* comp.lisp: Import "macros".
	* def.lisp: Likewise.
	(B-MDEF): Fix thinko.
	* bootlex.lisp: Import "preparse", "def", and "nlib".
	(BOOT-LINE-STACK): Move to metalex.lisp.
	(NEXT-LINES-CLEAR): Likewise.
	(NEXT-LINES-SHOW): Likewise.
	(XCAPE): Likewise.
	(KEYWORDS): Likewise.
	* Makefile.pamphlet (${DEPSYS}): Now have all Lisp in compiled
	form and load them.  
	* bookvol5.pamphlet ($current-directory): Remove.

1 files changed, 13 insertions, 11 deletions

diff --git a/src/interp/patches.lisp.pamphlet b/src/interp/patches.lisp.pamphlet
index 04fcc390..17a3e1bc 100644
--- a/src/interp/patches.lisp.pamphlet
+++ b/src/interp/patches.lisp.pamphlet
@@ -93,15 +93,15 @@ previous definition.
        (setq ,streamvar *terminal-io*)))
 
 (defun |cd| (args)
-  (cond ((null args)
-#+(and :lucid :ibm/370)
-         (setq $current-directory "")
-#-(and :lucid :ibm/370)
-         (setq $current-directory (truename (user-homedir-pathname))) )
-        ((eql (|directoryp| (interp-make-directory (car args))) 1)
-         (setq $current-directory (namestring (truename (interp-make-directory (car args)))))))
-#+(or :kcl :ibcl :CCL) (system:CHDIR $current-directory)
-  (|sayKeyedMsg| 'S2IZ0070 (list (namestring $current-directory))))
+  (let ((dir (truename (string (or (car args) "")))))
+    #+ :SBCL (sb-posix::chdir (namestring dir))
+    #+ :GCL (system::chdir (namestring dir))
+    #- (or :SBCL :GCL) (error "don't know how to chdir in this Lisp")
+    ;; FIXME: some Lisps may not properly end the name with slash
+    ;;        investigate.
+    (setf *default-pathname-defaults* dir)
+    (|sayKeyedMsg| 'S2IZ0070 
+                   (list (namestring *default-pathname-defaults*)))))
 
 <<toplevel>>
 (define-function 'top-level #'toplevel)
@@ -123,14 +123,17 @@ previous definition.
     (obey string))
    (|terminateSystemCommand|))
 (setq *print-escape* nil) ;; so stringimage doesn't escape idents?
-#+(or :IEEE-FLOATING-POINT)
+#+(and :GCL :IEEE-FLOATING-POINT )
  (setq system:*print-nans* T)
+
 (defun /RF (&rest foo &aux (Echo-Meta 'T))
   (declare (special Echo-Meta))
   (/RF-1 nil))
+
 (defun /RQ (&rest foo &aux (Echo-Meta nil))
   (declare (special Echo-Meta))
   (/RF-1 nil))
+
 (defun |/RQ,LIB| (&rest foo &aux (Echo-Meta nil) ($LISPLIB T))
   (declare (special Echo-Meta $LISPLIB))
   (/RF-1 nil))
@@ -188,7 +191,6 @@ previous definition.
     (set-file-getter (strconc asharprootlib "axextend.o")))
 )
 
-(defun AKCL-VERSION () system::*akcl-version*)
 (defun SHAREDITEMS (x) T) ;;checked in history code
 (defun whocalled (n) nil) ;; no way to look n frames up the stack
 (defun setletprintflag (x) x)