(FILECREATED "23-Jan-86 12:13:28" {QV}<NOTECARDS>1.3K>RHTPATCH025.;1
 1210   

      changes to:  (VARS RHTPATCH025COMS))


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

(PRETTYCOMPRINT RHTPATCH025COMS)

(RPAQQ RHTPATCH025COMS
 ((* * This fix is for a function in NCGRAPHCARD)
			  (FNS NC.GraphCopySubstance)))
(* * This fix is for a function in NCGRAPHCARD)


(DEFINEQ

(NC.GraphCopySubstance

  (LAMBDA (Card FromStream ToStream Length)                  (* rht: "23-Jan-86 12:12")


          (* * Copy a graph substance from FromStream to ToStream.)




          (* * fgh 11/14/85 Updated to handle Card object.)




          (* * fgh 11/20/85 NoteCards now handles the start and end ptrs -- passing the from ptrs as args and properly 

	  setting the to ptrs.)




          (* * fgh 11/21/85 Now passes length instead of start and end ptrs.)




          (* * Copy the bytes)



    (LET* ((FromStartPtr (
GETFILEPTR
 FromStream))
	   (FromEndPtr (
PLUS
 Length FromStartPtr)))
          (
COPYBYTES
 FromStream ToStream FromStartPtr FromEndPtr))
    T))
)
(PUTPROPS RHTPATCH025 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (395 1128 (NC.GraphCopySubstance 405 . 1126)))))
STOP