File r38/util/dbuild.dat artifact a340729a21 part of check-in 1feb677270

% dbuild.dat -- Bootstrap a minimal REDUCE "in core" from standard
% sources only, without use of fasl files.

% Author:   Anthony C. Hearn.
% Modifications for MS-DOS:  Stanley L. Kameny.

(set_heap_extend_size 120000)

(setq nonkernelupperbound* nil)   % I need to understand this.

(date!-and!-time)

(setq loaddirectories!* '("" "$reduce\lisp\psl\win32\red\"
			     "$reduce\lisp\psl\win32\psl\"))

(dskin "$reduce\packages\support\dbuild.sl")

(setq lispsystem!* (append (list (intern (getenv "system"))
			  (intern (getenv "machine")))
			  (delete 'unix lispsystem!*)))

(savesystem "Base REDUCE" "$reduce\lisp\psl\win32\red\reduce" nil)

(date!-and!-time)

(exitlisp)             % Necessary to exit lisp and avoid computer halt.