% 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.