;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 124.63
;;; Reason:
;;;  (copy-seq <array-with-fill-pointer>) now preserves the fill pointer.
;;; Written 15-Jun-88 17:58:11 by keith at site Gigamos Cambridge
;;; while running on Azathoth from band 1
;;; with Experimental System 124.59, Experimental Local-File 74.2, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.0, Experimental Tape 23.6, Experimental Lambda-Diag 16.2, microcode 1759, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From modified file DJ: L.SYS; QFCTNS.LISP#842 at 15-Jun-88 17:58:12
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; QFCTNS  "

(DEFUN COPY-SEQ (SEQUENCE)
  "Return a new sequence with the same elements as SEQUENCE, and of the same type.
SEQUENCE may be a list or an array."
  (ETYPECASE SEQUENCE
    (LIST (COPY-LIST SEQUENCE))
    (VECTOR
     (LET* ((LEN (LENGTH SEQUENCE))
	    (NEW (SIMPLE-MAKE-ARRAY LEN (ARRAY-TYPE SEQUENCE) nil (array-leader-length sequence))))
       (COPY-ARRAY-CONTENTS-and-leader SEQUENCE NEW)
       NEW))))

))