
(/VERSIONCHECK 2) 

(PUT '|ANON;coerce;$Of;1| '|SPADreplace| '(XLAM (|x|) |x|)) 

(DEFUN |ANON;coerce;$Of;1| (|x| $) |x|) 

(DEFUN |AnonymousFunction| ()
  (PROG ()
    (RETURN
      (PROG (#0=#:G1817)
        (RETURN
          (COND
            ((LETT #0# (HGET |$ConstructorCache| '|AnonymousFunction|)
                   . #1=(|AnonymousFunction|))
             (|CDRwithIncrement| (CDAR #0#)))
            ('T
             (UNWIND-PROTECT
               (PROG1 (CDDAR (HPUT |$ConstructorCache|
                                   '|AnonymousFunction|
                                   (LIST
                                    (CONS NIL
                                     (CONS 1 (|AnonymousFunction;|))))))
                 (LETT #0# T . #1#))
               (COND
                 ((NOT #0#)
                  (HREM |$ConstructorCache| '|AnonymousFunction|))))))))))) 

(DEFUN |AnonymousFunction;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT |dv$| '(|AnonymousFunction|) . #0=(|AnonymousFunction|))
        (LETT $ (GETREFV 11) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|AnonymousFunction| NIL
            (CONS 1 $))
        (|stuffDomainSlots| $)
        $)))) 

(MAKEPROP '|AnonymousFunction| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|OutputForm|) |ANON;coerce;$Of;1|
             (|SingleInteger|) (|String|) (|Boolean|))
          '#(~= 0 |latex| 6 |hash| 11 |coerce| 16 = 21) 'NIL
          (CONS (|makeByteWordVec2| 1 '(0 0 0))
                (CONS '#(|SetCategory&| |BasicType&| NIL)
                      (CONS '#((|SetCategory|) (|BasicType|)
                               (|CoercibleTo| 6))
                            (|makeByteWordVec2| 10
                                '(2 0 10 0 0 1 1 0 9 0 1 1 0 8 0 1 1 0
                                  6 0 7 2 0 10 0 0 1)))))
          '|lookupComplete|)) 

(MAKEPROP '|AnonymousFunction| 'NILADIC T) 
