(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|2 2 (DECLAIM (NOTINLINE FortranFunctionCategory;))-1|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 19 01)
   ((|COMMON-LISP|::|NOTINLINE| |BOOT|::|FortranFunctionCategory;|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4 4 (DEFPARAMETER FortranFunctionCategory;AL 'NIL)-2|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 63 31 5A C6 19 01)
   ((|COMMON-LISP|::|SPECIAL| |BOOT|::|FortranFunctionCategory;AL|)
    |BOOT|::|FortranFunctionCategory;AL|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6 8 (DEFUN FortranFunctionCategory NIL ...)-3|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|FortranFunctionCategory| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|FortranFunctionCategory|
       #22Y(00 00 00 00 00 00 00 00 26 01 0E 00 1E 06 2E 01 0F 00 19 01 19 01)
       (|BOOT|::|FortranFunctionCategory;AL|
        |BOOT|::|FortranFunctionCategory;|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|10 59 (DEFUN FortranFunctionCategory; NIL ...)-4|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|BOOT|::|FortranFunctionCategory;| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|BOOT|::|FortranFunctionCategory;|
       #33Y(00 00 00 00 00 00 00 00 26 01 63 2E 00 14 DB 01 03 6E 04 02 30 03
            F8 14 DE AE DF 2D 03 06 15 19 02)
       (|BOOT|::|FortranProgramCategory|
        (((|BOOT|::|coerce|
           (|BOOT|::|$| (|BOOT|::|List| (|BOOT|::|FortranCode|))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|coerce| (|BOOT|::|$| (|BOOT|::|FortranCode|)))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|coerce|
           (|BOOT|::|$|
            (|BOOT|::|Record|
             (|BOOT|::|:| |BOOT|::|localSymbols| (|BOOT|::|SymbolTable|))
             (|BOOT|::|:| |BOOT|::|code|
              (|BOOT|::|List| (|BOOT|::|FortranCode|))))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retract|
           (|BOOT|::|$| (|BOOT|::|Expression| (|BOOT|::|Float|))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retractIfCan|
           ((|BOOT|::|Union| |BOOT|::|$| "failed")
            (|BOOT|::|Expression| (|BOOT|::|Float|))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retract|
           (|BOOT|::|$| (|BOOT|::|Expression| (|BOOT|::|Integer|))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retractIfCan|
           ((|BOOT|::|Union| |BOOT|::|$| "failed")
            (|BOOT|::|Expression| (|BOOT|::|Integer|))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retract|
           (|BOOT|::|$| (|BOOT|::|Polynomial| (|BOOT|::|Float|))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retractIfCan|
           ((|BOOT|::|Union| |BOOT|::|$| "failed")
            (|BOOT|::|Polynomial| (|BOOT|::|Float|))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retract|
           (|BOOT|::|$| (|BOOT|::|Polynomial| (|BOOT|::|Integer|))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retractIfCan|
           ((|BOOT|::|Union| |BOOT|::|$| "failed")
            (|BOOT|::|Polynomial| (|BOOT|::|Integer|))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retract|
           (|BOOT|::|$|
            (|BOOT|::|Fraction| (|BOOT|::|Polynomial| (|BOOT|::|Float|)))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retractIfCan|
           ((|BOOT|::|Union| |BOOT|::|$| "failed")
            (|BOOT|::|Fraction| (|BOOT|::|Polynomial| (|BOOT|::|Float|)))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retract|
           (|BOOT|::|$|
            (|BOOT|::|Fraction| (|BOOT|::|Polynomial| (|BOOT|::|Integer|)))))
          |COMMON-LISP|::|T|)
         ((|BOOT|::|retractIfCan|
           ((|BOOT|::|Union| |BOOT|::|$| "failed")
            (|BOOT|::|Fraction| (|BOOT|::|Polynomial| (|BOOT|::|Integer|)))))
          |COMMON-LISP|::|T|))
        |BOOT|::|mkCategory| |BOOT|::|Join| (|BOOT|::|FortranFunctionCategory|)
        0. #.(|SYSTEM|::|GET-SETF-SYMBOL| '|COMMON-LISP|::|ELT|))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|61 61 (MAKEPROP 'FortranFunctionCategory 'NILADIC ...)-5|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA DB 64 2D 03 02 19 01)
   (|BOOT|::|FortranFunctionCategory| |BOOT|::|NILADIC| |BOOT|::|MAKEPROP|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
