diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-14 19:42:36 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-14 19:42:36 +0000 |
| commit | 1189054f7f23b886407a1be8263f4ab41edaa999 (patch) | |
| tree | b30e2af4f77f784bc35f89a5dc662dd4261da6d0 /src/interp/patches.lisp.pamphlet | |
| parent | 3eeacfa036d3943f4e9c048568adfb1ca3ddb997 (diff) | |
| download | open-axiom-1189054f7f23b886407a1be8263f4ab41edaa999.tar.gz | |
* 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).
Diffstat (limited to 'src/interp/patches.lisp.pamphlet')
| -rw-r--r-- | src/interp/patches.lisp.pamphlet | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/patches.lisp.pamphlet b/src/interp/patches.lisp.pamphlet index a825922c..04fcc390 100644 --- a/src/interp/patches.lisp.pamphlet +++ b/src/interp/patches.lisp.pamphlet @@ -137,7 +137,7 @@ previous definition. (defun /RF-1 (ignore) (declare (ignore ignore)) - (let* ((input-file (vmlisp::make-input-filename /EDITFILE)) + (let* ((input-file (make-input-filename /EDITFILE)) (lfile ()) (type (pathname-type input-file))) (cond @@ -159,7 +159,7 @@ previous definition. (t (spad input-file))))) (defun /EF (&rest foo) - (obey (concat "vi " (namestring (vmlisp::make-input-filename /EDITFILE))))) + (obey (concat "vi " (namestring (make-input-filename /EDITFILE))))) #-:CCL (defun user::start () (in-package "BOOT") (boot::|start|)) #+:CCL @@ -263,9 +263,9 @@ previous definition. #+(or :CCL (and :lucid :ibm/370)) -(setq vmlisp::$current-directory (truename ".")) +(setq $current-directory (truename ".")) #-(or :CCL (and :lucid :ibm/370)) -(setq vmlisp::$current-directory (make-directory *default-pathname-defaults*)) +(setq $current-directory (make-directory *default-pathname-defaults*)) (defvar *msghash* nil "hash table keyed by msg number") @@ -318,9 +318,9 @@ previous definition. (unless (zerop returncode) (bye returncode))))) #+:dos -(setq vmlisp::$current-directory (truename ".")) +(setq $current-directory (truename ".")) #+:dos -(setq vmlisp::$spadroot "/spad/mnt/dos") +(setq $spadroot "/spad/mnt/dos") #+:dos (defun user-homedir-pathname () (truename ".")) |