diff options
author | dos-reis <gdr@axiomatics.org> | 2007-09-19 15:30:04 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-09-19 15:30:04 +0000 |
commit | 1d71a43cca77e1576cc1568298d5886a60c9b884 (patch) | |
tree | 270a5e091dc621fd0023f2261938cea235b0cbe9 /src/interp/patches.lisp.pamphlet | |
parent | 1ee7a0030053e2447302d8157b9d3356a54e9b3a (diff) | |
download | open-axiom-1d71a43cca77e1576cc1568298d5886a60c9b884.tar.gz |
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.
Diffstat (limited to 'src/interp/patches.lisp.pamphlet')
-rw-r--r-- | src/interp/patches.lisp.pamphlet | 24 |
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) |