(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "26-Jun-90 19:24:01" {DSK}<usr>local>lde>lispcore>internal>library>SPLICE.;2
 3583   

      changes to%:  (VARS SPLICECOMS)

      previous date%: "22-Nov-84 16:35:38" {DSK}<usr>local>lde>lispcore>internal>library>SPLICE.;1)


(* ; "
Copyright (c) 1990 by Venue & Xerox Corporation.  All rights reserved.
")

(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 'INPUT)
           (OPENFILE DSTFIL 'BOTH 'OLD NIL '(DON'T.CHANGE.DATE]
    (CLOSEALL])

(JJOIN

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

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

(LSPLICE

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

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

(NCLIP

  [LAMBDA (SRCFIL DSTFIL)
                                (* JonL "22-Nov-84 16:34")

    (RESETLST
        [RESETSAVE (SETQ SRCFIL (OPENSTREAM SRCFIL 'INPUT))
               '(PROGN (CLOSEF? OLDVALUE]
        (if
 (IGREATERP (IABS (IDIFFERENCE 200 (OR (GETFILEINFO SRCFIL 'SIZE)
                                                      200)))
                       100)
            then
 (HELP SRCFIL "File size not appropriate for DLion ucode .db")
          elseif
 (AND (NEQ (GETFILEINFO SRCFIL 'TYPE)
                               'BINARY)
                          (GETFILEINFO SRCFIL 'TYPE))
            then
 (HELP SRCFIL "File type must be BINARY for DLion ucode .db"))
        [RESETSAVE [SETQ DSTFIL (OPENSTREAM DSTFIL 'BOTH 'OLD NIL '(DON'T.CHANGE.DATE]
               '(PROGN (CLOSEF? OLDVALUE]
        (if
 (ILESSP (OR (GETFILEINFO DSTFIL 'SIZE)
                            2000)
                       2000)
            then
 (HELP DSTFIL "File size not appropriate for .sysout")
          elseif
 (AND (NEQ (GETFILEINFO DSTFIL 'TYPE)
                               'BINARY)
                          (GETFILEINFO DSTFIL '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
 '{DSK}DLISPDOMINO.DB (OR DLBOOTNAME '{DSK}BIGTEST.DLBOOT])

(SPLICE

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

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

(SPLICEJ

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

    (JOIN
 '{DSK}TEST.SYSOUT '{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 ("Venue & Xerox Corporation" 1990))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (587 3467 (CLIP 597 . 834) (JJOIN 836 . 1051) (LSPLICE 1053 . 1211) (NCLIP 1213 . 2766) 
(NSPLICE 2768 . 2950) (SPLICE 2952 . 3127) (SPLICEJ 3129 . 3284) (SPLICES 3286 . 3465)))))
STOP