perm filename CYCPRE[1,LMM] blob sn#031687 filedate 1973-03-27 generic text, type T, neo UTF8
(COMMENT THESE MUST BE LOADED PRIOR TO COMPILATION - RECORDS & MACROS)

(DM CONSTO (CONSTOEXPRESSION)
   (RPLACNODE CONSTOEXPRESSION (LIST @ SETQ (CADR CONSTOEXPRESSION)
         (LIST @ CONS (CADDR CONSTOEXPRESSION) (CADR CONSTOEXPRESSION)))))))))
  ))
(SPECIAL @(SSTRUC))

  (RECORD (QUOTE NODETYPE)
          (QUOTE (IDNODE . NODENUMS)))
)))))))))))))))))

  (DEFAULT (QUOTE NODETYPE)
           (QUOTE (IDNODE NODES)))
)))))))))))))))))

  (DM NODES? (EXPRESSION) (LIST @ EQ
     (LIST @ CAR (CADR EXPRESSION))@ @ NODES))))))

  (RECORD (QUOTE MULTTYPE)
          (QUOTE (IDMULT MULT . UNMULTED)))

  (DEFAULT (QUOTE MULTTYPE)
           (QUOTE (IDMULT MULT)))

  (DM MULTTYPE? (EXPRESSION) (LIST @ EQ
     (LIST @ CAR (CADR EXPRESSION))@ @ MULT ))))))

  (RECORD (QUOTE EDGETYPE)
          (QUOTE (IDEGES . NODEPRS)))

  (DEFAULT (QUOTE EDGETYPE)
           (QUOTE (IDEGES EDGES)))

  (DM EDGES?    (EXPRESSION) (LIST @ EQ
     (LIST @ CAR (CADR EXPRESSION))@ @ EDGES))))))

  (RECORD (QUOTE COMBINATION)
          (QUOTE (IDCOMB OBJ1 . OBJ2)))

  (DEFAULT (QUOTE COMBINATION)
           (QUOTE (IDCOMB BOTH)))

  (DM COMBINATION?    (EXPRESSION) (LIST @ EQ
     (LIST @ CAR (CADR EXPRESSION))@ @ BOTH ))))))

  (RECORD (QUOTE UNCLASSED)
          (QUOTE (IDUNCLASSED . OBJECTS)))

  (DEFAULT (QUOTE UNCLASSED)
           (QUOTE (IDUNCLASSED ?)))

  (DM UNCLASSED?(EXPRESSION) (LIST @ EQ
     (LIST @ CAR (CADR EXPRESSION))@ @ ?))))))

  (RECORD (QUOTE OTHERTYPE)
          (QUOTE (OTHID OTHOBJECTS)))

  (DEFAULT (QUOTE OTHERTYPE)
           (QUOTE (OTHID SOMETHINGā†ELSE)))
  (RECORD (QUOTE CHECKPERM)
          (QUOTE (OBJ POBJ . ORIGPERM)))

)))))))))))))))))
  (RECORD (QUOTE NPL)
          (QUOTE (REMPERMS . OKPERMS)))
)))))))))))))))))

  (RECORD (QUOTE CHECKVAL)
          (QUOTE (LABELEDSOFAR LABELSLEFT . NPLLEFT)))
)))))))))))))))))

  (RECORD (QUOTE LABELING)
          (QUOTE (LABELED UNLABELED . LSTRUC)))
)))))))))))))))))
  (DM STRUCTURE?(STRUCEXPRESSION) (LIST (QUOTE EQ)
  (LIST @ CAR (CADR STRUCEXPRESSION))
                    @ @ STRUC))))))
)))))))))))))))))

  (DM STRUCFORM? (STRUCEXPRESSION)(LIST (QUOTE EQ)
            (LIST (QUOTE CAR) (CADR STRUCEXPRESSION))
                    @ @ FORM))))))
)))))))))))))))))

  (RECORD (QUOTE SUPERATOMPARTITION)
          (QUOTE (SUPERATOMPARTS . REMAININGATOMS)))

  (RECORD (QUOTE FVPARTITION)
          (QUOTE (NEWVL . FVR)))

  (RECORD (QUOTE STRUCFORM)
          (QUOTE (ID$ . FORM)))

  (RECORD (QUOTE STRUCTURE)
          (QUOTE (ID1 CTABLE UGRAPH LASTNODE# . GROUP)))

  (RECORD (QUOTE RADICAL)
          (QUOTE (CENTER . ATTACHEDRADS)))

  (RECORD (QUOTE MAKECENTER)
          (QUOTE (AFFLINK RADSTRUC . CUFFLINKS)))

  (RECORD (QUOTE IDDUMMY)
          (QUOTE (ID . RESTOF-IDDUMMY)))

  (RECORD (QUOTE MARKER-REC)
          (QUOTE (ATOMTYPE . OTHERMARKERS)))

  (RECORD (QUOTE CTENTRY)
          (QUOTE (ID2 NODENUM MARKERS . NBRS)))

  (RECORD (QUOTE EDGE)
          (QUOTE (NODE1 . NODE2)))

  (RECORD (QUOTE LOOPPARTITION)
          (QUOTE (LOOPVL EDGELABELS . LOOPLABELS)))

  (DEFAULT (QUOTE STRUCFORM)
           (QUOTE (ID$ FORM)))

  (DEFAULT (QUOTE STRUCTURE)
           (QUOTE (GROUP (NIL))))

  (DEFAULT (QUOTE STRUCTURE)
           (QUOTE (ID1 STRUC)))

  (DEFAULT (QUOTE CTENTRY)
           (QUOTE (MARKERS (NIL))))

  (DEFAULT (QUOTE CTENTRY)
           (QUOTE (ID2 CTE)))

  (SPECIAL (QUOTE (LASTNODE TRIVALENTCODES)))

  (SPECIAL (QUOTE (CATALOG-LIST)))

  (SPECIAL (QUOTE (XLATETABLE XLATN)))