Install Core Run -a TestCoreIO _ &ct _ TestCoreIO.NAnd[3] _ CoreIO.ReportSaveCellType[&ct] _ &nct _ CoreIO.RestoreCellType["NAnd"] _ CoreOps.Print[&nct] _ CoreOps.Print[CoreOps.Recast[&nct]] _ &nct _ CoreIO.RestoreCellType["NAnd"] _ CoreIO.ReportSaveCellType[&nct, "NNAnd.core"] _ &nnct _ CoreIO.RestoreCellType["NNAnd"] _ CoreOps.Print[&nnct] _ CoreOps.Print[CoreOps.Recast[&nnct]] _ &uct _ CoreClasses.CreateUnspecified[CoreCreate.Wires["a", "b", "c"], "Unspecified", CoreProperties.Props[[$Real, NEW [REAL _ 1.2]], [$Atom, $foo], [$Bool, NEW [BOOL _ TRUE]], [$Rope, "roooope"]]] _ CoreOps.Print[&uct] _ CoreIO.ReportSaveCellType[&uct] _ &nuct _ CoreIO.RestoreCellType["Unspecified"] _ CoreOps.Print[&nuct] _ CoreOps.Print[CoreOps.Recast[&nuct]] _ &lib _ SymTab.Create[] _ SymTab.Store[&lib, "foo", TestCoreIO.NAnd[3]] _ SymTab.Store[&lib, "bar", TestCoreIO.NAnd[2]] _ CoreIO.SaveLibrary[&lib, "TestCoreIO"] _ &lib _ CoreIO.RestoreLibrary["TestCoreIO"] _ &foo _ SymTab.Fetch[&lib, "foo"].val _ &bar _ SymTab.Fetch[&lib, "bar"].val _ IF &foo=NIL OR &bar=NIL THEN ERROR ELSE NIL ¬TestCoreIO.cm Copyright Σ 1986, 1987 by Xerox Corporation. All rights reserved. Barth, December 5, 1986 11:34:05 am PST Bertrand Serlet May 5, 1988 10:40:52 pm PDT Κ˜™ IcodešœB™BK™'K™+K™—K˜ K˜J˜Jšœ ˜ J˜'J˜Jšœ%˜%J˜'Jšœ/˜/J˜)J˜Jšœ&˜&Jš œtΟkœœ!œœœ˜ΖJšœ˜Jšœ!˜!Jšœ/˜/Jšœ˜Jšœ&˜&J˜J˜Jšœ/˜/Jšœ/˜/Jšœ(˜(Jšœ,˜,Jšœ&˜&Jšœ&˜&Jšœœœœœœœœ˜-J˜J˜J˜J˜—…—>ρ