perm filename CYCPRE.LSP[DEN,LMM] blob
sn#045522 filedate 1973-05-19 generic text, type T, neo UTF8
(DEFPROP CYCPREFNS
(CYCPREFNS (COMMENT THESE MUST BE LOADED PRIOR TO COMPILATION - RECORDS & MACROS)
(DEFAULT (QUOTE CTENTRY) (QUOTE (ID2 CTE)))
(DEFAULT (QUOTE CTENTRY) (QUOTE (MARKERS (NIL))))
(DEFAULT (QUOTE STRUCTURE) (QUOTE (ID1 STRUC)))
(DEFAULT (QUOTE STRUCTURE) (QUOTE (GROUP (NIL))))
(DEFAULT (QUOTE STRUCFORM) (QUOTE (ID$ FORM)))
(DEFAULT (QUOTE OTHERTYPE) (QUOTE (OTHID SOMETHING←ELSE)))
(DEFAULT (QUOTE UNCLASSED) (QUOTE (IDUNCLASSED ?)))
(DEFAULT (QUOTE COMBINATION) (QUOTE (IDCOMB BOTH)))
(DEFAULT (QUOTE EDGETYPE) (QUOTE (IDEGES EDGES)))
(DEFAULT (QUOTE MULTTYPE) (QUOTE (IDMULT MULT)))
(DEFAULT (QUOTE NODETYPE) (QUOTE (IDNODE NODES)))
(RECORD (QUOTE LOOPPARTITION) (QUOTE (LOOPVL EDGELABELS . LOOPLABELS)))
(RECORD (QUOTE EDGE) (QUOTE (NODE1 . NODE2)))
(RECORD (QUOTE CTENTRY) (QUOTE (ID2 NODENUM MARKERS . NBRS)))
(RECORD (QUOTE MARKER-REC) (QUOTE (ATOMTYPE . OTHERMARKERS)))
(RECORD (QUOTE IDDUMMY) (QUOTE (ID . RESTOF-IDDUMMY)))
(RECORD (QUOTE MAKECENTER) (QUOTE (AFFLINK RADSTRUC . CUFFLINKS)))
(RECORD (QUOTE RADICAL) (QUOTE (CENTER . ATTACHEDRADS)))
(RECORD (QUOTE STRUCTURE) (QUOTE (ID1 CTABLE UGRAPH LASTNODE# . GROUP)))
(RECORD (QUOTE STRUCFORM) (QUOTE (ID$ . FORM)))
(RECORD (QUOTE FVPARTITION) (QUOTE (NEWVL . FVR)))
(RECORD (QUOTE SUPERATOMPARTITION) (QUOTE (SUPERATOMPARTS . REMAININGATOMS)))
(RECORD (QUOTE LABELING) (QUOTE (LABELED UNLABELED . LSTRUC)))
(RECORD (QUOTE CHECKVAL) (QUOTE (LABELEDSOFAR LABELSLEFT . NPLLEFT)))
(RECORD (QUOTE NPL) (QUOTE (REMPERMS . OKPERMS)))
(RECORD (QUOTE CHECKPERM) (QUOTE (OBJ POBJ . ORIGPERM)))
(RECORD (QUOTE OTHERTYPE) (QUOTE (OTHID OTHOBJECTS)))
(RECORD (QUOTE UNCLASSED) (QUOTE (IDUNCLASSED . OBJECTS)))
(RECORD (QUOTE COMBINATION) (QUOTE (IDCOMB OBJ1 . OBJ2)))
(RECORD (QUOTE EDGETYPE) (QUOTE (IDEGES . NODEPRS)))
(RECORD (QUOTE MULTTYPE) (QUOTE (IDMULT MULT . UNMULTED)))
(RECORD (QUOTE NODETYPE) (QUOTE (IDNODE . NODENUMS)))
(SPECIAL CATALOG-LIST)
(SPECIAL LASTNODE TRIVALENTCODES)
(SPECIAL SSTRUC)
CONSTO
NODES?
MULTTYPE?
EDGES?
COMBINATION?
UNCLASSED?
STRUCTURE?
STRUCFORM?
CTENTRY?
(DEFLIST (QUOTE ((C 4.) (N 3.) (I 1.) (CL 1.) (BR 1.) (F 1.) (S 2.) (P 5.) (O 2.) (SI 4.) (H 1.)))
(QUOTE VALENCE)))
VALUE)
(COMMENT THESE MUST BE LOADED PRIOR TO COMPILATION - RECORDS & MACROS)
(DEFAULT (QUOTE CTENTRY) (QUOTE (ID2 CTE)))
(DEFAULT (QUOTE CTENTRY) (QUOTE (MARKERS (NIL))))
(DEFAULT (QUOTE STRUCTURE) (QUOTE (ID1 STRUC)))
(DEFAULT (QUOTE STRUCTURE) (QUOTE (GROUP (NIL))))
(DEFAULT (QUOTE STRUCFORM) (QUOTE (ID$ FORM)))
(DEFAULT (QUOTE OTHERTYPE) (QUOTE (OTHID SOMETHING←ELSE)))
(DEFAULT (QUOTE UNCLASSED) (QUOTE (IDUNCLASSED ?)))
(DEFAULT (QUOTE COMBINATION) (QUOTE (IDCOMB BOTH)))
(DEFAULT (QUOTE EDGETYPE) (QUOTE (IDEGES EDGES)))
(DEFAULT (QUOTE MULTTYPE) (QUOTE (IDMULT MULT)))
(DEFAULT (QUOTE NODETYPE) (QUOTE (IDNODE NODES)))
(RECORD (QUOTE LOOPPARTITION) (QUOTE (LOOPVL EDGELABELS . LOOPLABELS)))
(RECORD (QUOTE EDGE) (QUOTE (NODE1 . NODE2)))
(RECORD (QUOTE CTENTRY) (QUOTE (ID2 NODENUM MARKERS . NBRS)))
(RECORD (QUOTE MARKER-REC) (QUOTE (ATOMTYPE . OTHERMARKERS)))
(RECORD (QUOTE IDDUMMY) (QUOTE (ID . RESTOF-IDDUMMY)))
(RECORD (QUOTE MAKECENTER) (QUOTE (AFFLINK RADSTRUC . CUFFLINKS)))
(RECORD (QUOTE RADICAL) (QUOTE (CENTER . ATTACHEDRADS)))
(RECORD (QUOTE STRUCTURE) (QUOTE (ID1 CTABLE UGRAPH LASTNODE# . GROUP)))
(REOORD (QUOTE STRUCFORM) (QUOTE (ID$ . FORM)))
(RECORD (QUOTE FVPARTITION) (QUOTE (NEWVL . FVR)))
(RECORD (QUOTE SUPERATOMPARTITION) (QUOTE (SUPERATOMPARTS . REMAININGATOMS)))
(RECORD (QUOTE LABELING) (QUOTE (LABELED UNLABELED . LSTRUC)))
(RECORD (QUOTE CHECKVAL) (QUOTE (LABELEDSOFAR LABELSLEFT . NPLLEFT)))
(RECORD (QUOTE NPL) (QUOTE (REMPERMS . OKPERMS)))
(RECORD (QUOTE CHECKPERM) (QUOTE (OBJ POBJ . ORIGPERM)))
(RECORD (QUOTE OTHERTYPE) (QUOTE (OTHID OTHOBJECTS)))
(RECORD (QUOTE UNCLASSED) (QUOTE (IDUNCLASSED . OBJECTS)))
(RECORD (QUOTE COMBINATION) (QUOTE (IDCOMB OBJ1 . OBJ2)))
(RECORD (QUOTE EDGETYPE) (QUOTE (IDEGES . NODEPRS)))
(RECORD (QUOTE MULTTYPE) (QUOTE (IDMULT MULT . UNMULTED)))
(RECORD (QUOTE NODETYPE) (QUOTE (IDNODE . NODENUMS)))
(SPECIAL CATALOG-LIST)
(SPECIAL LASTNODE TRIVALENTCODES)
(SPECIAL SSTRUC)
(DEFPROP CONSTO
(LAMBDA(CONSTOEXPRESSION)
(RPLACNODE CONSTOEXPRESSION
(LIST (QUOTE SETQ)
(CADR CONSTOEXPRESSION)
(LIST (QUOTE CONS) (CADDR CONSTOEXPRESSION) (CADR CONSTOEXPRESSION)))))
MACRO)
(DEFPROP NODES?
(LAMBDA (EXPRESSION) (LIST (QUOTE EQ) (LIST (QUOTE CAR) (CADR EXPRESSION)) (QUOTE (QUOTE NODES))))
MACRO)
(DEFPROP MULTTYPE?
(LAMBDA (EXPRESSION) (LIST (QUOTE EQ) (LIST (QUOTE CAR) (CADR EXPRESSION)) (QUOTE (QUOTE MULT))))
MACRO)
(DEFPROP EDGES?
(LAMBDA (EXPRESSION) (LIST (QUOTE EQ) (LIST (QUOTE CAR) (CADR EXPRESSION)) (QUOTE (QUOTE EDGES))))
MACRO)
(DEFPROP COMBINATION?
(LAMBDA (EXPRESSION) (LIST (QUOTE EQ) (LIST (QUOTE CAR) (CADR EXPRESSION)) (QUOTE (QUOTE BOTH))))
MACRO)
(DEFPROP UNCLASSED?
(LAMBDA (EXPRESSION) (LIST (QUOTE EQ) (LIST (QUOTE CAR) (CADR EXPRESSION)) (QUOTE (QUOTE ?))))
MACRO)
(DEFPROP STRUCTURE?
(LAMBDA (STRUCEXPRESSION) (LIST (QUOTE EQ) (LIST (QUOTE CAR) (CADR STRUCEXPRESSION)) (QUOTE (QUOTE STRUC))))
MACRO)
(DEFPROP STRUCFORM?
(LAMBDA (STRUCEXPRESSION) (LIST (QUOTE EQ) (LIST (QUOTE CAR) (CADR STRUCEXPRESSION)) (QUOTE (QUOTE FORM))))
MACRO)
(DEFPROP CTENTRY?
(LAMBDA (X) (LIST (QUOTE EQ) (LIST (QUOTE ID) (CADR X)) (QUOTE (QUOTE CTE))))
MACRO)
(DEFLIST (QUOTE ((C 4.) (N 3.) (I 1.) (CL 1.) (BR 1.) (F 1.) (S 2.) (P 5.) (O 2.) (SI 4.) (H 1.)))
(QUOTE VALENCE))