
(/VERSIONCHECK 2) 

(DEFPARAMETER |FortranVectorCategory;AL| 'NIL) 

(DEFUN |FortranVectorCategory| ()
  (LET (#:G1817)
    (COND
      (|FortranVectorCategory;AL|)
      (T (SETQ |FortranVectorCategory;AL| (|FortranVectorCategory;|)))))) 

(DEFUN |FortranVectorCategory;| ()
  (PROG (#0=#:G1815)
    (RETURN
      (PROG1 (LETT #0#
                   (|Join| (|FortranProgramCategory|)
                           (|mkCategory| '|domain|
                               '(((|coerce|
                                      ($ (|Vector| (|MachineFloat|))))
                                  T)
                                 ((|coerce|
                                      ($ (|List| (|FortranCode|))))
                                  T)
                                 ((|coerce| ($ (|FortranCode|))) T)
                                 ((|coerce|
                                      ($
                                       (|Record|
                                        (|:| |localSymbols|
                                         (|SymbolTable|))
                                        (|:| |code|
                                         (|List| (|FortranCode|))))))
                                  T))
                               NIL
                               '((|FortranCode|)
                                 (|List| (|FortranCode|))
                                 (|Vector| (|MachineFloat|)))
                               NIL))
                   |FortranVectorCategory|)
        (SETELT #0# 0 '(|FortranVectorCategory|)))))) 

(MAKEPROP '|FortranVectorCategory| 'NILADIC T) 
