(FILECREATED " 1-Nov-86 18:32:04" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH131.;1
 1499   

      changes to:  (VARS RHTPATCH131COMS))


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

(PRETTYCOMPRINT RHTPATCH131COMS)

(RPAQQ RHTPATCH131COMS
 ((* * Somehow the following stuff got dropped from NCDATABASE recently. It 
			     should live right after the RECORDS def'n of NoteFileVersion.)
	(VARS (NC.NoteFileVersionsList (LIST (create NoteFileVersion Version ← 3 
						     NumberOfReservedCards ← 20 NoteFileIndexWidth ← 
						     28 NoteFileHeaderSize ← 30))))
	(FNS NC.FetchCurrentVersionObject)))
(* * Somehow the following stuff got dropped from NCDATABASE recently. It should live right 
after the RECORDS def'n of NoteFileVersion.)



(RPAQ NC.NoteFileVersionsList
 (LIST (create NoteFileVersion Version ← 3 NumberOfReservedCards ← 20 
					      NoteFileIndexWidth ← 28 NoteFileHeaderSize ← 30)))
(DEFINEQ

(NC.FetchCurrentVersionObject

  (LAMBDA NIL                                                (* rht: "15-Nov-85 01:16")


          (* * Return the NoteFileVersion object corresponding to the latest release of notecards.)



    (for
 NoteFileVersion in
 NC.NoteFileVersionsList when
 (
EQ
 (fetch
 (NoteFileVersion 
											  Version)
									of
 NoteFileVersion)
								     NC.VersionNumber)
       do
 (
RETURN
 NoteFileVersion))))
)
(PUTPROPS RHTPATCH131 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (935 1417 (NC.FetchCurrentVersionObject 945 . 1415)))))
STOP