(FILECREATED "22-Nov-84 16:35:38" {ERIS}<LISPCORE>SOURCES>SPLICE.;3
 3540   

      changes to:  (FNS NCLIP)

      previous date: "24-Sep-84 15:08:05" {ERIS}<LISPCORE>SOURCES>SPLICE.;2)


(PRETTYCOMPRINT SPLICECOMS)

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

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

(CLIP

  [LAMBDA (SRCFIL DSTFIL)                                    (* bvm: "24-Sep-84 15:03")

    (
CLOSEALL
)
    [
COPYBYTES
 (
OPENFILE
 SRCFIL (
QUOTE
 INPUT))
	       (
OPENFILE
 DSTFIL (
QUOTE
 BOTH)
			 (
QUOTE
 OLD)
			 NIL
			 (
QUOTE
 (DON'T.CHANGE.DATE]
    (
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)                                    (* JonL "22-Nov-84 16:34")

    (
RESETLST
 (
RESETSAVE
 (
SETQ
 SRCFIL (
OPENSTREAM
 SRCFIL (
QUOTE
 INPUT)))
			 (
QUOTE
 (
PROGN
 (
CLOSEF?
 OLDVALUE))))
	      (if
 (
IGREATERP
 (IABS (
IDIFFERENCE
 200 (
OR
 (
GETFILEINFO
 SRCFIL (
QUOTE
 SIZE))
							200)))
			     100)
		  then
 (
HELP
 SRCFIL "File size not appropriate for DLion ucode .db")
		elseif
 (
AND
 (
NEQ
 (
GETFILEINFO
 SRCFIL (
QUOTE
 TYPE))
				 (
QUOTE
 BINARY))
			    (
GETFILEINFO
 SRCFIL (
QUOTE
 TYPE)))
		  then
 (
HELP
 SRCFIL "File type must be BINARY for DLion ucode .db"))
	      (
RESETSAVE
 (
SETQ
 DSTFIL (
OPENSTREAM
 DSTFIL (
QUOTE
 BOTH)
						  (
QUOTE
 OLD)
						  NIL
						  (
QUOTE
 (DON'T.CHANGE.DATE))))
			 (
QUOTE
 (
PROGN
 (
CLOSEF?
 OLDVALUE))))
	      (if
 (
ILESSP
 (
OR
 (
GETFILEINFO
 DSTFIL (
QUOTE
 SIZE))
			      2000)
			  2000)
		  then
 (
HELP
 DSTFIL "File size not appropriate for .sysout")
		elseif
 (
AND
 (
NEQ
 (
GETFILEINFO
 DSTFIL (
QUOTE
 TYPE))
				 (
QUOTE
 BINARY))
			    (
GETFILEINFO
 DSTFIL (
QUOTE
 TYPE)))
		  then
 (
HELP
 DSTFIL "File type must be BINARY for .sysout")
		elseif
 (
NOT
 (
RANDACCESSP
 DSTFIL))
		  then
 (
HELP
 DSTFIL ".sysout File must be RANDACCESSP for CLIP'ing"))
	      (
SETFILEPTR
 SRCFIL 512)
	      (
SETFILEPTR
 DSTFIL 1024)
	      (
COPYBYTES
 SRCFIL DSTFIL)
	      (
LIST
 (
FULLNAME
 SRCFIL)
		    (
FULLNAME
 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 (372 3453 (CLIP 382 . 690) (JJOIN 692 . 929) (LSPLICE 931 . 1105) (NCLIP 1107 . 2702) (
NSPLICE 2704 . 2902) (SPLICE 2904 . 3095) (SPLICEJ 3097 . 3268) (SPLICES 3270 . 3451)))))
STOP