(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|2 2 (PUT 'TUBE;getCurve;$Curve;1 'SPADreplace ...)-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 2D 03 03 19 01)
   (|BOOT|::|TUBE;getCurve;$Curve;1| |BOOT|::|SPADreplace|
    (|BOOT|::|XLAM| (|BOOT|::|plot|) (|BOOT|::|QVELT| |BOOT|::|plot| 0.))
    |BOOT|::|PUT|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4 4 (SDEFUN TUBE;getCurve;$Curve;1 (# #) ...)-2|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|TUBE;getCurve;$Curve;1| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|TUBE;getCurve;$Curve;1|
       #15Y(00 00 00 00 02 00 00 00 26 03 AE C5 5F 19 03) (0.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|BOOT|::|plot| |BOOT|::|$|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6 6 (PUT 'TUBE;listLoops;$L;2 'SPADreplace ...)-3|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 2D 03 03 19 01)
   (|BOOT|::|TUBE;listLoops;$L;2| |BOOT|::|SPADreplace|
    (|BOOT|::|XLAM| (|BOOT|::|plot|) (|BOOT|::|QVELT| |BOOT|::|plot| 1.))
    |BOOT|::|PUT|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|8 10 (SDEFUN TUBE;listLoops;$L;2 (# #) ...)-4|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|TUBE;listLoops;$L;2| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|TUBE;listLoops;$L;2|
       #15Y(00 00 00 00 02 00 00 00 26 03 AE C5 5F 19 03) (1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|BOOT|::|plot| |BOOT|::|$|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|12 12 (PUT 'TUBE;closed?;$B;3 'SPADreplace ...)-5|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 2D 03 03 19 01)
   (|BOOT|::|TUBE;closed?;$B;3| |BOOT|::|SPADreplace|
    (|BOOT|::|XLAM| (|BOOT|::|plot|) (|BOOT|::|QVELT| |BOOT|::|plot| 2.))
    |BOOT|::|PUT|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|14 14 (SDEFUN TUBE;closed?;$B;3 (# #) ...)-6|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|TUBE;closed?;$B;3| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|TUBE;closed?;$B;3|
       #15Y(00 00 00 00 02 00 00 00 26 03 AE C5 5F 19 03) (2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|BOOT|::|plot| |BOOT|::|$|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|16 16 (SDEFUN TUBE;open?;$B;4 (# #) ...)-7|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|TUBE;open?;$B;4| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|TUBE;open?;$B;4|
       #16Y(00 00 00 00 02 00 00 00 26 03 AE C5 5F 59 19 03) (2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|BOOT|::|plot| |BOOT|::|$|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|18 19 (PUT 'TUBE;setClosed;$2B;5 'SPADreplace ...)-8|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 2D 03 03 19 01)
   (|BOOT|::|TUBE;setClosed;$2B;5| |BOOT|::|SPADreplace|
    (|BOOT|::|XLAM| (|BOOT|::|plot| |BOOT|::|flag|)
     (|BOOT|::|QSETVELT| |BOOT|::|plot| 2. |BOOT|::|flag|))
    |BOOT|::|PUT|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|21 22 (SDEFUN TUBE;setClosed;$2B;5 (# # #) ...)-9|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|TUBE;setClosed;$2B;5| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|TUBE;setClosed;$2B;5|
       #16Y(00 00 00 00 03 00 00 00 26 04 AE B0 C5 60 19 04) (2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|BOOT|::|plot| |BOOT|::|flag| |BOOT|::|$|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|24 24 (PUT 'TUBE;tube;CurveLB$;6 'SPADreplace ...)-10|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 2D 03 03 19 01)
   (|BOOT|::|TUBE;tube;CurveLB$;6| |BOOT|::|SPADreplace|
    |COMMON-LISP|::|VECTOR| |BOOT|::|PUT|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|26 29 (SDEFUN TUBE;tube;CurveLB$;6 (# # # ...) ...)-11|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|TUBE;tube;CurveLB$;6| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|TUBE;tube;CurveLB$;6|
       #18Y(00 00 00 00 04 00 00 00 26 05 B0 B0 B0 33 03 00 19 05) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|BOOT|::|curve| |BOOT|::|ll| |BOOT|::|b| |BOOT|::|$|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|31 31 (DECLAIM (NOTINLINE TubePlot;))-12|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 19 01)
   ((|COMMON-LISP|::|NOTINLINE| |BOOT|::|TubePlot;|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|33 46 (DEFUN TubePlot (G707) ...)-13|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|TubePlot| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|TubePlot|
       #66Y(03 00 01 00 01 00 00 00 20 02 63 AE 6F 00 7B 01 DB 6B 02 38 01 71
            6E DD 2D 03 04 F8 1C 11 53 14 B0 6F 06 7E 03 15 54 05 00 00 00 1D
            0D 1B 10 14 2F 05 19 03 05 00 00 00 1C 05 DB 6B 02 31 70 55 19 03)
       (|BOOT|::|devaluate| |BOOT|::|TubePlot| |BOOT|::|$ConstructorCache|
        |BOOT|::|domainEqualList| |BOOT|::|lassocShiftWithFunction|
        |BOOT|::|CDRwithIncrement| |BOOT|::|TubePlot;|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|48 65 (DEFUN TubePlot; (#1) ...)-14|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|TubePlot;| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|TubePlot;|
       #85Y(00 00 00 00 01 00 00 00 26 02 01 03 B0 2F 00 F8 DB AD 61 02 F9 DC
            2F 03 FA AD AF C9 60 DE DE 63 6E 03 05 AF CB 60 6B 07 DB AE 7B 01
            E2 A3 7A 2D 04 09 AE 2F 0A B0 AF D0 60 E6 A2 7A E7 2E 0E 14 6F 0F
            6F 10 2F 10 7A EB 2E 12 7A 7B 03 6F 13 AF D9 60 9F 19 05)
       (|BOOT|::|devaluate| |BOOT|::|TubePlot| 16. |BOOT|::|GETREFV| 0.
        |BOOT|::|buildPredVector| 3. |BOOT|::|$ConstructorCache| 1.
        |BOOT|::|haddProp| |BOOT|::|stuffDomainSlots| 6. |BOOT|::|parCurve|
        |BOOT|::|loops| |BOOT|::|DoubleFloat| |BOOT|::|Point| |BOOT|::|List|
        |BOOT|::|closedTube?| |BOOT|::|Boolean| |BOOT|::|Record0| 7.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|BOOT|::|#1|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|67 103 (MAKEPROP 'TubePlot 'infovec ...)-15|
   #36Y(00 00 00 00 00 00 00 00 20 01 DA DB DC DD 63 DE DF 70 06 E1 E2 E3 E4 30
        06 5D 5D 7A E5 7B 05 2D 03 0C 19 01)
   (|BOOT|::|TubePlot| |BOOT|::|infovec|
    #(|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
      |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
      (|BOOT|::|local| |BOOT|::|#1|) '|BOOT|::|Rep|
      |BOOT|::|TUBE;getCurve;$Curve;1|
      (|BOOT|::|List|
       (|BOOT|::|List| (|BOOT|::|Point| (|BOOT|::|DoubleFloat|))))
      |BOOT|::|TUBE;listLoops;$L;2| (|BOOT|::|Boolean|)
      |BOOT|::|TUBE;closed?;$B;3| |BOOT|::|TUBE;open?;$B;4|
      |BOOT|::|TUBE;setClosed;$2B;5| |BOOT|::|TUBE;tube;CurveLB$;6|)
    #(|BOOT|::|tube| 0. |BOOT|::|setClosed| 7. |BOOT|::|open?| 13.
      |BOOT|::|listLoops| 18. |BOOT|::|getCurve| 23. |BOOT|::|closed?| 28.)
    1. (0.) |BOOT|::|makeByteWordVec2| #(|COMMON-LISP|::|NIL|)
    #((|BOOT|::|Join|
       (|BOOT|::|mkCategory|
        (|COMMON-LISP|::|LIST|
         '((|BOOT|::|getCurve| (|BOOT|::|#1| |BOOT|::|$$|)) |COMMON-LISP|::|T|)
         '((|BOOT|::|listLoops|
            ((|BOOT|::|List|
              (|BOOT|::|List| (|BOOT|::|Point| (|BOOT|::|DoubleFloat|))))
             |BOOT|::|$$|))
           |COMMON-LISP|::|T|)
         '((|BOOT|::|closed?| ((|BOOT|::|Boolean|) |BOOT|::|$$|))
           |COMMON-LISP|::|T|)
         '((|BOOT|::|open?| ((|BOOT|::|Boolean|) |BOOT|::|$$|))
           |COMMON-LISP|::|T|)
         '((|BOOT|::|setClosed|
            ((|BOOT|::|Boolean|) |BOOT|::|$$| (|BOOT|::|Boolean|)))
           |COMMON-LISP|::|T|)
         '((|BOOT|::|tube|
            (|BOOT|::|$$| |BOOT|::|#1|
             (|BOOT|::|List|
              (|BOOT|::|List| (|BOOT|::|Point| (|BOOT|::|DoubleFloat|))))
             (|BOOT|::|Boolean|)))
           |COMMON-LISP|::|T|))
        (|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)))
    15.
    (3. 0. 0. 6. 9. 11. 15. 2. 0. 11. 0. 11. 14. 1. 0. 11. 0. 13. 1. 0. 9. 0.
     10. 1. 0. 6. 0. 8. 1. 0. 11. 0. 12.)
    |BOOT|::|lookupComplete| |BOOT|::|MAKEPROP|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
