(FILECREATED "12-Jul-86 11:41:15" {QV}<NOTECARDS>1.3K>RHTPATCH064.;1
 1032   

      changes to:  (VARS RHTPATCH064COMS)
		   (RECORDS LINKDISPLAYMODE))


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

(PRETTYCOMPRINT RHTPATCH064COMS)

(RPAQQ RHTPATCH064COMS
 ((* * Changes type? handler for LINKDISPLAYMODE in NCLINKS)
			  (RECORDS LINKDISPLAYMODE)))
(* * Changes type? handler for LINKDISPLAYMODE in NCLINKS)


[DECLARE: EVAL@COMPILE 

(TYPERECORD LINKDISPLAYMODE
 (SHOWTITLEFLG SHOWLINKTYPEFLG ATTACHBITMAPFLG)
			      (TYPE?
 (
AND
 (
EQ
 (
LENGTH
 DATUM)
						    4)
					      (
EQ
 (
CAR
 DATUM)
						    (
QUOTE
 LINKDISPLAYMODE))
					      (
FMEMB
 (
CADR
 DATUM)
						       (
QUOTE
 (T NIL FLOAT)))
					      (
FMEMB
 (
CADDR
 DATUM)
						       (
QUOTE
 (T NIL FLOAT)))
					      (
FMEMB
 (
CADDDR
 DATUM)
						       (
QUOTE
 (T NIL FLOAT)))
					      T)))
]
(PUTPROPS RHTPATCH064 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP