#! /bin/csh
#
#   compile the additional modules for UNIX386
#

set MACHINE=unix386
source $psl/psl-names

echo $pxnk

$psys/psl <<EOF
 
(load compiler)
(faslout "$pxnk/lap/dumplisp")
(dskin "$pxnk/dumplisp.sl")
(faslend)
 
% compile an arithmetic module without coprocessor access
 
(mapc 
  '(*fclex *wfix *wfloat *fgreaterp *flessp *fplus2 *fdifference 
    *ftimes2 *fquotient)
   (function (lambda(x) (remprop x 'opencode))))
 
(faslout "$pxnk/lap/arithwoco")
(dskin "$pxnk/arithmetic.sl")
(faslend)
 
EOF

