(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED " 8-Sep-87 14:41:03" |{MCS:MCS:STANFORD}<LANE>READDATATYPE.;3|
 2108   

      changes to%:  (VARS READDATATYPECOMS)
                    (FNS READDATATYPE)

      previous date%: " 8-Sep-87 11:45:52" |{MCS:MCS:STANFORD}<LANE>READDATATYPE.;1|)


(* "
Copyright (c) 1986, 1987 by Stanford University.  All rights reserved.
")

(PRETTYCOMPRINT READDATATYPECOMS)

(RPAQQ READDATATYPECOMS
 [(FNS READDATATYPE)
                         (P (SETSYNTAX '%@ '(MACRO FIRST READDATATYPE) (FIND-READTABLE "INTERLISP"])
(DEFINEQ

(READDATATYPE

  [LAMBDA (FILE RDTBL)
                                       (* ; "Edited  8-Sep-87 14:38 by cdl")


    (if
 (EQ '{ (PEEKC FILE))
        then
 [PROG (TYPE START LOC FLG (DATUM (READ FILE RDTBL)))
                   [SETQ TYPE (SUBATOM DATUM [ADD1 (SETQ START (OR (STRPOS '{ DATUM)
                                                                   (RETURN]
                                     (SUB1 (SETQ START (OR (STRPOS '} DATUM START)
                                                           (RETURN]
                   [SETQ START (ADD1 (OR (STRPOS '%# DATUM START)
                                         (RETURN]
                   [SETQ LOC (CONS (if
 (SETQ FLG (STRPOS '%, DATUM START))
                                       then
 (PACK* (SUBATOM DATUM START (SUB1 FLG))
                                                   'Q)
                                     else
 0)
                                   (PACK* (SUBATOM DATUM (if
 FLG
                                                             then
 (ADD1 FLG)
                                                           else
 START))
                                          'Q]
                   (if
 [EQ TYPE (TYPENAME (SETQ DATUM (VAG LOC]
                       then
 (RETURN (KWOTE DATUM]
      else
 '%@])
)
(SETSYNTAX '%@ '(MACRO FIRST READDATATYPE) (FIND-READTABLE "INTERLISP"))
(PUTPROPS READDATATYPE COPYRIGHT ("Stanford University" 1986 1987))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (590 1944 (READDATATYPE 600 . 1942)))))
STOP