1 2(SDEFUN |NONE;coerce;$Of;1| ((|none| $) ($ |OutputForm|)) 3 (SPADCALL "NONE" (QREFELT $ 8))) 4 5(PUT '|NONE;=;2$B;2| '|SPADreplace| 'EQ) 6 7(SDEFUN |NONE;=;2$B;2| ((|x| $) (|y| $) ($ |Boolean|)) (EQ |x| |y|)) 8 9(DECLAIM (NOTINLINE |None;|)) 10 11(DEFUN |None| () 12 (SPROG NIL 13 (PROG (#1=#:G403) 14 (RETURN 15 (COND 16 ((LETT #1# (HGET |$ConstructorCache| '|None|)) 17 (|CDRwithIncrement| (CDAR #1#))) 18 ('T 19 (UNWIND-PROTECT 20 (PROG1 21 (CDDAR 22 (HPUT |$ConstructorCache| '|None| 23 (LIST (CONS NIL (CONS 1 (|None;|)))))) 24 (LETT #1# T)) 25 (COND ((NOT #1#) (HREM |$ConstructorCache| '|None|)))))))))) 26 27(DEFUN |None;| () 28 (SPROG ((|dv$| NIL) ($ NIL) (|pv$| NIL)) 29 (PROGN 30 (LETT |dv$| '(|None|)) 31 (LETT $ (GETREFV 14)) 32 (QSETREFV $ 0 |dv$|) 33 (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL))) 34 (|haddProp| |$ConstructorCache| '|None| NIL (CONS 1 $)) 35 (|stuffDomainSlots| $) 36 (SETF |pv$| (QREFELT $ 3)) 37 $))) 38 39(MAKEPROP '|None| '|infovec| 40 (LIST 41 '#(NIL NIL NIL NIL NIL NIL (|String|) (|OutputForm|) (0 . |message|) 42 |NONE;coerce;$Of;1| (|Boolean|) |NONE;=;2$B;2| (|SingleInteger|) 43 (|HashState|)) 44 '#(~= 5 |latex| 11 |hashUpdate!| 16 |hash| 22 |coerce| 27 = 32) 'NIL 45 (CONS (|makeByteWordVec2| 1 '(0 0 0)) 46 (CONS '#(|SetCategory&| |BasicType&| NIL) 47 (CONS 48 '#((|SetCategory|) (|BasicType|) (|CoercibleTo| 7)) 49 (|makeByteWordVec2| 13 50 '(1 7 0 6 8 2 0 10 0 0 1 1 0 6 0 1 51 2 0 13 13 0 1 1 0 12 0 1 1 0 7 0 52 9 2 0 10 0 0 11))))) 53 '|lookupComplete|)) 54 55(MAKEPROP '|None| 'NILADIC T) 56