(FILECREATED "28-Jan-85 08:47:06" {ERIS}<LISPCORE>SOURCES>DBBOOT.;1
 873    

      changes to:  (VARS DBBOOTCOMS)
		   (FNS CHOP))


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT DBBOOTCOMS)

(RPAQQ DBBOOTCOMS
 ((FNS CHOP)))
(DEFINEQ

(CHOP

  (LAMBDA (SRCFIL DSTFIL)                                    (* JonL "28-Jan-85 08:42")

    (
SETQ
 SRCFIL (
OPENFILE
 SRCFIL (
QUOTE
 INPUT)))
    (
SETQ
 DSTFIL (
OPENFILE
 DSTFIL (
QUOTE
 BOTH)
			   (
QUOTE
 NEW)))
    (
COPYBYTES
 SRCFIL DSTFIL 1024)
    (
SETFILEPTR
 SRCFIL (
TIMES
 512 1022))
    (
COPYBYTES
 SRCFIL DSTFIL 8192)
    (
SETFILEPTR
 DSTFIL 630)
    (
BOUT
 DSTFIL 0)
    (
BOUT
 DSTFIL 1)
    (
LIST
 (
CLOSEF
 SRCFIL)
	  (
CLOSEF
 DSTFIL))))
)
(PUTPROPS DBBOOT COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (271 796 (CHOP 281 . 794)))))
STOP