Artifact 0bd9d09c8939f43221a6152ebe7d73ac4410fde35555d3c21284abbacfb29129:

• Executable file r38/util/mkredpsl.dat — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1088) [annotate] [blame] [check-ins using] [more...]

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

(set_heap_extend_size 120000)

% (ON BACKTRACE) % Doesn't work properly?

(cd (getenv "reduce"))

(reclaim)

(load arith387)   % Since we don't see too many bare 386's these days.

% load REDUCE modules

(dskin "packages\support\mkredpsl.sl")

% hooks for plot, help and fancy.

(load w-pipes)

(setq !*!*windows 1)   % For gnuplot.

% (errorset '(dskin "$reduce\packages\plot\plothook.sl") nil nil)

(flag '(fancy) 'switch)

(put 'fancy 'simpfg
  '((t (load fmprint) (fmp!-switch t))
    (nil (fmp!-switch nil)) ))

% implant graphics mode switch

(setq *fancy nil)

(cond ((not (unboundp 'win-messages))
       (putv win-messages 3 '(~on '(fancy)))
       (putv win-messages 4 '(and *fancy (~off '(fancy))))))

(setq lispsystem!* (cons (INTERN (GETENV "machine")) (delete 'UNIX lispsystem!*)))

(copyd '! yield 'whatsup)

(savesystem "REDUCE"
   (BLDMSG "lisp\psl\%w\red\reduce" (GETENV "machine")) '((read-init-file "reduce")))

(exitlisp)