
(/VERSIONCHECK 2) 

(DEFUN |SPACE3;convertSpace| (|space| $)
  (PROG (|component| #0=#:G1858 |lprop| |curve| #1=#:G1859 |tmplprop|
            |point| #2=#:G1860 |tmplipt| |tmpllipt| |llprop| |lllipt|)
    (RETURN
      (SEQ (COND
             ((QVELT |space| 4) |space|)
             ('T
              (SEQ (QSETVELT |space| 4 'T)
                   (LETT |lllipt| NIL . #3=(|SPACE3;convertSpace|))
                   (LETT |llprop| NIL . #3#) (LETT |lprop| NIL . #3#)
                   (SEQ (LETT |component| NIL . #3#)
                        (LETT #0#
                              (SPADCALL (QVELT |space| 0)
                                  (QREFELT $ 10)) . #3#)
                        G190
                        (COND
                          ((OR (ATOM #0#)
                               (PROGN
                                 (LETT |component| (CAR #0#) . #3#)
                                 NIL))
                           #4=(GO G191)))
                        (SEQ (LETT |lprop|
                                   (CONS
                                    (SPADCALL |component|
                                     (QREFELT $ 12))
                                    |lprop|) . #3#)
                             (LETT |tmpllipt| NIL . #3#)
                             (LETT |tmplprop| NIL . #3#)
                             (SEQ (LETT |curve| NIL . #3#)
                                  (LETT #1#
                                        (SPADCALL |component|
                                         (QREFELT $ 10)) . #3#)
                                  G190
                                  (COND
                                    ((OR (ATOM #1#)
                                      (PROGN
                                        (LETT |curve| (CAR #1#) . #3#)
                                        NIL))
                                     #4#))
                                  (SEQ (LETT |tmplprop|
                                        (CONS
                                         (SPADCALL |curve|
                                          (QREFELT $ 12))
                                         |tmplprop|) . #3#)
                                       (LETT |tmplipt| NIL . #3#)
                                       (SEQ (LETT |point| NIL . #3#)
                                        (LETT #2#
                                         (SPADCALL |curve|
                                          (QREFELT $ 10)) . #3#)
                                        G190
                                        (COND
                                          ((OR (ATOM #2#)
                                            (PROGN
                                              (LETT |point|
                                               (CAR #2#) . #3#)
                                              NIL))
                                           #4#))
                                        (SEQ
                                         (EXIT
                                          (LETT |tmplipt|
                                           (CONS
                                            (SPADCALL |point|
                                             (QREFELT $ 14))
                                            |tmplipt|) . #3#)))
                                        (LETT #2# (CDR #2#) . #3#)
                                        #5=(GO G190) G191 (EXIT NIL))
                                       (EXIT
                                        (LETT |tmpllipt|
                                         (CONS (NREVERSE |tmplipt|)
                                          |tmpllipt|) . #3#)))
                                  (LETT #1# (CDR #1#) . #3#) #5# G191
                                  (EXIT NIL))
                             (LETT |llprop|
                                   (CONS (NREVERSE |tmplprop|)
                                    |llprop|) . #3#)
                             (EXIT (LETT |lllipt|
                                    (CONS (NREVERSE |tmpllipt|)
                                     |lllipt|) . #3#)))
                        (LETT #0# (CDR #0#) . #3#) #5# G191 (EXIT NIL))
                   (QSETVELT |space| 2
                       (VECTOR (SPADCALL (QVELT |space| 0)
                                   (QREFELT $ 16))
                               (NREVERSE |lllipt|) (NREVERSE |llprop|)
                               (NREVERSE |lprop|)))
                   (EXIT |space|)))))))) 

(DEFUN |SPACE3;polygon;$L$;2| (|space| |points| $)
  (PROG (|pt| |p| #0=#:G1865)
    (RETURN
      (SEQ (COND
             ((< (LENGTH |points|) 3)
              (|error| "You need at least 3 points to define a polygon"))
             ('T
              (SEQ (LETT |pt|
                         (SPADCALL (QVELT |space| 0)
                             (|SPADfirst| |points|) (QREFELT $ 18))
                         . #1=(|SPACE3;polygon;$L$;2|))
                   (LETT |points| (CDR |points|) . #1#)
                   (SPADCALL (QVELT |space| 0) |pt|
                       (|SPADfirst| |points|) 1 (QREFELT $ 19))
                   (SEQ (LETT |p| NIL . #1#)
                        (LETT #0# (CDR |points|) . #1#) G190
                        (COND
                          ((OR (ATOM #0#)
                               (PROGN (LETT |p| (CAR #0#) . #1#) NIL))
                           (GO G191)))
                        (SEQ (EXIT (SPADCALL (QVELT |space| 0) |pt| |p|
                                    2 (QREFELT $ 19))))
                        (LETT #0# (CDR #0#) . #1#) (GO G190) G191
                        (EXIT NIL))
                   (QSETVELT |space| 4 'NIL) (EXIT |space|)))))))) 

(DEFUN |SPACE3;create3Space;$;3| ($)
  (VECTOR (SPADCALL (QREFELT $ 21)) NIL (VECTOR NIL NIL NIL NIL)
          (VECTOR 0 0 0 0) 'NIL)) 

(DEFUN |SPACE3;create3Space;Ss$;4| (|s| $)
  (VECTOR |s| NIL (VECTOR NIL NIL NIL NIL) (VECTOR 0 0 0 0) 'NIL)) 

(DEFUN |SPACE3;numberOfComponents;$Nni;5| (|space| $)
  (LENGTH (SPADCALL (QVELT |space| 0) (QREFELT $ 10)))) 

(DEFUN |SPACE3;numberOfComposites;$Nni;6| (|space| $)
  (LENGTH (QVELT |space| 1))) 

(DEFUN |SPACE3;merge;L$;7| (|listOfThreeSpaces| $)
  (PROG (#0=#:G1878 #1=#:G1879 |newspace| |ts| #2=#:G1880)
    (RETURN
      (SEQ (LETT |newspace|
                 (SPADCALL
                     (SPADCALL
                         (PROGN
                           (LETT #0# NIL . #3=(|SPACE3;merge;L$;7|))
                           (SEQ (LETT |ts| NIL . #3#)
                                (LETT #1# |listOfThreeSpaces| . #3#)
                                G190
                                (COND
                                  ((OR (ATOM #1#)
                                    (PROGN
                                      (LETT |ts| (CAR #1#) . #3#)
                                      NIL))
                                   #4=(GO G191)))
                                (SEQ (EXIT
                                      (LETT #0#
                                       (CONS (QVELT |ts| 0) #0#) . #3#)))
                                (LETT #1# (CDR #1#) . #3#) #5=(GO G190)
                                G191 (EXIT (NREVERSE0 #0#))))
                         (QREFELT $ 27))
                     (QREFELT $ 24)) . #3#)
           (SEQ (LETT |ts| NIL . #3#)
                (LETT #2# |listOfThreeSpaces| . #3#) G190
                (COND
                  ((OR (ATOM #2#)
                       (PROGN (LETT |ts| (CAR #2#) . #3#) NIL))
                   #4#))
                (SEQ (EXIT (QSETVELT |newspace| 1
                               (APPEND (QVELT |ts| 1)
                                       (QVELT |newspace| 1)))))
                (LETT #2# (CDR #2#) . #3#) #5# G191 (EXIT NIL))
           (EXIT |newspace|))))) 

(DEFUN |SPACE3;merge;3$;8| (|s1| |s2| $)
  (SPADCALL (LIST |s1| |s2|) (QREFELT $ 28))) 

(DEFUN |SPACE3;composite;L$;9| (|listOfThreeSpaces| $)
  (PROG (|space| #0=#:G1885 |s| #1=#:G1886)
    (RETURN
      (SEQ (LETT |space| (SPADCALL (QREFELT $ 23))
                 . #2=(|SPACE3;composite;L$;9|))
           (QSETVELT |space| 0
               (SPADCALL
                   (PROGN
                     (LETT #0# NIL . #2#)
                     (SEQ (LETT |s| NIL . #2#)
                          (LETT #1# |listOfThreeSpaces| . #2#) G190
                          (COND
                            ((OR (ATOM #1#)
                                 (PROGN
                                   (LETT |s| (CAR #1#) . #2#)
                                   NIL))
                             (GO G191)))
                          (SEQ (EXIT (LETT #0#
                                      (CONS (QVELT |s| 0) #0#) . #2#)))
                          (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                          (EXIT (NREVERSE0 #0#))))
                   (QREFELT $ 27)))
           (QSETVELT |space| 1
               (LIST (SPADCALL (QVELT |space| 0) (QREFELT $ 30))))
           (EXIT |space|))))) 

(DEFUN |SPACE3;components;$L;10| (|space| $)
  (PROG (#0=#:G1889 |s| #1=#:G1890)
    (RETURN
      (SEQ (PROGN
             (LETT #0# NIL . #2=(|SPACE3;components;$L;10|))
             (SEQ (LETT |s| NIL . #2#)
                  (LETT #1#
                        (SPADCALL (QVELT |space| 0) (QREFELT $ 32)) . #2#)
                  G190
                  (COND
                    ((OR (ATOM #1#)
                         (PROGN (LETT |s| (CAR #1#) . #2#) NIL))
                     (GO G191)))
                  (SEQ (EXIT (LETT #0#
                                   (CONS (SPADCALL |s| (QREFELT $ 24))
                                    #0#) . #2#)))
                  (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                  (EXIT (NREVERSE0 #0#)))))))) 

(DEFUN |SPACE3;composites;$L;11| (|space| $)
  (PROG (#0=#:G1893 |s| #1=#:G1894)
    (RETURN
      (SEQ (PROGN
             (LETT #0# NIL . #2=(|SPACE3;composites;$L;11|))
             (SEQ (LETT |s| NIL . #2#)
                  (LETT #1# (QVELT |space| 1) . #2#) G190
                  (COND
                    ((OR (ATOM #1#)
                         (PROGN (LETT |s| (CAR #1#) . #2#) NIL))
                     (GO G191)))
                  (SEQ (EXIT (LETT #0#
                                   (CONS (SPADCALL |s| (QREFELT $ 24))
                                    #0#) . #2#)))
                  (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                  (EXIT (NREVERSE0 #0#)))))))) 

(DEFUN |SPACE3;copy;2$;12| (|space| $)
  (PROG (|spc| #0=#:G1898 |s| #1=#:G1899)
    (RETURN
      (SEQ (LETT |spc|
                 (SPADCALL (SPADCALL (QVELT |space| 0) (QREFELT $ 30))
                     (QREFELT $ 24))
                 . #2=(|SPACE3;copy;2$;12|))
           (QSETVELT |spc| 1
               (PROGN
                 (LETT #0# NIL . #2#)
                 (SEQ (LETT |s| NIL . #2#)
                      (LETT #1# (QVELT |space| 1) . #2#) G190
                      (COND
                        ((OR (ATOM #1#)
                             (PROGN (LETT |s| (CAR #1#) . #2#) NIL))
                         (GO G191)))
                      (SEQ (EXIT (LETT #0#
                                       (CONS
                                        (SPADCALL |s| (QREFELT $ 30))
                                        #0#) . #2#)))
                      (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                      (EXIT (NREVERSE0 #0#)))))
           (EXIT |spc|))))) 

(DEFUN |SPACE3;enterPointData;$LNni;13| (|space| |listOfPoints| $)
  (PROG (|p| #0=#:G1903)
    (RETURN
      (SEQ (SEQ (LETT |p| NIL . #1=(|SPACE3;enterPointData;$LNni;13|))
                (LETT #0# |listOfPoints| . #1#) G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |p| (CAR #0#) . #1#) NIL))
                   (GO G191)))
                (SEQ (EXIT (SPADCALL (QVELT |space| 0) |p|
                               (QREFELT $ 36))))
                (LETT #0# (CDR #0#) . #1#) (GO G190) G191 (EXIT NIL))
           (EXIT (LENGTH (SPADCALL (QVELT |space| 0) (QREFELT $ 16)))))))) 

(DEFUN |SPACE3;modifyPointData;$NniP$;14| (|space| |i| |p| $)
  (SEQ (SPADCALL (QVELT |space| 0) |i| |p| (QREFELT $ 38))
       (EXIT |space|))) 

(DEFUN |SPACE3;point?;$B;15| (|space| $)
  (PROG (|c| |kid|)
    (RETURN
      (COND
        ((< 1
            (LENGTH (LETT |c|
                          (SPADCALL (QVELT |space| 0) (QREFELT $ 10))
                          . #0=(|SPACE3;point?;$B;15|))))
         (|error| "This ThreeSpace has more than one component"))
        ((EQL (LENGTH (LETT |kid|
                            (SPADCALL (|SPADfirst| |c|) (QREFELT $ 10)) . #0#))
              1)
         (EQL (LENGTH (SPADCALL (|SPADfirst| |kid|) (QREFELT $ 10))) 1))
        ('T 'NIL))))) 

(DEFUN |SPACE3;point;$P;16| (|space| $)
  (COND
    ((SPADCALL |space| (QREFELT $ 41))
     (SPADCALL (SPADCALL (QVELT |space| 0) (LIST 1 1 1) (QREFELT $ 43))
         (QREFELT $ 44)))
    ('T
     (|error| "This ThreeSpace holds something other than a single point - try the objects() command")))) 

(DEFUN |SPACE3;point;P$;17| (|aPoint| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |aPoint| (QREFELT $ 46))) 

(DEFUN |SPACE3;point;$P$;18| (|space| |aPoint| $)
  (SEQ (SPADCALL (QVELT |space| 0) NIL |aPoint| (QREFELT $ 48))
       (QSETVELT |space| 4 'NIL) (EXIT |space|))) 

(DEFUN |SPACE3;point;$L$;19| (|space| |l| $)
  (PROG (|pt|)
    (RETURN
      (SEQ (LETT |pt| (SPADCALL |l| (QREFELT $ 50))
                 |SPACE3;point;$L$;19|)
           (EXIT (SPADCALL |space| |pt| (QREFELT $ 46))))))) 

(DEFUN |SPACE3;point;$Nni$;20| (|space| |i| $)
  (SEQ (SPADCALL (QVELT |space| 0) NIL |i| (QREFELT $ 52))
       (QSETVELT |space| 4 'NIL) (EXIT |space|))) 

(DEFUN |SPACE3;curve?;$B;21| (|space| $)
  (PROG (|c|)
    (RETURN
      (COND
        ((< 1
            (LENGTH (LETT |c|
                          (SPADCALL (QVELT |space| 0) (QREFELT $ 10))
                          |SPACE3;curve?;$B;21|)))
         (|error| "This ThreeSpace has more than one component"))
        ('T
         (EQL (LENGTH (SPADCALL (|SPADfirst| |c|) (QREFELT $ 10))) 1)))))) 

(DEFUN |SPACE3;curve;$L;22| (|space| $)
  (PROG (|spc| #0=#:G1926 |s| #1=#:G1927)
    (RETURN
      (SEQ (COND
             ((SPADCALL |space| (QREFELT $ 54))
              (SEQ (LETT |spc|
                         (|SPADfirst|
                             (SPADCALL
                                 (|SPADfirst|
                                     (SPADCALL (QVELT |space| 0)
                                      (QREFELT $ 10)))
                                 (QREFELT $ 10)))
                         . #2=(|SPACE3;curve;$L;22|))
                   (EXIT (PROGN
                           (LETT #0# NIL . #2#)
                           (SEQ (LETT |s| NIL . #2#)
                                (LETT #1#
                                      (SPADCALL |spc| (QREFELT $ 10)) . #2#)
                                G190
                                (COND
                                  ((OR (ATOM #1#)
                                    (PROGN
                                      (LETT |s| (CAR #1#) . #2#)
                                      NIL))
                                   (GO G191)))
                                (SEQ (EXIT
                                      (LETT #0#
                                       (CONS
                                        (SPADCALL |s| (QREFELT $ 44))
                                        #0#) . #2#)))
                                (LETT #1# (CDR #1#) . #2#) (GO G190)
                                G191 (EXIT (NREVERSE0 #0#)))))))
             ('T
              (|error| "This ThreeSpace holds something other than a curve - try the objects() command"))))))) 

(DEFUN |SPACE3;curve;L$;23| (|points| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |points| (QREFELT $ 56))) 

(DEFUN |SPACE3;curve;$L$;24| (|space| |points| $)
  (PROG (|path| |p| #0=#:G1932)
    (RETURN
      (SEQ (SPADCALL (QVELT |space| 0) NIL (|SPADfirst| |points|)
               (QREFELT $ 48))
           (LETT |path|
                 (LIST (LENGTH (SPADCALL (QVELT |space| 0)
                                   (QREFELT $ 10)))
                       1)
                 . #1=(|SPACE3;curve;$L$;24|))
           (SEQ (LETT |p| NIL . #1#) (LETT #0# (CDR |points|) . #1#)
                G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |p| (CAR #0#) . #1#) NIL))
                   (GO G191)))
                (SEQ (EXIT (SPADCALL (QVELT |space| 0) |path| |p|
                               (QREFELT $ 48))))
                (LETT #0# (CDR #0#) . #1#) (GO G190) G191 (EXIT NIL))
           (QSETVELT |space| 4 'NIL) (EXIT |space|))))) 

(DEFUN |SPACE3;curve;$L$;25| (|space| |points| $)
  (PROG (|pts|)
    (RETURN
      (SEQ (LETT |pts| (SPADCALL (ELT $ 50) |points| (QREFELT $ 61))
                 |SPACE3;curve;$L$;25|)
           (EXIT (SPADCALL |space| |pts| (QREFELT $ 56))))))) 

(DEFUN |SPACE3;closedCurve?;$B;26| (|space| $)
  (PROG (|c| |kid|)
    (RETURN
      (COND
        ((< 1
            (LENGTH (LETT |c|
                          (SPADCALL (QVELT |space| 0) (QREFELT $ 10))
                          . #0=(|SPACE3;closedCurve?;$B;26|))))
         (|error| "This ThreeSpace has more than one component"))
        ((EQL (LENGTH (LETT |kid|
                            (SPADCALL (|SPADfirst| |c|) (QREFELT $ 10)) . #0#))
              1)
         (SPADCALL (|SPADfirst| |kid|) (QREFELT $ 63)))
        ('T 'NIL))))) 

(DEFUN |SPACE3;closedCurve;$L;27| (|space| $)
  (PROG (|spc| #0=#:G1944 |s| #1=#:G1945)
    (RETURN
      (SEQ (COND
             ((SPADCALL |space| (QREFELT $ 64))
              (SEQ (LETT |spc|
                         (|SPADfirst|
                             (SPADCALL
                                 (|SPADfirst|
                                     (SPADCALL (QVELT |space| 0)
                                      (QREFELT $ 10)))
                                 (QREFELT $ 10)))
                         . #2=(|SPACE3;closedCurve;$L;27|))
                   (EXIT (PROGN
                           (LETT #0# NIL . #2#)
                           (SEQ (LETT |s| NIL . #2#)
                                (LETT #1#
                                      (SPADCALL |spc| (QREFELT $ 10)) . #2#)
                                G190
                                (COND
                                  ((OR (ATOM #1#)
                                    (PROGN
                                      (LETT |s| (CAR #1#) . #2#)
                                      NIL))
                                   (GO G191)))
                                (SEQ (EXIT
                                      (LETT #0#
                                       (CONS
                                        (SPADCALL |s| (QREFELT $ 44))
                                        #0#) . #2#)))
                                (LETT #1# (CDR #1#) . #2#) (GO G190)
                                G191 (EXIT (NREVERSE0 #0#)))))))
             ('T
              (|error| "This ThreeSpace holds something other than a curve - try the objects() command"))))))) 

(DEFUN |SPACE3;closedCurve;L$;28| (|points| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |points| (QREFELT $ 66))) 

(DEFUN |SPACE3;closedCurve;$L$;29| (|space| |points| $)
  (PROG (|path| |p| #0=#:G1950)
    (RETURN
      (SEQ (SPADCALL (QVELT |space| 0) NIL (|SPADfirst| |points|)
               (QREFELT $ 48))
           (LETT |path|
                 (LIST (LENGTH (SPADCALL (QVELT |space| 0)
                                   (QREFELT $ 10)))
                       1)
                 . #1=(|SPACE3;closedCurve;$L$;29|))
           (SPADCALL (QVELT |space| 0) |path| 'T (QREFELT $ 68))
           (SEQ (LETT |p| NIL . #1#) (LETT #0# (CDR |points|) . #1#)
                G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |p| (CAR #0#) . #1#) NIL))
                   (GO G191)))
                (SEQ (EXIT (SPADCALL (QVELT |space| 0) |path| |p|
                               (QREFELT $ 48))))
                (LETT #0# (CDR #0#) . #1#) (GO G190) G191 (EXIT NIL))
           (QSETVELT |space| 4 'NIL) (EXIT |space|))))) 

(DEFUN |SPACE3;closedCurve;$L$;30| (|space| |points| $)
  (PROG (|pts|)
    (RETURN
      (SEQ (LETT |pts| (SPADCALL (ELT $ 50) |points| (QREFELT $ 61))
                 |SPACE3;closedCurve;$L$;30|)
           (EXIT (SPADCALL |space| |pts| (QREFELT $ 66))))))) 

(DEFUN |SPACE3;polygon?;$B;31| (|space| $)
  (PROG (|c| |kid|)
    (RETURN
      (COND
        ((< 1
            (LENGTH (LETT |c|
                          (SPADCALL (QVELT |space| 0) (QREFELT $ 10))
                          . #0=(|SPACE3;polygon?;$B;31|))))
         (|error| "This ThreeSpace has more than one component"))
        ((EQL (LENGTH (LETT |kid|
                            (SPADCALL (|SPADfirst| |c|) (QREFELT $ 10)) . #0#))
              2)
         (COND
           ((EQL (LENGTH (SPADCALL (|SPADfirst| |kid|) (QREFELT $ 10)))
                 1)
            (< 2
               (LENGTH (SPADCALL (SPADCALL |kid| (QREFELT $ 71))
                           (QREFELT $ 10)))))
           ('T 'NIL)))
        ('T 'NIL))))) 

(DEFUN |SPACE3;polygon;$L;32| (|space| $)
  (PROG (|cs| |listOfPoints| #0=#:G1962 |s| #1=#:G1963)
    (RETURN
      (SEQ (COND
             ((SPADCALL |space| (QREFELT $ 72))
              (SEQ (LETT |listOfPoints|
                         (LIST (SPADCALL
                                   (|SPADfirst|
                                    (SPADCALL
                                     (|SPADfirst|
                                      (LETT |cs|
                                       (SPADCALL
                                        (|SPADfirst|
                                         (SPADCALL (QVELT |space| 0)
                                          (QREFELT $ 10)))
                                        (QREFELT $ 10))
                                       . #2=(|SPACE3;polygon;$L;32|)))
                                     (QREFELT $ 10)))
                                   (QREFELT $ 44))) . #2#)
                   (EXIT (PROGN
                           (LETT #0# NIL . #2#)
                           (SEQ (LETT |s| NIL . #2#)
                                (LETT #1#
                                      (SPADCALL
                                       (SPADCALL |cs| (QREFELT $ 71))
                                       (QREFELT $ 10)) . #2#)
                                G190
                                (COND
                                  ((OR (ATOM #1#)
                                    (PROGN
                                      (LETT |s| (CAR #1#) . #2#)
                                      NIL))
                                   (GO G191)))
                                (SEQ (EXIT
                                      (LETT #0#
                                       (CONS
                                        (SPADCALL |s| (QREFELT $ 44))
                                        #0#) . #2#)))
                                (LETT #1# (CDR #1#) . #2#) (GO G190)
                                G191 (EXIT (NREVERSE0 #0#)))))))
             ('T
              (|error| "This ThreeSpace holds something other than a polygon - try the objects() command"))))))) 

(DEFUN |SPACE3;polygon;L$;33| (|points| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |points| (QREFELT $ 20))) 

(DEFUN |SPACE3;polygon;$L$;34| (|space| |points| $)
  (PROG (|pts|)
    (RETURN
      (SEQ (LETT |pts| (SPADCALL (ELT $ 50) |points| (QREFELT $ 61))
                 |SPACE3;polygon;$L$;34|)
           (EXIT (SPADCALL |space| |pts| (QREFELT $ 20))))))) 

(DEFUN |SPACE3;mesh?;$B;35| (|space| $)
  (PROG (|c| |kid| |whatSizes| |eachCurve| #0=#:G1973)
    (RETURN
      (SEQ (COND
             ((< 1
                 (LENGTH (LETT |c|
                               (SPADCALL (QVELT |space| 0)
                                   (QREFELT $ 10))
                               . #1=(|SPACE3;mesh?;$B;35|))))
              (|error| "This ThreeSpace has more than one component"))
             ((< 1
                 (LENGTH (LETT |kid|
                               (SPADCALL (|SPADfirst| |c|)
                                   (QREFELT $ 10)) . #1#)))
              (SEQ (LETT |whatSizes| (SPADCALL (QREFELT $ 77)) . #1#)
                   (SEQ (LETT |eachCurve| NIL . #1#)
                        (LETT #0# |kid| . #1#) G190
                        (COND
                          ((OR (ATOM #0#)
                               (PROGN
                                 (LETT |eachCurve| (CAR #0#) . #1#)
                                 NIL))
                           (GO G191)))
                        (SEQ (EXIT (SPADCALL
                                    (LENGTH
                                     (SPADCALL |eachCurve|
                                      (QREFELT $ 10)))
                                    |whatSizes| (QREFELT $ 78))))
                        (LETT #0# (CDR #0#) . #1#) (GO G190) G191
                        (EXIT NIL))
                   (EXIT (COND
                           ((< 1 (SPADCALL |whatSizes| (QREFELT $ 80)))
                            (|error| "Mesh defined with curves of different sizes"))
                           ((< (|SPADfirst|
                                   (SPADCALL |whatSizes|
                                    (QREFELT $ 81)))
                               2)
                            (|error| "Mesh defined with single point curves (use curve())"))
                           ('T 'T)))))
             ('T 'NIL)))))) 

(DEFUN |SPACE3;mesh;$L;36| (|space| $)
  (PROG (|lpSpace| #0=#:G1979 #1=#:G1980 |s| #2=#:G1981 |llp|)
    (RETURN
      (SEQ (COND
             ((SPADCALL |space| (QREFELT $ 82))
              (SEQ (LETT |llp| NIL . #3=(|SPACE3;mesh;$L;36|))
                   (SEQ (LETT |lpSpace| NIL . #3#)
                        (LETT #0#
                              (SPADCALL
                                  (|SPADfirst|
                                      (SPADCALL (QVELT |space| 0)
                                       (QREFELT $ 10)))
                                  (QREFELT $ 10)) . #3#)
                        G190
                        (COND
                          ((OR (ATOM #0#)
                               (PROGN
                                 (LETT |lpSpace| (CAR #0#) . #3#)
                                 NIL))
                           #4=(GO G191)))
                        (SEQ (EXIT (LETT |llp|
                                    (CONS
                                     (PROGN
                                       (LETT #1# NIL . #3#)
                                       (SEQ (LETT |s| NIL . #3#)
                                        (LETT #2#
                                         (SPADCALL |lpSpace|
                                          (QREFELT $ 10)) . #3#)
                                        G190
                                        (COND
                                          ((OR (ATOM #2#)
                                            (PROGN
                                              (LETT |s|
                                               (CAR #2#) . #3#)
                                              NIL))
                                           #4#))
                                        (SEQ
                                         (EXIT
                                          (LETT #1#
                                           (CONS
                                            (SPADCALL |s|
                                             (QREFELT $ 44))
                                            #1#) . #3#)))
                                        (LETT #2# (CDR #2#) . #3#)
                                        #5=(GO G190) G191
                                        (EXIT (NREVERSE0 #1#))))
                                     |llp|) . #3#)))
                        (LETT #0# (CDR #0#) . #3#) #5# G191 (EXIT NIL))
                   (EXIT |llp|)))
             ('T
              (|error| "This ThreeSpace holds something other than a mesh - try the objects() command"))))))) 

(DEFUN |SPACE3;mesh;L$;37| (|points| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |points| 'NIL 'NIL
      (QREFELT $ 85))) 

(DEFUN |SPACE3;mesh;L2B$;38| (|points| |prop1| |prop2| $)
  (SPADCALL (SPADCALL (QREFELT $ 23)) |points| |prop1| |prop2|
      (QREFELT $ 85))) 

(DEFUN |SPACE3;mesh;$LLSscp$;39| (|space| |llpoints| |lprops| |prop| $)
  (PROG (#0=#:G1987 |points| #1=#:G1988 |pts|)
    (RETURN
      (SEQ (LETT |pts|
                 (PROGN
                   (LETT #0# NIL . #2=(|SPACE3;mesh;$LLSscp$;39|))
                   (SEQ (LETT |points| NIL . #2#)
                        (LETT #1# |llpoints| . #2#) G190
                        (COND
                          ((OR (ATOM #1#)
                               (PROGN
                                 (LETT |points| (CAR #1#) . #2#)
                                 NIL))
                           (GO G191)))
                        (SEQ (EXIT (LETT #0#
                                    (CONS
                                     (SPADCALL (ELT $ 50) |points|
                                      (QREFELT $ 61))
                                     #0#) . #2#)))
                        (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                        (EXIT (NREVERSE0 #0#)))) . #2#)
           (EXIT (SPADCALL |space| |pts| |lprops| |prop|
                     (QREFELT $ 89))))))) 

(DEFUN |SPACE3;mesh;$LLSscp$;40| (|space| |llp| |lprops| |prop| $)
  (PROG (#0=#:G1995 |count| |aProp| #1=#:G1997 |lp| #2=#:G1996 |path|
            |p| #3=#:G1998)
    (RETURN
      (SEQ (SPADCALL (QVELT |space| 0) NIL
               (|SPADfirst| (|SPADfirst| |llp|)) (QREFELT $ 48))
           (SPADCALL (QVELT |space| 0)
               (LETT |path|
                     (LIST (LENGTH (SPADCALL (QVELT |space| 0)
                                    (QREFELT $ 10))))
                     . #4=(|SPACE3;mesh;$LLSscp$;40|))
               |prop| (QREFELT $ 92))
           (LETT |path| (APPEND |path| (LIST 1)) . #4#)
           (SPADCALL (QVELT |space| 0) |path| (|SPADfirst| |lprops|)
               (QREFELT $ 92))
           (SEQ (LETT |p| NIL . #4#)
                (LETT #0# (CDR (|SPADfirst| |llp|)) . #4#) G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |p| (CAR #0#) . #4#) NIL))
                   #5=(GO G191)))
                (SEQ (EXIT (SPADCALL (QVELT |space| 0) |path| |p|
                               (QREFELT $ 48))))
                (LETT #0# (CDR #0#) . #4#) #6=(GO G190) G191
                (EXIT NIL))
           (SEQ (LETT |count| 2 . #4#) (LETT |aProp| NIL . #4#)
                (LETT #1# (CDR |lprops|) . #4#) (LETT |lp| NIL . #4#)
                (LETT #2# (CDR |llp|) . #4#) G190
                (COND
                  ((OR (ATOM #2#)
                       (PROGN (LETT |lp| (CAR #2#) . #4#) NIL)
                       (ATOM #1#)
                       (PROGN (LETT |aProp| (CAR #1#) . #4#) NIL))
                   #5#))
                (SEQ (SPADCALL (QVELT |space| 0)
                         (LETT |path|
                               (LIST (|SPADfirst| |path|)) . #4#)
                         (|SPADfirst| |lp|) (QREFELT $ 48))
                     (LETT |path| (APPEND |path| (LIST |count|)) . #4#)
                     (SPADCALL (QVELT |space| 0) |path| |aProp|
                         (QREFELT $ 92))
                     (EXIT (SEQ (LETT |p| NIL . #4#)
                                (LETT #3# (CDR |lp|) . #4#) G190
                                (COND
                                  ((OR (ATOM #3#)
                                    (PROGN
                                      (LETT |p| (CAR #3#) . #4#)
                                      NIL))
                                   #5#))
                                (SEQ (EXIT
                                      (SPADCALL (QVELT |space| 0)
                                       |path| |p| (QREFELT $ 48))))
                                (LETT #3# (CDR #3#) . #4#) #6# G191
                                (EXIT NIL))))
                (LETT #2#
                      (PROG1 (CDR #2#)
                        (LETT #1#
                              (PROG1 (CDR #1#)
                                (LETT |count| (QSADD1 |count|) . #4#)) . #4#)) . #4#)
                #6# G191 (EXIT NIL))
           (QSETVELT |space| 4 'NIL) (EXIT |space|))))) 

(DEFUN |SPACE3;mesh;$L2B$;41| (|space| |llpoints| |prop1| |prop2| $)
  (PROG (#0=#:G2002 |points| #1=#:G2003 |pts|)
    (RETURN
      (SEQ (LETT |pts|
                 (PROGN
                   (LETT #0# NIL . #2=(|SPACE3;mesh;$L2B$;41|))
                   (SEQ (LETT |points| NIL . #2#)
                        (LETT #1# |llpoints| . #2#) G190
                        (COND
                          ((OR (ATOM #1#)
                               (PROGN
                                 (LETT |points| (CAR #1#) . #2#)
                                 NIL))
                           (GO G191)))
                        (SEQ (EXIT (LETT #0#
                                    (CONS
                                     (SPADCALL (ELT $ 50) |points|
                                      (QREFELT $ 61))
                                     #0#) . #2#)))
                        (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                        (EXIT (NREVERSE0 #0#)))) . #2#)
           (EXIT (SPADCALL |space| |pts| |prop1| |prop2|
                     (QREFELT $ 85))))))) 

(DEFUN |SPACE3;mesh;$L2B$;42| (|space| |llp| |prop1| |prop2| $)
  (PROG (|propA| |propB| #0=#:G2010 |count| |lp| #1=#:G2011 |path| |p|
                 #2=#:G2012)
    (RETURN
      (SEQ (LETT |propA| (SPADCALL (QREFELT $ 94))
                 . #3=(|SPACE3;mesh;$L2B$;42|))
           (SPADCALL |propA| |prop1| (QREFELT $ 95))
           (LETT |propB| (SPADCALL (QREFELT $ 94)) . #3#)
           (SPADCALL |propB| |prop2| (QREFELT $ 95))
           (SPADCALL (QVELT |space| 0) NIL
               (|SPADfirst| (|SPADfirst| |llp|)) (QREFELT $ 48))
           (SPADCALL (QVELT |space| 0)
               (LETT |path|
                     (LIST (LENGTH (SPADCALL (QVELT |space| 0)
                                    (QREFELT $ 10)))) . #3#)
               |propB| (QREFELT $ 92))
           (LETT |path| (APPEND |path| (LIST 1)) . #3#)
           (SPADCALL (QVELT |space| 0) |path| |propA| (QREFELT $ 92))
           (SEQ (LETT |p| NIL . #3#)
                (LETT #0# (CDR (|SPADfirst| |llp|)) . #3#) G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |p| (CAR #0#) . #3#) NIL))
                   #4=(GO G191)))
                (SEQ (EXIT (SPADCALL (QVELT |space| 0) |path| |p|
                               (QREFELT $ 48))))
                (LETT #0# (CDR #0#) . #3#) #5=(GO G190) G191
                (EXIT NIL))
           (SEQ (LETT |count| 2 . #3#) (LETT |lp| NIL . #3#)
                (LETT #1# (CDR |llp|) . #3#) G190
                (COND
                  ((OR (ATOM #1#)
                       (PROGN (LETT |lp| (CAR #1#) . #3#) NIL))
                   #4#))
                (SEQ (SPADCALL (QVELT |space| 0)
                         (LETT |path|
                               (LIST (|SPADfirst| |path|)) . #3#)
                         (|SPADfirst| |lp|) (QREFELT $ 48))
                     (LETT |path| (APPEND |path| (LIST |count|)) . #3#)
                     (SPADCALL (QVELT |space| 0) |path| |propA|
                         (QREFELT $ 92))
                     (EXIT (SEQ (LETT |p| NIL . #3#)
                                (LETT #2# (CDR |lp|) . #3#) G190
                                (COND
                                  ((OR (ATOM #2#)
                                    (PROGN
                                      (LETT |p| (CAR #2#) . #3#)
                                      NIL))
                                   #4#))
                                (SEQ (EXIT
                                      (SPADCALL (QVELT |space| 0)
                                       |path| |p| (QREFELT $ 48))))
                                (LETT #2# (CDR #2#) . #3#) #5# G191
                                (EXIT NIL))))
                (LETT #1#
                      (PROG1 (CDR #1#)
                        (LETT |count| (QSADD1 |count|) . #3#)) . #3#)
                #5# G191 (EXIT NIL))
           (QSETVELT |space| 4 'NIL) (EXIT |space|))))) 

(DEFUN |SPACE3;lp;$L;43| (|space| $)
  (SEQ (COND
         ((NULL (QVELT |space| 4))
          (LETT |space| (|SPACE3;convertSpace| |space| $)
                |SPACE3;lp;$L;43|)))
       (EXIT (QVELT (QVELT |space| 2) 0)))) 

(DEFUN |SPACE3;lllip;$L;44| (|space| $)
  (SEQ (COND
         ((NULL (QVELT |space| 4))
          (LETT |space| (|SPACE3;convertSpace| |space| $)
                |SPACE3;lllip;$L;44|)))
       (EXIT (QVELT (QVELT |space| 2) 1)))) 

(DEFUN |SPACE3;llprop;$L;45| (|space| $)
  (SEQ (COND
         ((NULL (QVELT |space| 4))
          (LETT |space| (|SPACE3;convertSpace| |space| $)
                |SPACE3;llprop;$L;45|)))
       (EXIT (QVELT (QVELT |space| 2) 2)))) 

(DEFUN |SPACE3;lprop;$L;46| (|space| $)
  (SEQ (COND
         ((NULL (QVELT |space| 4))
          (LETT |space| (|SPACE3;convertSpace| |space| $)
                |SPACE3;lprop;$L;46|)))
       (EXIT (QVELT (QVELT |space| 2) 3)))) 

(DEFUN |SPACE3;objects;$R;47| (|space| $)
  (PROG (|component| #0=#:G2042 |kid| |numPts| |numCurves| |numPolys|
            |numConstructs|)
    (RETURN
      (SEQ (COND
             ((NULL (QVELT |space| 4))
              (LETT |space| (|SPACE3;convertSpace| |space| $)
                    . #1=(|SPACE3;objects;$R;47|))))
           (LETT |numPts| 0 . #1#) (LETT |numCurves| 0 . #1#)
           (LETT |numPolys| 0 . #1#) (LETT |numConstructs| 0 . #1#)
           (SEQ (LETT |component| NIL . #1#)
                (LETT #0#
                      (SPADCALL (QVELT |space| 0) (QREFELT $ 10)) . #1#)
                G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |component| (CAR #0#) . #1#) NIL))
                   (GO G191)))
                (SEQ (EXIT (COND
                             ((EQL (LENGTH
                                    (LETT |kid|
                                     (SPADCALL |component|
                                      (QREFELT $ 10)) . #1#))
                                   1)
                              (COND
                                ((EQL (LENGTH
                                       (SPADCALL (|SPADfirst| |kid|)
                                        (QREFELT $ 10)))
                                      1)
                                 (LETT |numPts| (+ |numPts| 1) . #1#))
                                ('T
                                 (LETT |numCurves|
                                       (+ |numCurves| 1) . #1#))))
                             ('T
                              (SEQ (COND
                                     ((EQL (LENGTH |kid|) 2)
                                      (COND
                                        ((EQL
                                          (LENGTH
                                           (SPADCALL
                                            (|SPADfirst| |kid|)
                                            (QREFELT $ 10)))
                                          1)
                                         (COND
                                           ((NULL
                                             (EQL
                                              (LENGTH
                                               (SPADCALL
                                                (|SPADfirst|
                                                 (CDR |kid|))
                                                (QREFELT $ 10)))
                                              1))
                                            (EXIT
                                             (LETT |numPolys|
                                              (+ |numPolys| 1) . #1#))))))))
                                   (EXIT
                                    (LETT |numConstructs|
                                     (+ |numConstructs| 1) . #1#)))))))
                (LETT #0# (CDR #0#) . #1#) (GO G190) G191 (EXIT NIL))
           (EXIT (VECTOR |numPts| |numCurves| |numPolys|
                         |numConstructs|)))))) 

(DEFUN |SPACE3;check;2$;48| (|s| $)
  (COND ((NULL (QVELT |s| 4)) (|SPACE3;convertSpace| |s| $)) ('T |s|))) 

(PUT '|SPACE3;subspace;$Ss;49| '|SPADreplace|
     '(XLAM (|s|) (QVELT |s| 0))) 

(DEFUN |SPACE3;subspace;$Ss;49| (|s| $) (QVELT |s| 0)) 

(DEFUN |SPACE3;coerce;$Of;50| (|s| $)
  (PROG (|sizo|)
    (RETURN
      (SEQ (COND
             ((NULL (QVELT |s| 4))
              (LETT |s| (|SPACE3;convertSpace| |s| $)
                    . #0=(|SPACE3;coerce;$Of;50|))))
           (EXIT (SPADCALL
                     (LIST "3-Space with "
                           (SPADCALL
                               (LETT |sizo|
                                     (LENGTH (QVELT (QVELT |s| 2) 1)) . #0#)
                               (QREFELT $ 107))
                           (COND
                             ((EQL |sizo| 1) " component")
                             ('T " components")))
                     (QREFELT $ 108))))))) 

(DEFUN |ThreeSpace| (#0=#:G2051)
  (PROG ()
    (RETURN
      (PROG (#1=#:G2052)
        (RETURN
          (COND
            ((LETT #1#
                   (|lassocShiftWithFunction| (LIST (|devaluate| #0#))
                       (HGET |$ConstructorCache| '|ThreeSpace|)
                       '|domainEqualList|)
                   . #2=(|ThreeSpace|))
             (|CDRwithIncrement| #1#))
            ('T
             (UNWIND-PROTECT
               (PROG1 (|ThreeSpace;| #0#) (LETT #1# T . #2#))
               (COND
                 ((NOT #1#) (HREM |$ConstructorCache| '|ThreeSpace|))))))))))) 

(DEFUN |ThreeSpace;| (|#1|)
  (PROG (DV$1 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|ThreeSpace|))
        (LETT |dv$| (LIST '|ThreeSpace| DV$1) . #0#)
        (LETT $ (GETREFV 113) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|ThreeSpace| (LIST DV$1)
            (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7
            (|Record| (|:| |subspaceField| (|SubSpace| 3 |#1|))
                (|:| |compositesField| (|List| (|SubSpace| 3 |#1|)))
                (|:| |rep3DField|
                     (|Record| (|:| |lp| (|List| (|Point| |#1|)))
                         (|:| |llliPt|
                              (|List| (|List|
                                       (|List| (|NonNegativeInteger|)))))
                         (|:| |llProp|
                              (|List| (|List|
                                       (|SubSpaceComponentProperty|))))
                         (|:| |lProp|
                              (|List| (|SubSpaceComponentProperty|)))))
                (|:| |objectsField|
                     (|Record| (|:| |points| (|NonNegativeInteger|))
                         (|:| |curves| (|NonNegativeInteger|))
                         (|:| |polygons| (|NonNegativeInteger|))
                         (|:| |constructs| (|NonNegativeInteger|))))
                (|:| |converted| (|Boolean|))))
        $)))) 

(MAKEPROP '|ThreeSpace| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) '|Rep| (|List| $)
             (|SubSpace| '3 6) (0 . |children|)
             (|SubSpaceComponentProperty|) (5 . |extractProperty|)
             (|NonNegativeInteger|) (10 . |extractIndex|) (|List| 17)
             (15 . |pointData|) (|Point| 6) (20 . |addPoint2|)
             (26 . |addPointLast|) |SPACE3;polygon;$L$;2| (34 . |new|)
             (38 . |Zero|) |SPACE3;create3Space;$;3|
             |SPACE3;create3Space;Ss$;4|
             |SPACE3;numberOfComponents;$Nni;5|
             |SPACE3;numberOfComposites;$Nni;6| (42 . |merge|)
             |SPACE3;merge;L$;7| |SPACE3;merge;3$;8| (47 . |deepCopy|)
             |SPACE3;composite;L$;9| (52 . |separate|)
             |SPACE3;components;$L;10| |SPACE3;composites;$L;11|
             |SPACE3;copy;2$;12| (57 . |addPoint|)
             |SPACE3;enterPointData;$LNni;13| (63 . |modifyPoint|)
             |SPACE3;modifyPointData;$NniP$;14| (|Boolean|)
             |SPACE3;point?;$B;15| (|List| 13) (70 . |traverse|)
             (76 . |extractPoint|) |SPACE3;point;$P;16|
             |SPACE3;point;$P$;18| |SPACE3;point;P$;17|
             (81 . |addPoint|) (|List| 6) (88 . |point|)
             |SPACE3;point;$L$;19| (93 . |addPoint|)
             |SPACE3;point;$Nni$;20| |SPACE3;curve?;$B;21|
             |SPACE3;curve;$L;22| |SPACE3;curve;$L$;24|
             |SPACE3;curve;L$;23| (|Mapping| 17 49) (|List| 49)
             (|ListFunctions2| 49 17) (100 . |map|)
             |SPACE3;curve;$L$;25| (106 . |extractClosed|)
             |SPACE3;closedCurve?;$B;26| |SPACE3;closedCurve;$L;27|
             |SPACE3;closedCurve;$L$;29| |SPACE3;closedCurve;L$;28|
             (111 . |closeComponent|) |SPACE3;closedCurve;$L$;30|
             (|List| 9) (118 . |second|) |SPACE3;polygon?;$B;31|
             |SPACE3;polygon;$L;32| |SPACE3;polygon;L$;33|
             |SPACE3;polygon;$L$;34| (|Set| 13) (123 . |brace|)
             (127 . |insert!|) (133 . |One|) (137 . |#|)
             (142 . |parts|) |SPACE3;mesh?;$B;35| (|List| 15)
             |SPACE3;mesh;$L;36| |SPACE3;mesh;$L2B$;42|
             |SPACE3;mesh;L$;37| |SPACE3;mesh;L2B$;38| (|List| 11)
             |SPACE3;mesh;$LLSscp$;40| (|List| 59)
             |SPACE3;mesh;$LLSscp$;39| (147 . |defineProperty|)
             |SPACE3;mesh;$L2B$;41| (154 . |new|) (158 . |close|)
             |SPACE3;lp;$L;43| (|List| (|List| 42))
             |SPACE3;lllip;$L;44| (|List| 88) |SPACE3;llprop;$L;45|
             |SPACE3;lprop;$L;46|
             (|Record| (|:| |points| 13) (|:| |curves| 13)
                 (|:| |polygons| 13) (|:| |constructs| 13))
             |SPACE3;objects;$R;47| |SPACE3;check;2$;48|
             |SPACE3;subspace;$Ss;49| (|OutputForm|) (164 . |coerce|)
             (169 . |hconcat|) |SPACE3;coerce;$Of;50| (|List| 83)
             (|String|) (|SingleInteger|))
          '#(~= 174 |subspace| 180 |polygon?| 185 |polygon| 190
             |point?| 212 |point| 217 |objects| 245
             |numberOfComposites| 250 |numberOfComponents| 255
             |modifyPointData| 260 |mesh?| 267 |mesh| 272 |merge| 321
             |lprop| 332 |lp| 337 |llprop| 342 |lllp| 347 |lllip| 352
             |latex| 357 |hash| 362 |enterPointData| 367 |curve?| 373
             |curve| 378 |create3Space| 400 |copy| 409 |composites| 414
             |composite| 419 |components| 424 |coerce| 429
             |closedCurve?| 434 |closedCurve| 439 |check| 461 = 466)
          'NIL
          (CONS (|makeByteWordVec2| 1 '(0 0 0 0))
                (CONS '#(NIL |SetCategory&| |BasicType&| NIL)
                      (CONS '#((|ThreeSpaceCategory| 6) (|SetCategory|)
                               (|BasicType|) (|CoercibleTo| 106))
                            (|makeByteWordVec2| 112
                                '(1 9 8 0 10 1 9 11 0 12 1 9 13 0 14 1
                                  9 15 0 16 2 9 0 0 17 18 4 9 0 0 0 17
                                  13 19 0 9 0 21 0 6 0 22 1 9 0 8 27 1
                                  9 0 0 30 1 9 8 0 32 2 9 13 0 17 36 3
                                  9 0 0 13 17 38 2 9 0 0 42 43 1 9 17 0
                                  44 3 9 0 0 42 17 48 1 17 0 49 50 3 9
                                  0 0 42 13 52 2 60 15 58 59 61 1 9 40
                                  0 63 3 9 0 0 42 40 68 1 70 9 0 71 0
                                  76 0 77 2 76 0 13 0 78 0 6 0 79 1 76
                                  13 0 80 1 76 42 0 81 3 9 0 0 42 11 92
                                  0 11 0 94 2 11 40 0 40 95 1 13 106 0
                                  107 1 106 0 8 108 2 0 40 0 0 1 1 0 9
                                  0 105 1 0 40 0 72 1 0 15 0 73 2 0 0 0
                                  59 75 1 0 0 15 74 2 0 0 0 15 20 1 0
                                  40 0 41 1 0 17 0 45 1 0 0 17 47 2 0 0
                                  0 49 51 2 0 0 0 13 53 2 0 0 0 17 46 1
                                  0 102 0 103 1 0 13 0 26 1 0 13 0 25 3
                                  0 0 0 13 17 39 1 0 40 0 82 3 0 0 83
                                  40 40 87 1 0 83 0 84 4 0 0 0 90 40 40
                                  93 1 0 0 83 86 4 0 0 0 83 40 40 85 4
                                  0 0 0 83 88 11 89 4 0 0 0 90 88 11 91
                                  1 0 0 8 28 2 0 0 0 0 29 1 0 88 0 101
                                  1 0 15 0 96 1 0 99 0 100 1 0 110 0 1
                                  1 0 97 0 98 1 0 111 0 1 1 0 112 0 1 2
                                  0 13 0 15 37 1 0 40 0 54 1 0 15 0 55
                                  2 0 0 0 59 62 1 0 0 15 57 2 0 0 0 15
                                  56 1 0 0 9 24 0 0 0 23 1 0 0 0 35 1 0
                                  8 0 34 1 0 0 8 31 1 0 8 0 33 1 0 106
                                  0 109 1 0 40 0 64 1 0 15 0 65 2 0 0 0
                                  59 69 1 0 0 15 67 2 0 0 0 15 66 1 0 0
                                  0 104 2 0 40 0 0 1)))))
          '|lookupComplete|)) 
