(FILECREATED "23-MAY-83 15:58:45" {PHYLUM}<LISPCORE>SOURCES>SPLICE.;15
 2228   

      changes to:  (FNS NCLIP)

      previous date: "15-APR-83 12:40:24" {PHYLUM}<LISPCORE>SOURCES>SPLICE.;14)


(PRETTYCOMPRINT SPLICECOMS)

(RPAQQ SPLICECOMS
 ((FNS * SPLICEFNS)
		   (VARS BYTESPERPAGE)))

(RPAQQ SPLICEFNS
 (CLIP JJOIN LSPLICE NCLIP NSPLICE SPLICE SPLICEJ SPLICES))
(DEFINEQ

(CLIP

  [LAMBDA (SRCFIL DSTFIL)                                    (* scp " 6-JAN-83 11:53")

    (CLOSEALL)
    (COPYBYTES (OPENFILE SRCFIL (QUOTE INPUT))
	       (OPENFILE DSTFIL (QUOTE BOTH)
			 (QUOTE OLD)))
    (CLOSEALL])

(JJOIN

  [LAMBDA (SRCFIL DSTFIL)                                    (* scp " 6-DEC-82 15:43")

    (CLOSEALL)
    (COPYBYTES (OPENFILE SRCFIL (QUOTE INPUT))
	       (OPENFILE DSTFIL (QUOTE APPEND)
			 (QUOTE OLD)))
    (CLOSEALL])

(LSPLICE

  [LAMBDA NIL                                                (* scp "14-DEC-82 22:30")

    (CLIP
 (QUOTE {DSK}DLISPDOMINO.DB)
	  (QUOTE {DSK}LISP.DLBOOT])

(NCLIP

  [LAMBDA (SRCFIL DSTFIL)                                    (* lmm "23-MAY-83 15:58")

    (SETQ SRCFIL (OPENFILE SRCFIL (QUOTE INPUT)))
    (SETFILEPTR SRCFIL 512)
    (SETQ DSTFIL (OPENFILE DSTFIL (QUOTE BOTH)
			   (QUOTE OLD)))
    (SETFILEPTR DSTFIL 1024)
    (COPYBYTES SRCFIL DSTFIL)
    (LIST (CLOSEF SRCFIL)
	  (CLOSEF DSTFIL])

(NSPLICE

  [LAMBDA (DLBOOTNAME)                                       (* edited: " 6-APR-83 15:34")

    (NCLIP
 (QUOTE {DSK}DLISPDOMINO.DB)
	   (OR DLBOOTNAME (QUOTE {DSK}BIGTEST.DLBOOT])

(SPLICE

  [LAMBDA (DLBOOTNAME)                                       (* scp "14-JAN-83 11:42")

    (CLIP
 (QUOTE {DSK}DLISPDOMINO.DB)
	  (OR DLBOOTNAME (QUOTE {DSK}BIGTEST.DLBOOT])

(SPLICEJ

  [LAMBDA NIL                                                (* scp " 6-DEC-82 15:45")

    (JOIN
 (QUOTE {DSK}TEST.SYSOUT)
	  (QUOTE {DSK}TEST.DLBOOT])

(SPLICES

  (LAMBDA NIL                                                (* JonL "22-NOV-82 17:29")

    (PROG NIL
      LP  (SPLICE
)
          (LOGOUT)
          (GO LP))))
)

(RPAQQ BYTESPERPAGE
 512)
(PUTPROPS SPLICE COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (378 2141 (CLIP 388 . 622) (JJOIN 624 . 861) (LSPLICE 863 . 1037) (NCLIP 1039 . 1390) (
NSPLICE 1392 . 1590) (SPLICE 1592 . 1783) (SPLICEJ 1785 . 1956) (SPLICES 1958 . 2139)))))
STOP