;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: AIRCRAFT; Base: 10. -*-


(DEFPACKAGE "AIRCRAFT" (:USE "COMMON-LISP" "LOOM") (:SHADOW "INSTANCE")
            (:SHADOWING-IMPORT-FROM "KBCLASSES" "UNKNOWN" "FALSE" "TRUE")
            (:SHADOWING-IMPORT-FROM "COMMON-LISP" "APPEND" "DO" "WHEN")
            (:SHADOWING-IMPORT-FROM "LOOM" "ROLE" "PATTERN" "SET" "CONSTANT" "PI" "SUBSET" "FIND-METHOD" "UNTRACE"
             "TRACE" "NEVER" "THEREIS" "ALWAYS" "COLLECT" "BY" "ON" "IN" "FOR" "COPY-INSTANCE" "DEFMETHOD")
            (:IMPORT-FROM "COMMON-LISP-USER" "*LOOM-DEFAULT-FEATURES*")
            (:IMPORT-FROM "KBCLASSES" "LIST-OF" "SHOW" "SHOW-ALL"))

(in-package "AIRCRAFT")

;;;       Context:   AIRCRAFT
;;; Last Saved On:    01/23/2003 14:34:27
;;;    Written By:    

(eval-when #+:CLTL2 (:EXECUTE :LOAD-TOPLEVEL :COMPILE-TOPLEVEL)
          #-:CLTL2(LOAD EVAL COMPILE)
 (defparameter savedContext (current-context))
 (defparameter savedCreationPolicy nil))
#+(or :loom3 loom4) (defparameter savedAutoAdvance loom::*automatically-advance-state-p*)
(defparameter savedLoomFeatures (LIST-FEATURES :dont-display-p T))

(SET-FEATURES :allow-duplicate-creates)
(eval-when #+:CLTL2 (:EXECUTE :LOAD-TOPLEVEL :COMPILE-TOPLEVEL)
          #-:CLTL2(LOAD EVAL COMPILE)
 (defcontext AIRCRAFT :THEORY (LOOM::BUILT-IN-THEORY)
    :open-closed-mode :OPEN
   :monotonic-p NIL ))
(eval-when #+:CLTL2 (:EXECUTE :LOAD-TOPLEVEL :COMPILE-TOPLEVEL)  ; EVAL-WHEN 0
          #-:CLTL2(LOAD EVAL COMPILE)
(change-context 'AIRCRAFT)
(setf savedCreationPolicy (creation-policy))
(creation-policy :LITE-INSTANCE)


)    ; END EVAL-WHEN 0

;;; Terminological Definitions:

(eval-when #+:CLTL2 (:EXECUTE :LOAD-TOPLEVEL :COMPILE-TOPLEVEL)  ; EVAL-WHEN 1
          #-:CLTL2(LOAD EVAL COMPILE)
(defrelation Aa-Ordnance
  :is (:and Ordnance
            (:range Aa-Weapon)))
(defrelation Ag-Ordnance
  :is (:and Ordnance
            (:range Ag-Weapon)))
(defrelation Attacked-By
  :is (:inverse Target-Type))
(defrelation Bombs
  :is (:and Ordnance
            (:range Bomb)))
(defrelation Caliber
  :domain Gun
  :range Distance-Measure
  :annotations ( (OUTPUT-UNIT "mm"))
)
(defrelation Carried-By
  :is (:inverse Stores))
(defrelation Ceiling
  :domain Flying-Object
  :range Distance-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "ft"))
)
(defrelation Cost
  :domain Physical-Entity
  :characteristics :single-valued
  :range Integer
  :annotations ( (VALUE-FORMAT-STRING "$~:D"))
)
(defrelation Crew-Roles
  :domain Vehicle
  :characteristics :single-valued)
(defrelation Crew-Size
  :domain Vehicle
  :range Integer
  :characteristics :single-valued)
(defrelation Designation
  :domain Entity
  :characteristics :single-valued)
(defrelation Diameter
  :domain Physical-Entity
  :range Distance-Measure
  :characteristics :single-valued
  :annotations ( width-relation
     (OUTPUT-UNIT "ft"))
)
(defrelation Drop-Tank
  :is (:and Stores
            (:range Fuel-Tank)))
(defrelation Engine-Count
  :domain Vehicle
  :range Integer
  :characteristics :single-valued)
(defrelation Engine-Type
  :domain Vehicle
  :range Engine
  :characteristics :closed-world)
(defrelation Engine-Used-By
  :is (:inverse Engine-Type))
(defrelation Fleet-Size
  :arity 3
  :domains (Aircraft Air-Organization)
  :range Integer
  :characteristics :single-valued)
(defrelation Fuel-Capacity
  :domain (:Or Vehicle Fuel-Tank)
  :range Volume-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "gal"))
)
(defrelation Guidance
  :domain Weapon
  :range Guidance-Type)
(defrelation Guns
  :is (:and Ordnance
            (:range Gun)))
(defrelation Height
  :domain Physical-Entity
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "ft"))
)
(defrelation Horsepower
  :domain Propellor-Engine
  :characteristics :single-valued
  :range Power-Measure
  :annotations ( (OUTPUT-UNIT "hp"))
)
(defrelation In-Service
  :domain Physical-Entity
  :characteristics :single-valued)
(defrelation Landing-Distance
  :domain Flying-Object
  :range Distance-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "ft"))
)
(defrelation Length
  :domain Physical-Entity
  :range Distance-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "ft"))
)
(defrelation Made-By
  :is (:inverse Manufactures))
(defrelation Manufactures
  :domain Manufacturer)
(defrelation Max-Mach
  :domain Flying-Object
  :range Number
  :characteristics :single-valued)
(defrelation Max-Range
  :domain Vehicle
  :range Distance-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "miles"))
)
(defrelation Max-Speed
  :domain Vehicle
  :range Speed-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "mph"))
)
(defrelation Max-Weight
  :domain Physical-Entity
  :range Mass-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "lbs"))
)
(defrelation Max-Width
  :is (:satisfies (?X ?Y) (Max (:Collect ?W (Exists (?R) (:And (Width-Relation ?R) (?R ?X ?W)))) ?Y))
  :domain Physical-Entity
  :range Distance-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "ft"))
)
(defrelation Min-Range
  :domain Weapon
  :range Distance-Measure
  :characteristics :single-valued)
(defrelation Missiles
  :is (:and Ordnance
            (:range Missile)))
(defrelation Mission
  :domain Vehicle
  :range Mission
  :identifier Mission-Relation)
(defrelation Name
  :domain Entity)
(defrelation Normal-Range
  :domain Vehicle
  :range Distance-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "miles"))
)
(defrelation Number-Of-Ac
  :domain Aircraft
  :range Integer
  :is (:satisfies (?X ?Y) (Sum (:Collect ?Z (:Exists ?W (Fleet-Size ?X ?W ?Z))) ?Y))
  :characteristics (:single-valued :read-only))
(defrelation Ordnance
  :is (:and Stores
            (:range Weapon)))
(defrelation Passenger-Capacity
  :domain Vehicle
  :range Integer
  :characteristics :single-valued)
(defrelation Payload
  :domain Vehicle
  :range Mass-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "lb"))
)
(defrelation Pod
  :is (:and Stores
            (:range Pod)))
(defrelation Rockets
  :is (:and Ordnance
            (:range Rocket)))
(defrelation Rotor-Diameter
  :domain Helicopter
  :range Distance-Measure
  :characteristics :single-valued
  :annotations ( width-relation
     (OUTPUT-UNIT "ft"))
)
(defrelation Shaft-Horsepower
  :domain Engine
  :range Power-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "shp"))
)
(defrelation Stores
  :domain Aircraft)
(defrelation Take-Off-Distance
  :domain Flying-Object
  :range Distance-Measure
  :characteristics :single-valued
  :annotations ( (OUTPUT-UNIT "ft"))
)
(defrelation Target-Type
  :domain Weapon)
(defrelation Thrust
  :domain Jet-Engine
  :characteristics :single-valued
  :range Force-Measure
  :annotations ( (OUTPUT-UNIT "lbf"))
)
(defrelation Warhead
  :is-primitive Payload
  :domain Weapon
  :range Mass-Measure
  :characteristics :single-valued)
(defrelation Warhead-Type
  :domain Weapon)
(defrelation Width
  :domain Physical-Entity
  :characteristics :single-valued
  :range Distance-Measure
  :annotations ( (OUTPUT-UNIT "ft"))
)
(defrelation Wingspan
  :domain Flying-Object
  :range Distance-Measure
  :characteristics :single-valued
  :annotations ( width-relation
     (OUTPUT-UNIT "ft"))
)
(defconcept Aa-Weapon
  :is (:and Weapon
            (:some Target-Type (:one-of Flying-Object Aircraft))))
(defconcept Active-Guidance-Type
  :is (:one-of 'SEMI-ACTIVE-RADAR-HOMING 'ACTIVE-RADAR-HOMING 'SEMI-ACTIVE-LASER-HOMING))
(defconcept Active-Jammer
  :is-primitive Ecm-Pod)
(defconcept Afterburning-Engine
  :is-primitive Jet-Engine)
(defconcept Ag-Weapon
  :is (:and Weapon
            (:filled-by Target-Type Ground-Unit)))
(defconcept Air-Organization
  "An Organization that owns/controls aircraft"
  :is-primitive Organization)
(defconcept Air-Superiority
  :is-primitive Combat-Mission
  :annotations ( combat-mission)
)
(defconcept Aircraft
  :is (:and Vehicle Flying-Object)
  :partitions $Ac-Type$)
(defconcept Aircraft-Manufacturer
  :is (:and Manufacturer
            (:some Manufactures Aircraft)))
(defconcept All-Weather
  :is-primitive Technology)
(defconcept Attack-Aircraft
  :is (:and Airplane
            (:some Mission Combat-Mission)
            (:some Mission (:one-of Sead))))
(defconcept Barrage-Jammer
  :is-primitive Ecm-Pod)
(defconcept Bomb
  :is-primitive Weapon)
(defconcept Bomber
  :is (:and Airplane
            (:some Mission Combat-Mission)
            (:some Mission (:one-of Strike Interdiction Cas Sead Strategic-Bombing))))
(defconcept Cannon
  :is-primitive Gun)
(defconcept Cas
  :is-primitive Combat-Mission
  :annotations ( combat-mission)

  :identifier Close-Air-Support)
(defconcept Close-Air-Support
  :is Cas
  :identifier Close-Air-Support)
(defconcept Chaff-Pod
  :is-primitive Ecm-Pod)
(defconcept Combat-Aircraft
  :is (:and Aircraft
            (some Mission Combat-Mission)))
(defconcept Combat-Mission
  :is-primitive Mission
  :annotations ( mission)
)
(defconcept Command
  :is-primitive Non-Combat-Mission
  :annotations ( non-combat-mission)
)
(defconcept Data-Link-Pod
  :is-primitive Pod)
(defconcept Deceptive-Jammer
  :is-primitive Ecm-Pod)
(defconcept Diesel-Engine
  :is-primitive Engine)
(defconcept Drone
  "A pilotless aircraft."
  :is (:and Heavier-Than-Air-Craft Unmanned-Aircraft))
(defconcept Ecm-Pod
  :is-primitive Pod)
(defconcept Electronic-Warfare
  :is-primitive Combat-Mission
  :annotations ( combat-mission)
)
(defconcept Engine
  :is-primitive Physical-Entity
  :identifier Engine-Concept)
(defconcept Engine-Manufacturer
  :is (:and Manufacturer
            (:some Manufactures Engine)))
(defconcept Entity)
(defconcept Evacuation
  :is-primitive Transporting
  :annotations ( non-combat-mission
     transporting)
)
(defconcept Fighter
  :is (:and Airplane
            (:filled-by Mission Air-Superiority)
            (:some Mission Combat-Mission)))
(defconcept Fighter-Bomber
  :is (:and Fighter Bomber))
(defconcept Fixed-Wing-Aircraft
  :is-primitive Aircraft
  :in-partition $Ac-Type$
  :identifier Airplane)
(defconcept Airplane
  :is Fixed-Wing-Aircraft
  :identifier Airplane)
(defconcept Flare-Pod
  :is-primitive Ecm-Pod)
(defconcept Flying-Object
  :is-primitive Physical-Entity)
(defconcept Fuel-Tank
  :is-primitive Physical-Entity)
(defconcept Gas-Turbine-Engine
  :is-primitive Engine)
(defconcept Gasoline-Engine
  :is-primitive Engine)
(defconcept Glide-Bomb
  :is (:and Bomb Flying-Object
            (:at-least 1 Max-Range)))
(defconcept Glider
  "An aircraft without engines that is supported by dynamic action of air against its surfaces"
  :is-primitive (:and Heavier-Than-Air-Craft Unpowered-Vehicle))
(defconcept Ground-Unit)
(defconcept Guidance-Type
  :is (:or Active-Guidance-Type Passive-Guidance-Type))
(defconcept Gun
  :is-primitive Weapon)
(defconcept Heavier-Than-Air-Craft
  "Heavier than air craft can be defined as having total weight is greater than air displacement."
  :is-primitive Aircraft
  :in-partition $Ac-Type$)
(defconcept Helicopter-Manufacturer
  :is (:and Manufacturer
            (:some Manufactures Helicopter)))
(defconcept Hot-Air-Baloon
  :is-primitive Lighter-Than-Air-Craft)
(defconcept Hypersonic
  :is (:and Flying-Object
            (>= Max-Mach 5.0)))
)    ; END EVAL-WHEN 1

(eval-when #+:CLTL2 (:EXECUTE :LOAD-TOPLEVEL :COMPILE-TOPLEVEL)  ; EVAL-WHEN 2
          #-:CLTL2(LOAD EVAL COMPILE)
(defconcept Hypersonic-Aircraft
  :is (:and Aircraft Hypersonic))
(defconcept Interception
  :is-primitive Combat-Mission
  :annotations ( combat-mission)
)
(defconcept Interdiction
  :is-primitive Combat-Mission
  :annotations ( combat-mission)
)
(defconcept Jet-Engine
  :is-primitive Engine)
(defconcept Laser-Designator-Pod
  :is-primitive Pod)
(defconcept Lighter-Than-Air-Craft
  "An aircraft is lighter than air iff its total weight is less than its air displacement."
  :is-primitive Aircraft
  :in-partition $Ac-Type$)
(defconcept Manufacturer
  :is-primitive Organization)
(defconcept Military-Organization
  :is-primitive Organization)
(defconcept Missile
  :is-primitive (:and Weapon Flying-Object))
(defconcept Missile-Manufacturer
  :is (:and Manufacturer
            (:some Manufactures Missile)))
(defconcept Mission)
(defconcept Naval-Unit
  :is-primitive Physical-Entity)
(defconcept Navigation-Pod
  :is-primitive Pod)
(defconcept Non-Combat-Mission
  :is-primitive Mission
  :annotations ( mission)
)
(defconcept Organization
  :is-primitive Social-Entity)
(defconcept Passive-Guidance-Type
  :is (:one-of 'INERTIAL 'IR-HOMING 'IMAGING-IR 'ELECTRO-OPTICAL 'TV 'ANTI-RADIATION 'HOME-ON-JAM))
(defconcept Physical-Entity
  :is-primitive Entity)
(defconcept Piloted-Aircraft
  :is (:and Vehicle
            (> Crew-Size 0)))
(defconcept Pod
  :is-primitive Physical-Entity
  :identifier Pod-Concept)
(defconcept Powered-Vehicle
  :is (:and Vehicle
            (:at-least 1 Engine-Type)
            (> Engine-Count 0)))
(defconcept Private-Organization
  :is-primitive Organization)
(defconcept Propellor-Engine
  :is-primitive Engine)
(defconcept Reconnaissance
  :is-primitive Non-Combat-Mission
  :annotations ( non-combat-mission)
)
(defconcept Rocket
  :is-primitive (:and Weapon Flying-Object))
(defconcept Rotary-Wing-Aircraft
  :is-primitive Aircraft
  :in-partition $Ac-Type$
  :identifier Helicopter)
(defconcept Helicopter
  :is Rotary-Wing-Aircraft
  :identifier Helicopter)
(defconcept Rubber-Band-Engine
  :is-primitive Engine)
(defconcept Sar
  :is-primitive Evacuation
  :annotations ( non-combat-mission)
)
(defconcept Sead
  :is-primitive Combat-Mission
  :annotations ( combat-mission)

  :identifier Suppression-Of-Enemy-Air-Defense)
(defconcept Suppression-Of-Enemy-Air-Defense
  :is Sead
  :identifier Suppression-Of-Enemy-Air-Defense)
(defconcept Smart-Bomb
  :is (:and Bomb
            (:at-least 1 Guidance)))
(defconcept Social-Entity
  :is-primitive Entity)
(defconcept Special-Operations
  :is-primitive Combat-Mission
  :annotations ( combat-mission)
)
(defconcept Stealth-Technology
  :is-primitive Technology)
(defconcept Steam-Engine
  :is-primitive Engine)
(defconcept Strategic-Bombing
  :is-primitive Combat-Mission
  :annotations ( combat-mission)
)
(defconcept Strike
  :is-primitive Combat-Mission
  :annotations ( combat-mission)
)
(defconcept Supersonic
  :is (:and Flying-Object
            (:or (>= Max-Mach 1.0) (>= Max-Speed 750mph))))
(defconcept Supersonic-Aircraft
  :is (:and Aircraft Supersonic))
(defconcept Surveillance
  :is-primitive Non-Combat-Mission
  :annotations ( non-combat-mission)
)
(defconcept Swing-Wing
  :is-primitive Technology)
(defconcept Technology)
(defconcept Transport
  :is (:and Airplane
            (:some Mission (:one-of Transporting Evacuation))))
(defconcept Transporting
  :is-primitive Non-Combat-Mission
  :annotations ( non-combat-mission)
)
(defconcept Turbofan-Engine
  :is-primitive Jet-Engine)
(defconcept Turbojet-Engine
  :is-primitive Jet-Engine)
(defconcept Turboprop
  :is (:and Airplane
            (:all Engine-Type Turboprop-Engine)
            (:at-least 1 Engine-Type)))
(defconcept Turboprop-Engine
  :is (:and Propellor-Engine Jet-Engine))
(defconcept Turboshaft-Engine
  :is-primitive Jet-Engine)
(defconcept Unmanned-Aircraft
  :is (:and Vehicle
            (= Crew-Size 0)))
(defconcept Unpowered-Vehicle
  :is (:and Vehicle
            (:at-most 0 Engine-Type)
            (= Engine-Count 0)))
(defconcept Vehicle
  :is-primitive Physical-Entity
  :identifier Combat-Vehicle)
(defconcept Combat-Vehicle
  :is Vehicle
  :identifier Combat-Vehicle)
(defconcept Weapon
  :is-primitive Physical-Entity)
(defconcept Width-Relation
  :is-primitive Binary-Relation)

(finalize-definitions)
)    ; END EVAL-WHEN 2

;;; Instance Creation:


(CREATE '20MM-VULCAN 'NIL)
(CREATE '300G-TANK 'NIL)
(CREATE '30MM-GAU 'NIL)
(CREATE '600G-TANK 'NIL)
(CREATE 'A-10 'NIL)
(CREATE 'A-6 'NIL)
(CREATE 'AGM-130 'NIL)
(CREATE 'AGM-62 'NIL)
(CREATE 'AGM-65 'NIL)
(CREATE 'AGM-84 'NIL)
(CREATE 'AGM-88 'NIL)
(CREATE 'AIM-120 'NIL)
(CREATE 'AIM-7M 'NIL)
(CREATE 'AIM-9M 'NIL)
(CREATE 'ALLISON 'NIL)
(CREATE 'ALQ-131 'NIL)
(CREATE 'B-1 'NIL)
(CREATE 'B-2 'NIL)
(CREATE 'B-52 'NIL)
(CREATE 'BELL 'NIL)
(CREATE 'BOEING 'NIL)
(CREATE 'C-130 'NIL)
(CREATE 'C-141 'NIL)
(CREATE 'C-17 'NIL)
(CREATE 'C-20 'NIL)
(CREATE 'C-21 'NIL)
(CREATE 'C-22 'NIL)
(CREATE 'C-5 'NIL)
(CREATE 'C-9 'NIL)
(CREATE 'CANADIAN-AF 'NIL)
(CREATE 'CF-18 'NIL)
(CREATE 'E-3 'NIL)
(CREATE 'EF-111 'NIL)
(CREATE 'F-101-GE-102 'NIL)
(CREATE 'F-111 'NIL)
(CREATE 'F-117 'NIL)
(CREATE 'F-118-GE-100 'NIL)
(CREATE 'F-15 'NIL)
(CREATE 'F-16 'NIL)
(CREATE 'F100-PW-100 'NIL)
(CREATE 'F110-GE-200 'NIL)
(CREATE 'F117-PW-100 'NIL)
(CREATE 'F404 'NIL)
(CREATE 'FAIRCHILD-REPUBLIC 'NIL)
(CREATE 'GARRETT 'NIL)
(CREATE 'GE 'NIL)
(CREATE 'GENERAL-DYNAMICS 'NIL)
(CREATE 'GRUMMAN 'NIL)
(CREATE 'GULFSTREAM 'NIL)
(CREATE 'HH-1 'NIL)
(CREATE 'HH-3E 'NIL)
(CREATE 'HUGHES 'NIL)
(CREATE 'J52-P8B 'NIL)
(CREATE 'JT8D-7 'NIL)
(CREATE 'JT8D-9A 'NIL)
(CREATE 'LEARJET 'NIL)
(CREATE 'LOCKHEED-MARTIN 'NIL)
(CREATE 'LYCOMING 'NIL)
(CREATE 'MCDONNEL-DOUGLAS 'NIL)
(CREATE 'MCDONNELL-DOUGLAS 'NIL)
(CREATE 'MH-53J 'NIL)
(CREATE 'MK82 'NIL)
(CREATE 'MK84 'NIL)
(CREATE 'NAVAL-WEAPONS-CENTER 'NIL)
(CREATE 'NORTHRUP 'NIL)
(CREATE 'PRATT-&-WHITNEY 'NIL)
(CREATE 'RAYTHEON 'NIL)
(CREATE 'ROCKWELL 'NIL)
(CREATE 'ROLLS-ROYCE 'NIL)
(CREATE 'SIKORSKY 'NIL)
(CREATE 'SPEY-MK511-8 'NIL)
(CREATE 'T-53-L-13B 'NIL)
(CREATE 'T56-A-15 'NIL)
(CREATE 'T58-GE-5 'NIL)
(CREATE 'T64-GE-100 'NIL)
(CREATE 'TEXAS-INSTRUMENTS 'NIL)
(CREATE 'TF-30-P-8109 'NIL)
(CREATE 'TF-33-P-3/103 'NIL)
(CREATE 'TF33-P-7 'NIL)
(CREATE 'TF33-PW-100A 'NIL)
(CREATE 'TF34-GE-100 'NIL)
(CREATE 'TF39-GE-1C 'NIL)
(CREATE 'TFE-731-2-2B 'NIL)
(CREATE 'US-ANG 'NIL)
(CREATE 'US-NAVY 'NIL)
(CREATE 'USAF 'NIL)
(CREATE 'USAF-RESERVE 'NIL)

;;; Instance Assertions:

(TELL (:ABOUT 20MM-VULCAN GUN (CALIBER 20mm) (CARRIED-BY F-15) (CARRIED-BY F-16) (CARRIED-BY CF-18)
       (CARRIED-BY F-111) (NAME "Vulcan") (TARGET-TYPE (THE-RELATION 'AIRCRAFT 1))
       (TARGET-TYPE (THE-RELATION 'GROUND-UNIT 1))))
(TELL (:ABOUT 300G-TANK FUEL-TANK (CARRIED-BY A-6) (CARRIED-BY F-16) (FUEL-CAPACITY 300gal) (MAX-WEIGHT 2000lbs)))
(TELL (:ABOUT 30MM-GAU GUN (CALIBER 30mm) (CARRIED-BY A-10) (TARGET-TYPE (THE-RELATION 'GROUND-UNIT 1))))
(TELL (:ABOUT 600G-TANK FUEL-TANK (CARRIED-BY F-15) (CARRIED-BY F-111) (CARRIED-BY A-10) (FUEL-CAPACITY 600gal)
       (MAX-WEIGHT 4000lbs)))
(TELL (:ABOUT A-10 FIXED-WING-AIRCRAFT (STORES 30MM-GAU) (STORES 600G-TANK) (STORES AIM-9M) (STORES AGM-65)
       (STORES MK82) (STORES MK84) (CEILING 1000ft) (COST 8800000) (CREW-SIZE 1) (DESIGNATION 'A-10A)
       (DOCUMENTATION "The A-10 and OA-10 Thunderbolt IIs are the first
Air Force aircraft specially designed for close air support of ground forces.  
They are simple, effective and survivable twin-engine jet aircraft that can
be used against all ground targets, including tanks and other armored vehicles.")
       (ENGINE-COUNT 2) (ENGINE-TYPE TF34-GE-100) (HEIGHT 14.7ft) (IN-SERVICE 1976) (LENGTH 53.400005ft)
       (MADE-BY FAIRCHILD-REPUBLIC) (MAX-MACH 0.56) (MAX-RANGE 288miles) (MAX-SPEED 420mph) (MAX-WEIGHT 51000lbs)
       (MISSION (THE-RELATION 'CAS 1)) (NAME "Thunderbolt II") (NAME "Warthog") (PAYLOAD 16000lbs) (WINGSPAN 57.5ft)
       (HTML-IMAGE "images/aircraft/A-10-ac.gif")))
(TELL (:ABOUT A-6 FIXED-WING-AIRCRAFT ALL-WEATHER (STORES 300G-TANK) (STORES AIM-9M) (STORES AGM-88) (STORES AGM-84)
       (STORES AGM-65) (STORES AGM-62) (STORES MK82) (STORES MK84) (CEILING 44600ft) (COST 22000000) (CREW-SIZE 2)
       (DESIGNATION 'A-6E)
       (DOCUMENTATION "The A-6E is an all-weather, two-seat, subsonic, carrier-based
attack aircraft.   The crew, sitting side by side,
can see in all directions through a broad canopy. The aircraft is equipped
with a micro-miniaturized digital computer, a solid state weapons release
system, and a single integrated track and search radar. The Intruder is
armed with laser-guided weapons and equipped with a chin turret containing a
forward-looking infra-red (FLIR) system and laser designator and receiver.")
       (ENGINE-COUNT 2) (ENGINE-TYPE J52-P8B) (HEIGHT 16.25ft) (IN-SERVICE 1963) (LENGTH 54.500004ft)
       (MADE-BY GRUMMAN) (MAX-RANGE 3100miles) (MAX-SPEED 648mph) (MAX-WEIGHT 60626lbs)
       (MISSION (THE-RELATION 'CAS 1)) (MISSION (THE-RELATION 'STRIKE 1)) (NAME "Intruder") (NORMAL-RANGE 1077miles)
       (PAYLOAD 18000lbs) (WINGSPAN 53ft) (HTML-IMAGE "images/aircraft/A-6-ac.gif")))
(TELL (:ABOUT AGM-130 MISSILE (CARRIED-BY F-111) (CEILING 30000ft) (COST 269000) (DESIGNATION 'AGM-130A)
       (DIAMETER 1.5ft)
       (DOCUMENTATION "The AGM-130A is a powered air-to-surface missile 
designed for high- and low-altitude strikes at standoff ranges against a
variety of targets.  The AGM-130A is equipped with either a television or 
an imaging infrared seeker and data link. The seeker provides the
launch aircraft a visual presentation of the target as seen from the weapon. 
During free flight this presentation is transmitted
by a data-link system to the aircraft cockpit monitor.")
       (GUIDANCE 'TV) (GUIDANCE 'IMAGING-IR) (IN-SERVICE 1996) (LENGTH 12.9ft) (MADE-BY ROCKWELL)
       (MAX-WEIGHT 2917lbs) (TARGET-TYPE (THE-RELATION 'GROUND-UNIT 1)) (WINGSPAN 5ft)))
(TELL (:ABOUT AGM-62 MISSILE (CARRIED-BY A-6) (DESIGNATION 'AGM-62) (DOCUMENTATION "") (NAME "Walleye")
       (TARGET-TYPE (THE-RELATION 'GROUND-UNIT 1))))
(TELL (:ABOUT AGM-65 MISSILE (CARRIED-BY A-10) (CARRIED-BY A-6) (DESIGNATION 'AGM-65) (DOCUMENTATION "")
       (GUIDANCE 'OPTICAL) (GUIDANCE 'IR) (NAME "Maverick") (TARGET-TYPE (THE-RELATION 'GROUND-UNIT 1))))
(TELL (:ABOUT AGM-84 MISSILE (CARRIED-BY A-6) (CARRIED-BY CF-18) (CARRIED-BY B-52) (COST 720000)
       (DESIGNATION 'AGM-84D) (DIAMETER 1.1ft)
       (DOCUMENTATION "The AGM-84D Harpoon is an all-weather, over-the-horizon,
anti-ship missile system.  The Harpoon's active radar guidance, warhead design, and low-level, sea-
skimming cruise trajectory assure high survivability and effectiveness. The
missile is capable of being launched from surface ships, submarines, or
(without the booster) from aircraft.")
       (GUIDANCE 'INERTIAL) (GUIDANCE 'ACTIVE-RADAR-HOMING) (IN-SERVICE 1985) (LENGTH 12.6ft)
       (MADE-BY MCDONNELL-DOUGLAS) (MAX-RANGE 60miles) (MAX-WEIGHT 1145lbs) (NAME "Harpoon")
       (TARGET-TYPE (THE-RELATION 'NAVAL-UNIT 1)) (WINGSPAN 3ft))
      (NOT (SUPERSONIC AGM-84)))
(TELL (:ABOUT AGM-88 MISSILE SUPERSONIC (CARRIED-BY A-6) (CARRIED-BY F-16) (COST 284000) (DESIGNATION 'AGM-88)
       (DIAMETER 0.90000004ft)
       (DOCUMENTATION "The AGM-88 HARM (high-speed antiradiation missile) 
is an air-to-surface tactical missile designed to seek and destroy
enemy radar-equipped air defense systems. ")
       (GUIDANCE 'ANTI-RADIATION) (IN-SERVICE 1985) (LENGTH 13.7ft) (MADE-BY TEXAS-INSTRUMENTS) (MAX-RANGE 80miles)
       (MAX-SPEED 760mph) (MAX-WEIGHT 800lbs) (NAME "HARM") (TARGET-TYPE (THE-RELATION 'GROUND-UNIT 1))
       (WINGSPAN 3.7000003ft) (HTML-IMAGE "images/weapons/AGM-88-msl.gif")))
(TELL (:ABOUT AIM-120 MISSILE SUPERSONIC (CARRIED-BY F-15) (CARRIED-BY F-16) (COST 386000) (DESIGNATION 'AIM-120A)
       (DIAMETER 0.6ft)
       (DOCUMENTATION "The AIM-120 advanced medium-range air-to-air 
missile (AMRAAM) is a new generation air-to-air missile. It has an
all-weather, beyond-visual-range capability and is scheduled to be 
operational beyond 2000.")
       (GUIDANCE 'ACTIVE-RADAR-HOMING) (GUIDANCE 'INERTIAL) (IN-SERVICE 1991) (LENGTH 12ft) (MADE-BY HUGHES)
       (MADE-BY RAYTHEON) (MAX-RANGE 20miles) (MAX-WEIGHT 335lbs) (NAME "AMRAAM")
       (TARGET-TYPE (THE-RELATION 'AIRCRAFT 1)) (WINGSPAN 1.7000002ft)))
(TELL (:ABOUT AIM-7M MISSILE SUPERSONIC (CARRIED-BY F-15) (CARRIED-BY F-16) (CARRIED-BY CF-18) (COST 125000)
       (DESIGNATION 'AIM-7M) (DIAMETER 0.6999999ft)
       (DOCUMENTATION "The AIM-7 Sparrow is a radar-guided, air-to-air 
missile with a high-explosive warhead. The versatile Sparrow has
all-weather, all-altitude operational capability and can attack 
high-performance aircraft and missiles from any direction.")
       (GUIDANCE 'SEMI-ACTIVE-RADAR-HOMING) (IN-SERVICE 1982) (LENGTH 12ft) (MADE-BY RAYTHEON) (MAX-WEIGHT 500lbs)
       (NAME "Sparrow") (TARGET-TYPE (THE-RELATION 'AIRCRAFT 1)) (WINGSPAN 3.2999997ft)))
(TELL (:ABOUT AIM-9M MISSILE SUPERSONIC (CARRIED-BY A-10) (CARRIED-BY A-6) (CARRIED-BY F-15) (CARRIED-BY F-16)
       (CARRIED-BY CF-18) (CARRIED-BY F-117) (COST 41300) (DESIGNATION 'AIM-9M) (DIAMETER 0.4ft)
       (DOCUMENTATION "The AIM-9 Sidewinder is a supersonic, heat-seeking, 
air-to-air missile carried by fighter aircraft. It has a high-explosive
warhead and an active infrared guidance system.")
       (GUIDANCE 'IR-HOMING) (IN-SERVICE 1983) (LENGTH 9.4ft) (MADE-BY NAVAL-WEAPONS-CENTER) (MAX-RANGE 10miles)
       (MAX-WEIGHT 190lbs) (NAME "Sidewinder") (TARGET-TYPE (THE-RELATION 'AIRCRAFT 1)) (WINGSPAN 2ft)
       (HTML-IMAGE "images/weapons/AIM-9-msl.gif")))
(TELL (:ABOUT ALLISON MANUFACTURER (MANUFACTURES T56-A-15)))
(TELL (:ABOUT ALQ-131 ECM-POD (CARRIED-BY F-16) (DESIGNATION 'ALQ-131) (MAX-WEIGHT 600lbs)))
(TELL (:ABOUT B-1 FIXED-WING-AIRCRAFT SWING-WING (CEILING 30000ft) (COST 200000000) (CREW-SIZE 4)
       (DESIGNATION 'B-1B)
       (DOCUMENTATION "The B-1B is a multi-role, long-range bomber, capable
of flying intercontinental missions without refueling, then penetrating present
and predicted sophisticated enemy defenses. It can perform a variety of missions,
including that of a conventional weapons carrier for theater operations.")
       (ENGINE-COUNT 4) (ENGINE-TYPE F-101-GE-102) (HEIGHT 34ft) (IN-SERVICE 1985) (LENGTH 147ft) (MADE-BY ROCKWELL)
       (MAX-MACH 1.2) (MAX-SPEED 900mph) (MAX-WEIGHT 477000lbs) (MISSION (THE-RELATION 'STRATEGIC-BOMBING 1))
       (NAME "Lancer") (PAYLOAD 48000lbs) (WINGSPAN 137ft) (HTML-IMAGE "images/aircraft/B-1-ac.gif")))
(TELL (:ABOUT B-2 FIXED-WING-AIRCRAFT STEALTH-TECHNOLOGY (CEILING 50000ft) (COST 750000000) (CREW-SIZE 2)
       (DESIGNATION 'B-2)
       (DOCUMENTATION "The B-2 Spirit is a multi-role bomber capable of 
delivering both conventional and nuclear munitions. A dramatic leap
forward in technology, the bomber represents a major milestone in the U.S. 
bomber modernization program. The B-2 brings massive firepower to bear, in
a short time, anywhere on the globe through previously impenetrable defenses.")
       (ENGINE-COUNT 4) (ENGINE-TYPE F-118-GE-100) (HEIGHT 17ft) (IN-SERVICE 1993) (LENGTH 69ft) (MADE-BY NORTHRUP)
       (MAX-SPEED 600mph) (MAX-WEIGHT 336500lbs) (MISSION (THE-RELATION 'STRATEGIC-BOMBING 1)) (NAME "Spirit")
       (PAYLOAD 40000lbs) (WINGSPAN 172ft) (HTML-IMAGE "images/aircraft/B-2-ac.gif")))
(TELL (:ABOUT B-52 FIXED-WING-AIRCRAFT (STORES AGM-84) (STORES MK82) (STORES MK84) (CEILING 50000ft) (COST 64000000)
       (CREW-SIZE 5) (DESIGNATION 'B-52H)
       (DOCUMENTATION "Air Combat Command's B-52 is a long-range, heavy 
bomber that can perform a variety of missions. It can carry nuclear or 
conventional ordnance.  For more than 35 years B-52 Stratofortresses have 
been the primary manned strategic bomber force for the United States.
Updated with modern technology, the B-52 fleet will continue flying into 
the 21st century.")
       (ENGINE-COUNT 8) (ENGINE-TYPE TF-33-P-3/103) (HEIGHT 40.8ft) (IN-SERVICE 1959) (LENGTH 159.4ft)
       (MADE-BY BOEING) (MAX-MACH 0.86) (MAX-RANGE 8800miles) (MAX-SPEED 650mph) (MAX-WEIGHT 488000lbs)
       (MISSION (THE-RELATION 'STRATEGIC-BOMBING 1)) (NAME "BUFF") (NAME "Stratofortress") (PAYLOAD 70000lbs)
       (WINGSPAN 185ft) (HTML-IMAGE "images/aircraft/B-52-ac.gif")))
(TELL (:ABOUT BELL MANUFACTURER (MANUFACTURES HH-1)))
(TELL (:ABOUT BOEING MANUFACTURER (MANUFACTURES B-52) (MANUFACTURES C-22) (MANUFACTURES E-3)))
(TELL (:ABOUT C-130 FIXED-WING-AIRCRAFT (CEILING 33000ft) (COST 22900000) (CREW-SIZE 5) (DESIGNATION 'C-130)
       (DOCUMENTATION "The C-130 Hercules primarily performs the 
intratheater portion of the airlift mission. The aircraft is capable of 
operating from rough, dirt strips and is the prime transport for 
paradropping troops and equipment into hostile areas.")
       (ENGINE-COUNT 4) (ENGINE-TYPE T56-A-15) (HEIGHT 38ft) (IN-SERVICE 1955) (LENGTH 98ft)
       (MADE-BY LOCKHEED-MARTIN) (MAX-MACH 0.57) (MAX-RANGE 5200miles) (MAX-SPEED 374mph) (MAX-WEIGHT 155000lbs)
       (MISSION (THE-RELATION 'TRANSPORT 1)) (NAME "Hercules") (NORMAL-RANGE 2500miles) (PASSENGER-CAPACITY 92)
       (PAYLOAD 100000lbs) (WINGSPAN 133ft) (HTML-IMAGE "images/aircraft/C-130-ac.gif")))
(TELL (:ABOUT C-141 FIXED-WING-AIRCRAFT (CEILING 41000ft) (COST 8100000) (CREW-SIZE 6) (DESIGNATION 'C-141B)
       (DOCUMENTATION "The C-141 Starlifter is the workhorse of the Air 
Mobility Command. The Starlifter fulfills the vast spectrum of airlift
requirements through its ability to airlift combat forces over long distances, 
inject those forces and their equipment either by airland or airdrop, re-supply 
employed forces, and extract the sick and wounded from the hostile area to 
advanced medical facilities.")
       (ENGINE-COUNT 4) (ENGINE-TYPE TF33-P-7) (HEIGHT 39ft) (IN-SERVICE 1964) (LENGTH 168ft)
       (MADE-BY LOCKHEED-MARTIN) (MAX-MACH 0.66) (MAX-RANGE 2500miles) (MAX-SPEED 500mph) (MAX-WEIGHT 323100lbs)
       (MISSION (THE-RELATION 'TRANSPORT 1)) (NAME "Starlifter") (NORMAL-RANGE 2500miles) (WINGSPAN 160ft)
       (HTML-IMAGE "images/aircraft/C-141-ac.gif")))
(TELL (:ABOUT C-17 FIXED-WING-AIRCRAFT (CEILING 45000ft) (CREW-SIZE 3) (DESIGNATION 'C-17)
       (DOCUMENTATION "The C-17 is capable of rapid strategic delivery of 
troops and all types of cargo to main operating bases or directly to forward
bases in the deployment area. The aircraft is also able to perform theater 
airlift missions when required. The inherent flexibility and performance 
characteristics of the C-17 force improves the ability of the total airlift 
system to fulfill the worldwide air mobility requirements of the United States.")
       (ENGINE-COUNT 4) (ENGINE-TYPE F117-PW-100) (HEIGHT 55ft) (IN-SERVICE 1993) (LENGTH 174ft)
       (MADE-BY MCDONNEL-DOUGLAS) (MAX-MACH 0.77) (MAX-RANGE 5940miles) (MAX-SPEED 500mph) (MAX-WEIGHT 585000lbs)
       (MISSION (THE-RELATION 'TRANSPORT 1)) (NAME "Globemaster III") (PASSENGER-CAPACITY 102) (PAYLOAD 170900lbs)
       (WINGSPAN 171ft) (HTML-IMAGE "images/aircraft/C-17-ac.gif")))
(TELL (:ABOUT C-20 FIXED-WING-AIRCRAFT (COST 22200000) (CREW-SIZE 5) (DESIGNATION 'C-20A)
       (DOCUMENTATION "The C-20 Gulfstream III is a twin-engine, turbofan 
aircraft acquired to fill the airlift mission for high-ranking government
and Defense Department officials.")
       (ENGINE-COUNT 2) (ENGINE-TYPE SPEY-MK511-8) (HEIGHT 25ft) (IN-SERVICE 1983) (LENGTH 83ft)
       (MADE-BY GULFSTREAM) (MAX-RANGE 4715miles) (MAX-SPEED 576mph) (MAX-WEIGHT 69700lbs)
       (MISSION (THE-RELATION 'TRANSPORT 1)) (NAME "Gulfstream III") (PASSENGER-CAPACITY 14) (WINGSPAN 78ft)))
(TELL (:ABOUT C-21 FIXED-WING-AIRCRAFT (COST 2800000) (CREW-SIZE 2) (DESIGNATION 'C-21A)
       (DOCUMENTATION "The C-21A provides cargo and passenger airlift 
and can transport litters during medical evacuations.")
       (ENGINE-COUNT 2) (ENGINE-TYPE TFE-731-2-2B) (HEIGHT 12ft) (IN-SERVICE 1984) (LENGTH 49ft) (MADE-BY LEARJET)
       (MAX-MACH 0.81) (MAX-RANGE 2306miles) (MAX-SPEED 530mph) (MAX-WEIGHT 18300lbs)
       (MISSION (THE-RELATION 'TRANSPORT 1)) (WINGSPAN 40ft)))
(TELL (:ABOUT C-22 FIXED-WING-AIRCRAFT (MADE-BY BOEING) (CEILING 34000ft) (CREW-SIZE 8) (DESIGNATION 'C-22B)
       (DOCUMENTATION "The C-22B, a Boeing 727-100, is the primary 
medium-range aircraft used by the Air National Guard and National Guard
Bureau to airlift personnel.")
       (ENGINE-COUNT 3) (ENGINE-TYPE JT8D-7) (HEIGHT 34ft) (IN-SERVICE 1963) (LENGTH 133ft) (MAX-MACH 0.82)
       (MAX-RANGE 2000miles) (MAX-SPEED 619mph) (MAX-WEIGHT 170000lbs) (MISSION (THE-RELATION 'TRANSPORT 1))
       (PAYLOAD 20000lbs) (WINGSPAN 108ft)))
(TELL (:ABOUT C-5 FIXED-WING-AIRCRAFT (CEILING 34000ft) (COST 167700000) (CREW-SIZE 6) (DESIGNATION 'C-5B)
       (DOCUMENTATION "The C-5 Galaxy is a heavy-cargo transport designed 
to provide massive strategic airlift, for deployment and supply of combat and 
support forces.  The C-5 can carry unusually large and heavy cargo for 
intercontinental ranges at jet speeds. The plane can take off and land
in relatively short distances and taxi on substandard surfaces during 
emergency operations. ")
       (ENGINE-COUNT 4) (ENGINE-TYPE TF39-GE-1C) (HEIGHT 65ft) (IN-SERVICE 1970) (LENGTH 248ft)
       (MADE-BY LOCKHEED-MARTIN) (MAX-MACH 0.72) (MAX-RANGE 5940miles) (MAX-SPEED 541mph) (MAX-WEIGHT 840000lbs)
       (MISSION (THE-RELATION 'TRANSPORT 1)) (NAME "Galaxy") (PAYLOAD 605000lbs) (WINGSPAN 223ft)
       (HTML-IMAGE "images/aircraft/C-5-ac.gif")))
(TELL (:ABOUT C-9 FIXED-WING-AIRCRAFT (CEILING 35000ft) (COST 17000000) (CREW-SIZE 8) (DESIGNATION 'C-9C)
       (DOCUMENTATION "The C-9 is a twin-engine, T-tailed, medium-range, 
swept-wing jet aircraft used primarily for Air Mobility Command's aeromedical 
evacuation mission.  The Nightingale is a modified version of the McDonnell 
Douglas Aircraft Corporation's DC-9. It is the only aircraft in the
inventory specifically designed for the movement of litter and 
ambulatory patients.")
       (ENGINE-COUNT 2) (ENGINE-TYPE JT8D-9A) (HEIGHT 27ft) (IN-SERVICE 1968) (LENGTH 119ft)
       (MADE-BY MCDONNELL-DOUGLAS) (MAX-MACH 0.86) (MAX-RANGE 2000miles) (MAX-SPEED 565mph) (MAX-WEIGHT 108000lbs)
       (MISSION (THE-RELATION 'EVACUATION 1)) (NAME "Nightingale") (PASSENGER-CAPACITY 44) (WINGSPAN 93ft)))
(TELL (:ABOUT CANADIAN-AF MILITARY-ORGANIZATION AIR-ORGANIZATION))
(TELL (:ABOUT CF-18 FIXED-WING-AIRCRAFT (STORES 20MM-VULCAN) (STORES AGM-84) (STORES AIM-7M) (STORES AIM-9M)
       (STORES MK82) (STORES MK84) (CEILING 50000ft) (CREW-SIZE 1) (DESIGNATION 'CF-18C)
       (DOCUMENTATION "The CF-18 is a twin engine supersonic jet tactical fighter. The
four CF-18 fighter squadrons (15 aircraft each) are assigned
the air defence role in North America. They maintain limited
air-to-surface capability to provide support to maritime
operations, as well as support to land operations in defence of
Canada.")
       (ENGINE-COUNT 2) (ENGINE-TYPE F404) (HEIGHT 15.3ft) (IN-SERVICE 1982) (LENGTH 56ft)
       (MADE-BY MCDONNELL-DOUGLAS) (MAX-MACH 1.8) (MAX-RANGE 2272miles) (MAX-WEIGHT 23000lbs)
       (MISSION (THE-RELATION 'AIR-SUPERIORITY 1)) (MISSION (THE-RELATION 'INTERCEPTION 1))
       (MISSION (THE-RELATION 'STRIKE 1)) (NAME "Hornet") (WINGSPAN 40.400005ft)
       (HTML-IMAGE "images/aircraft/FA-18-ac.gif")))
(TELL (:ABOUT E-3 FIXED-WING-AIRCRAFT (MADE-BY BOEING) (CEILING 29000ft) (COST 180000000) (CREW-SIZE 23)
       (DESIGNATION 'E-3)
       (DOCUMENTATION "The E-3 Sentry is an airborne warning and control 
system (AWACS) aircraft that provides all-weather surveillance, command, 
control and communications needed by commanders of U.S. and NATO air defense 
forces. As proven in Desert Storm, it is the premier air battle command and 
control aircraft in the world today.")
       (ENGINE-COUNT 4) (ENGINE-TYPE TF33-PW-100A) (HEIGHT 41.400005ft) (IN-SERVICE 1977) (LENGTH 145.5ft)
       (MAX-RANGE 4000miles) (MAX-WEIGHT 347000lbs) (MISSION (THE-RELATION 'COMMAND 1))
       (MISSION (THE-RELATION 'SURVEILLANCE 1)) (NAME "Sentry") (NAME "AWACS") (WINGSPAN 131ft)
       (HTML-IMAGE "images/aircraft/E-3-ac.gif")))
(TELL (:ABOUT EF-111 FIXED-WING-AIRCRAFT (CEILING 50000ft) (COST 35000000) (CREW-SIZE 2) (DESIGNATION 'EF-111A)
       (DOCUMENTATION "The EF-111A Raven is designed to provide electronic 
countermeasures support for tactical air forces. The EF-111A can
detect, sort, identify and nullify different enemy radars.  Jamming subsystem 
receivers scan across frequency bands under computer or manual control. When
threats are identified, appropriate countermeasures are initiated either 
automatically by computer or with the electronic warfare officer's assistance.")
       (ENGINE-COUNT 2) (ENGINE-TYPE TF-30-P-8109) (HEIGHT 20ft) (IN-SERVICE 1981) (LENGTH 76ft) (MADE-BY GRUMMAN)
       (MAX-MACH 2.2) (MAX-RANGE 2000miles) (MAX-SPEED 1650mph) (MAX-WEIGHT 89000lbs)
       (MISSION (THE-RELATION 'ELECTRONIC-WARFARE 1)) (NAME "Raven") (PAYLOAD 7000lbs) (WINGSPAN 63ft)
       (HTML-IMAGE "images/aircraft/EF-111-ac.gif")))
(TELL (:ABOUT F-101-GE-102 TURBOFAN-ENGINE AFTERBURNING-ENGINE (ENGINE-USED-BY B-1) (MADE-BY GE)
       (THRUST 133446.64N)))
(TELL (:ABOUT F-111 FIXED-WING-AIRCRAFT ALL-WEATHER (STORES 20MM-VULCAN) (STORES 600G-TANK) (STORES AGM-130)
       (STORES MK82) (STORES MK84) (CEILING 60000ft) (COST 18000000) (CREW-SIZE 2) (DESIGNATION 'F-111F)
       (DOCUMENTATION "The F-111 is a multipurpose tactical fighter bomber 
capable of supersonic speeds. It can operate from tree-top level to
altitudes above 60,000 feet.  The F-111 has variable-sweep wings that allow 
the pilot to fly from slow approach speeds to supersonic velocity at sea level
and more than twice the speed of sound at higher altitudes.  The F-111 
can carry conventional as well as nuclear weapons.")
       (ENGINE-COUNT 2) (ENGINE-TYPE F100-PW-100) (HEIGHT 17.1ft) (IN-SERVICE 1967) (LENGTH 73.5ft)
       (MADE-BY GENERAL-DYNAMICS) (MAX-MACH 2.5) (MAX-RANGE 3565miles) (MAX-SPEED 1850mph) (MAX-WEIGHT 100000lbs)
       (MISSION (THE-RELATION 'STRIKE 1)) (MISSION (THE-RELATION 'INTERDICTION 1))
       (MISSION (THE-RELATION 'STRATEGIC-BOMBING 1)) (NAME "Aardvark") (PAYLOAD 25000lbs) (WINGSPAN 63ft)))
(TELL (:ABOUT F-117 FIXED-WING-AIRCRAFT STEALTH-TECHNOLOGY (STORES AIM-9M) (STORES MK82) (STORES MK84)
       (COST 45000000) (CREW-SIZE 1) (DESIGNATION 'F-117A)
       (DOCUMENTATION "The F-117A Nighthawk is the world's first operational 
aircraft designed to exploit low-observable stealth technology.")
       (ENGINE-COUNT 2) (ENGINE-TYPE F404) (HEIGHT 12.5ft) (IN-SERVICE 1982) (LENGTH 66ft) (MADE-BY LOCKHEED-MARTIN)
       (MAX-SPEED 650mph) (MAX-WEIGHT 52500lbs) (MISSION (THE-RELATION 'STRIKE 1))
       (MISSION (THE-RELATION 'INTERDICTION 1)) (NAME "Stealth Fighter") (NAME "Nighthawk") (WINGSPAN 43.400005ft)
       (HTML-IMAGE "images/aircraft/F-117-ac.gif")))
(TELL (:ABOUT F-118-GE-100 JET-ENGINE (ENGINE-USED-BY B-2) (MADE-BY GE) (THRUST 76954.234N)))
(TELL (:ABOUT F-15 FIXED-WING-AIRCRAFT ALL-WEATHER (STORES 20MM-VULCAN) (STORES 600G-TANK) (STORES AIM-120)
       (STORES AIM-7M) (STORES AIM-9M) (CEILING 65000ft) (COST 15000000) (CREW-SIZE 1) (DESIGNATION 'F-15C)
       (DOCUMENTATION "The F-15 Eagle is an all-weather, extremely 
maneuverable, tactical fighter designed to gain and maintain air superiority 
in aerial combat.")
       (ENGINE-COUNT 2) (ENGINE-TYPE F100-PW-100) (HEIGHT 19ft) (IN-SERVICE 1972) (LENGTH 64ft)
       (MADE-BY MCDONNELL-DOUGLAS) (MAX-MACH 2.5) (MAX-RANGE 3450miles) (MAX-SPEED 1875mph) (MAX-WEIGHT 68000lbs)
       (MISSION (THE-RELATION 'AIR-SUPERIORITY 1)) (NAME "Eagle") (WINGSPAN 42ft)
       (HTML-IMAGE "images/aircraft/F-15-ac.gif")))
(TELL (:ABOUT F-16 FIXED-WING-AIRCRAFT (STORES 20MM-VULCAN) (STORES 300G-TANK) (STORES AGM-88) (STORES AIM-120)
       (STORES AIM-7M) (STORES AIM-9M) (STORES ALQ-131) (STORES MK82) (STORES MK84) (CEILING 50000ft)
       (COST 12800000) (CREW-SIZE 1) (DESIGNATION 'F-16C)
       (DOCUMENTATION "The F-16 Fighting Falcon is a compact, multirole 
fighter aircraft. It is highly maneuverable and has proven itself in air-to-air
combat and air-to-surface attack. It provides a relatively low-cost, 
high-performance weapon system for the air forces of the United States and 
allied nations.")
       (ENGINE-COUNT 1) (ENGINE-TYPE F110-GE-200) (HEIGHT 16ft) (IN-SERVICE 1979) (LENGTH 49ft)
       (MADE-BY GENERAL-DYNAMICS) (MAX-MACH 2) (MAX-RANGE 2000miles) (MAX-SPEED 1500mph) (MAX-WEIGHT 37500lbs)
       (MISSION (THE-RELATION 'AIR-SUPERIORITY 1)) (MISSION (THE-RELATION 'CAS 1))
       (MISSION (THE-RELATION 'STRIKE 1)) (MISSION (THE-RELATION 'INTERDICTION 1)) (NAME "Fighting Falcon")
       (WINGSPAN 33ft) (HTML-IMAGE "images/aircraft/F-16-ac.gif") (HTML-IMAGE "images/aircraft/F-16x-ac.gif")))
(TELL (:ABOUT F100-PW-100 TURBOFAN-ENGINE AFTERBURNING-ENGINE (ENGINE-USED-BY F-111) (ENGINE-USED-BY F-15)
       (MADE-BY PRATT-&-WHITNEY) (THRUST 111205.53N)))
(TELL (:ABOUT F110-GE-200 TURBOFAN-ENGINE AFTERBURNING-ENGINE (ENGINE-USED-BY F-16) (MADE-BY GE)
       (THRUST 120101.984N)))
(TELL (:ABOUT F117-PW-100 TURBOFAN-ENGINE (ENGINE-USED-BY C-17) (MADE-BY PRATT-&-WHITNEY) (THRUST 181932.27N)))
(TELL (:ABOUT F404 TURBOFAN-ENGINE AFTERBURNING-ENGINE JET-ENGINE (ENGINE-USED-BY CF-18) (ENGINE-USED-BY F-117)
       (MADE-BY GE) (THRUST 71349.48N)))
(TELL (:ABOUT FAIRCHILD-REPUBLIC MANUFACTURER (MANUFACTURES A-10)))
(TELL (:ABOUT GARRETT MANUFACTURER (MANUFACTURES TFE-731-2-2B)))
(TELL (:ABOUT GE MANUFACTURER (MANUFACTURES F-101-GE-102) (MANUFACTURES F-118-GE-100) (MANUFACTURES F110-GE-200)
       (MANUFACTURES F404) (MANUFACTURES TF39-GE-1C) (MANUFACTURES T58-GE-5) (MANUFACTURES T64-GE-100)
       (MANUFACTURES TF34-GE-100)))
(TELL (:ABOUT GENERAL-DYNAMICS MANUFACTURER (MANUFACTURES F-111) (MANUFACTURES F-16)))
(TELL (:ABOUT GRUMMAN MANUFACTURER (MANUFACTURES A-6) (MANUFACTURES EF-111)))
(TELL (:ABOUT GULFSTREAM (MANUFACTURES C-20)))
(TELL (:ABOUT HH-1 ROTARY-WING-AIRCRAFT (MADE-BY BELL) (CEILING 15000ft) (COST 1900000) (CREW-SIZE 2)
       (DESIGNATION 'HH-1H)
       (DOCUMENTATION "The HH-1H is a light-lift Air Force helicopter used 
for distinguished visitor transport, and support of missile sites and ranges.  
It is the single-engine version of the Huey helicopters first flown in 1956.")
       (ENGINE-COUNT 1) (ENGINE-TYPE T-53-L-13B) (HEIGHT 13ft) (LENGTH 57ft) (MAX-RANGE 345miles) (MAX-SPEED 133mph)
       (MAX-WEIGHT 9500lbs) (MISSION (THE-RELATION 'TRANSPORT 1)) (NAME "Iroquois") (PASSENGER-CAPACITY 12)
       (ROTOR-DIAMETER 48.4ft) (WIDTH 9.5)))
(TELL (:ABOUT HH-3E ROTARY-WING-AIRCRAFT (CEILING 12000ft) (COST 5400000) (CREW-SIZE 4) (DESIGNATION 'HH-3E)
       (DOCUMENTATION "The HH-3E, the Jolly Green Giant, is a twin-engine, 
heavy-lift helicopter. It is used for search and recovery of personnel and 
aerospace hardware in support of global air and space operations. 
It is also used for combat and special operations. ")
       (ENGINE-COUNT 2) (ENGINE-TYPE T58-GE-5) (HEIGHT 18ft) (IN-SERVICE 1966) (LENGTH 72ft) (MADE-BY SIKORSKY)
       (MAX-RANGE 600miles) (MAX-SPEED 164mph) (MAX-WEIGHT 22050lbs) (MISSION (THE-RELATION 'SAR 1))
       (MISSION (THE-RELATION 'TRANSPORT 1)) (MISSION (THE-RELATION 'SPECIAL-OPERATIONS 1))
       (NAME "Jolly Green Giant") (PASSENGER-CAPACITY 25) (PAYLOAD 5000lbs) (ROTOR-DIAMETER 62ft)))
(TELL (:ABOUT HUGHES MANUFACTURER (MANUFACTURES AIM-120)))
(TELL (:ABOUT J52-P8B TURBOFAN-ENGINE (ENGINE-USED-BY A-6) (MADE-BY PRATT-&-WHITNEY) (THRUST 41368.46N)))
(TELL (:ABOUT JT8D-7 TURBOFAN-ENGINE (ENGINE-USED-BY C-22) (MADE-BY PRATT-&-WHITNEY) (THRUST 62275.1N)))
(TELL (:ABOUT JT8D-9A TURBOFAN-ENGINE (ENGINE-USED-BY C-9) (MADE-BY PRATT-&-WHITNEY) (THRUST 64499.215N)))
(TELL (:ABOUT LEARJET MANUFACTURER (MANUFACTURES C-21)))
(TELL (:ABOUT LOCKHEED-MARTIN MANUFACTURER (MANUFACTURES C-130) (MANUFACTURES C-141) (MANUFACTURES C-5)
       (MANUFACTURES F-117)))
(TELL (:ABOUT LYCOMING MANUFACTURER (MANUFACTURES T-53-L-13B)))
(TELL (:ABOUT MCDONNEL-DOUGLAS (MANUFACTURES C-17)))
(TELL (:ABOUT MCDONNELL-DOUGLAS MANUFACTURER (MANUFACTURES AGM-84) (MANUFACTURES C-9) (MANUFACTURES CF-18)
       (MANUFACTURES F-15)))
(TELL (:ABOUT MH-53J ROTARY-WING-AIRCRAFT (CEILING 16000ft) (COST 25000000) (CREW-SIZE 6) (DESIGNATION 'MH-53J)
       (DOCUMENTATION "The MH-53J's mission is to perform low-level, 
long-range, undetected penetration into denied areas, day or night, in
adverse weather, for infiltration, exfiltration and resupply of special 
operations forces.  The MH-53J heavy-lift helicopter is the largest and 
most powerful helicopter in the Air Force inventory, and the most 
technologically advanced helicopter in the world.")
       (ENGINE-COUNT 2) (ENGINE-TYPE T64-GE-100) (HEIGHT 25ft) (IN-SERVICE 1981) (LENGTH 92ft) (MADE-BY SIKORSKY)
       (MAX-RANGE 630miles) (MAX-SPEED 164mph) (MAX-WEIGHT 46000lbs) (MISSION (THE-RELATION 'TRANSPORT 1))
       (MISSION (THE-RELATION 'SPECIAL-OPERATIONS 1)) (NAME "Pave Low") (NAME "Pave Low III")
       (PASSENGER-CAPACITY 38) (PAYLOAD 20000lbs) (ROTOR-DIAMETER 72ft)
       (HTML-IMAGE "images/aircraft/MH-53J-ac.gif")))
(TELL (:ABOUT MK82 BOMB (CARRIED-BY A-10) (CARRIED-BY A-6) (CARRIED-BY B-52) (CARRIED-BY CF-18) (CARRIED-BY F-111)
       (CARRIED-BY F-117) (CARRIED-BY F-16) (DESIGNATION 'MK-82) (MAX-WEIGHT 500lbs) (NAME "500lb bomb")
       (TARGET-TYPE (THE-RELATION 'GROUND-UNIT 1))))
(TELL (:ABOUT MK84 BOMB (CARRIED-BY A-10) (CARRIED-BY A-6) (CARRIED-BY B-52) (CARRIED-BY CF-18) (CARRIED-BY F-111)
       (CARRIED-BY F-117) (CARRIED-BY F-16) (DESIGNATION 'MK-84) (MAX-WEIGHT 2000lbs) (NAME "2000lb bomb")
       (TARGET-TYPE (THE-RELATION 'GROUND-UNIT 1))))
(TELL (:ABOUT NAVAL-WEAPONS-CENTER MILITARY-ORGANIZATION MANUFACTURER (MANUFACTURES AIM-9M)))
(TELL (:ABOUT NORTHRUP MANUFACTURER (MANUFACTURES B-2)))
(TELL (:ABOUT PRATT-&-WHITNEY MANUFACTURER (MANUFACTURES F100-PW-100) (MANUFACTURES F117-PW-100)
       (MANUFACTURES J52-P8B) (MANUFACTURES JT8D-7) (MANUFACTURES JT8D-9A) (MANUFACTURES TF33-P-7)
       (MANUFACTURES TF-30-P-8109) (MANUFACTURES TF33-PW-100A) (MANUFACTURES TF-33-P-3/103)))
(TELL (:ABOUT RAYTHEON MANUFACTURER (MANUFACTURES AIM-120) (MANUFACTURES AIM-7M)))
(TELL (:ABOUT ROCKWELL MANUFACTURER (MANUFACTURES AGM-130) (MANUFACTURES B-1)))
(TELL (:ABOUT ROLLS-ROYCE MANUFACTURER (MANUFACTURES SPEY-MK511-8)))
(TELL (:ABOUT SIKORSKY MANUFACTURER (MANUFACTURES HH-3E) (MANUFACTURES MH-53J)))
(TELL (:ABOUT SPEY-MK511-8 TURBOFAN-ENGINE (ENGINE-USED-BY C-20) (MADE-BY ROLLS-ROYCE) (THRUST 50709.727N)))
(TELL (:ABOUT T-53-L-13B TURBOSHAFT-ENGINE (ENGINE-USED-BY HH-1) (MADE-BY LYCOMING) (SHAFT-HORSEPOWER 1400shp)))
(TELL (:ABOUT T56-A-15 TURBOPROP-ENGINE (MADE-BY ALLISON) (ENGINE-USED-BY C-130) (HORSEPOWER 4300hp)))
(TELL (:ABOUT T58-GE-5 ENGINE (MADE-BY GE) (ENGINE-USED-BY HH-3E) (THRUST 6672.3325N)))
(TELL (:ABOUT T64-GE-100 ENGINE (MADE-BY GE) (ENGINE-USED-BY MH-53J) (SHAFT-HORSEPOWER 4330shp)))
(TELL (:ABOUT TEXAS-INSTRUMENTS MANUFACTURER (MANUFACTURES AGM-88)))
(TELL (:ABOUT TF-30-P-8109 TURBOFAN-ENGINE AFTERBURNING-ENGINE (ENGINE-USED-BY EF-111) (MADE-BY PRATT-&-WHITNEY)
       (THRUST 93412.66N)))
(TELL (:ABOUT TF-33-P-3/103 TURBOFAN-ENGINE (ENGINE-USED-BY B-52) (MADE-BY PRATT-&-WHITNEY) (THRUST 75619.766N)))
(TELL (:ABOUT TF33-P-7 TURBOFAN-ENGINE (ENGINE-USED-BY C-141) (MADE-BY PRATT-&-WHITNEY) (THRUST 90076.484N)))
(TELL (:ABOUT TF33-PW-100A TURBOFAN-ENGINE (ENGINE-USED-BY E-3) (MADE-BY PRATT-&-WHITNEY) (THRUST 93412.66N)))
(TELL (:ABOUT TF34-GE-100 TURBOFAN-ENGINE (ENGINE-USED-BY A-10) (MADE-BY GE) (THRUST 40323.13N)))
(TELL (:ABOUT TF39-GE-1C TURBOFAN-ENGINE (ENGINE-USED-BY C-5) (MADE-BY GE) (THRUST 182377.08N)))
(TELL (:ABOUT TFE-731-2-2B TURBOFAN-ENGINE (ENGINE-USED-BY C-21) (MADE-BY GARRETT) (THRUST 15568.775N)))
(TELL (:ABOUT US-ANG MILITARY-ORGANIZATION AIR-ORGANIZATION))
(TELL (:ABOUT US-NAVY MILITARY-ORGANIZATION AIR-ORGANIZATION))
(TELL (:ABOUT USAF MILITARY-ORGANIZATION AIR-ORGANIZATION))
(TELL (:ABOUT USAF-RESERVE MILITARY-ORGANIZATION AIR-ORGANIZATION))


(TELL (:ABOUT CALIBER (OUTPUT-UNIT "mm")))
(TELL (:ABOUT CEILING (OUTPUT-UNIT "ft")))
(TELL (:ABOUT COST (VALUE-FORMAT-STRING "$~:D")))
(TELL (:ABOUT DIAMETER WIDTH-RELATION (OUTPUT-UNIT "ft")))
(TELL (:ABOUT FUEL-CAPACITY (OUTPUT-UNIT "gal")))
(TELL (:ABOUT HEIGHT (OUTPUT-UNIT "ft")))
(TELL (:ABOUT HORSEPOWER (OUTPUT-UNIT "hp")))
(TELL (:ABOUT LANDING-DISTANCE (OUTPUT-UNIT "ft")))
(TELL (:ABOUT LENGTH (OUTPUT-UNIT "ft")))
(TELL (:ABOUT MAX-RANGE (OUTPUT-UNIT "miles")))
(TELL (:ABOUT MAX-SPEED (OUTPUT-UNIT "mph")))
(TELL (:ABOUT MAX-WEIGHT (OUTPUT-UNIT "lbs")))
(TELL (:ABOUT MAX-WIDTH (OUTPUT-UNIT "ft")))
(TELL (:ABOUT NORMAL-RANGE (OUTPUT-UNIT "miles")))
(TELL (:ABOUT PAYLOAD (OUTPUT-UNIT "lb")))
(TELL (:ABOUT ROTOR-DIAMETER WIDTH-RELATION (OUTPUT-UNIT "ft")))
(TELL (:ABOUT SHAFT-HORSEPOWER (OUTPUT-UNIT "shp")))
(TELL (:ABOUT TAKE-OFF-DISTANCE (OUTPUT-UNIT "ft")))
(TELL (:ABOUT THRUST (OUTPUT-UNIT "lbf")))
(TELL (:ABOUT WIDTH (OUTPUT-UNIT "ft")))
(TELL (:ABOUT WINGSPAN WIDTH-RELATION (OUTPUT-UNIT "ft")))
(TELL (:ABOUT AIR-SUPERIORITY COMBAT-MISSION))
(TELL (:ABOUT AIRCRAFT (ATTACKED-BY 20MM-VULCAN) (ATTACKED-BY AIM-120) (ATTACKED-BY AIM-7M) (ATTACKED-BY AIM-9M)))
(TELL (:ABOUT CLOSE-AIR-SUPPORT COMBAT-MISSION))
(TELL (:ABOUT COMBAT-MISSION MISSION))
(TELL (:ABOUT COMMAND NON-COMBAT-MISSION))
(TELL (:ABOUT ELECTRONIC-WARFARE COMBAT-MISSION))
(TELL (:ABOUT EVACUATION TRANSPORTING NON-COMBAT-MISSION))
(TELL (:ABOUT GROUND-UNIT (ATTACKED-BY 20MM-VULCAN) (ATTACKED-BY 30MM-GAU) (ATTACKED-BY AGM-130)
       (ATTACKED-BY AGM-62) (ATTACKED-BY AGM-65) (ATTACKED-BY AGM-88) (ATTACKED-BY MK82) (ATTACKED-BY MK84)))
(TELL (:ABOUT INTERCEPTION COMBAT-MISSION))
(TELL (:ABOUT INTERDICTION COMBAT-MISSION))
(TELL (:ABOUT NAVAL-UNIT (ATTACKED-BY AGM-84)))
(TELL (:ABOUT NON-COMBAT-MISSION MISSION))
(TELL (:ABOUT RECONNAISSANCE NON-COMBAT-MISSION))
(TELL (:ABOUT SAR NON-COMBAT-MISSION))
(TELL (:ABOUT SUPPRESSION-OF-ENEMY-AIR-DEFENSE COMBAT-MISSION))
(TELL (:ABOUT SPECIAL-OPERATIONS COMBAT-MISSION))
(TELL (:ABOUT STRATEGIC-BOMBING COMBAT-MISSION))
(TELL (:ABOUT STRIKE COMBAT-MISSION))
(TELL (:ABOUT SURVEILLANCE NON-COMBAT-MISSION))
(TELL (:ABOUT TRANSPORTING NON-COMBAT-MISSION))
(TELL (FLEET-SIZE C-130 USAF 98))
(TELL (FLEET-SIZE C-130 USAF-RESERVE 606))
(TELL (FLEET-SIZE C-130 US-ANG 173))
(TELL (FLEET-SIZE C-141 USAF 241))
(TELL (FLEET-SIZE C-141 USAF-RESERVE 12))
(TELL (FLEET-SIZE C-141 US-ANG 16))
(TELL (FLEET-SIZE C-5 USAF 70))
(TELL (FLEET-SIZE C-5 USAF-RESERVE 28))
(TELL (FLEET-SIZE C-5 US-ANG 11))
(TELL (FLEET-SIZE C-20 USAF 10))
(TELL (FLEET-SIZE C-21 USAF 70))
(TELL (FLEET-SIZE C-21 US-ANG 4))
(TELL (FLEET-SIZE C-22 US-ANG 4))
(TELL (FLEET-SIZE C-9 USAF 10))
(TELL (FLEET-SIZE F-15 USAF 403))
(TELL (FLEET-SIZE F-15 US-ANG 126))
(TELL (FLEET-SIZE F-111 USAF 225))
(TELL (FLEET-SIZE EF-111 USAF 40))
(TELL (FLEET-SIZE F-16 USAF 804))
(TELL (FLEET-SIZE F-16 USAF-RESERVE 150))
(TELL (FLEET-SIZE F-16 US-ANG 634))
(TELL (FLEET-SIZE CF-18 CANADIAN-AF 86))
(TELL (FLEET-SIZE F-117 USAF 56))
(TELL (FLEET-SIZE HH-3E USAF 12))
(TELL (FLEET-SIZE MH-53J USAF 41))
(TELL (FLEET-SIZE HH-1 USAF 25))
(TELL (FLEET-SIZE E-3 USAF 29))
(TELL (FLEET-SIZE B-52 USAF 84))
(TELL (FLEET-SIZE B-1 USAF 94))
(TELL (FLEET-SIZE B-2 USAF 20))
(TELL (FLEET-SIZE A-10 USAF 72))
(TELL (FLEET-SIZE A-10 USAF-RESERVE 87))
(TELL (FLEET-SIZE A-10 US-ANG 84))

;;; Facet Assertions:

;;; Context Assertions:


(TELL (DOCUMENTATION (THE-CONTEXT 'AIRCRAFT) "Information in this theory is derived from publicly available
sources, principally the United States Air Force and Navy Fact Sheets.
Images are from the US Air Force, US Navy and other on-line sources."))
(TELL (HTML-IMAGE (THE-CONTEXT 'AIRCRAFT) "images/aircraft/F-16-shoot-ac.gif"))

;;;  END OF DATA

(creation-policy savedCreationPolicy)
(eval-when #+:CLTL2 (:EXECUTE :LOAD-TOPLEVEL :COMPILE-TOPLEVEL)
          #-:CLTL2(LOAD EVAL COMPILE)

(change-context savedContext))

#+(or :loom3 :loom4) (setq loom::*automatically-advance-state-p* savedAutoAdvance)
(apply #'set-features savedLoomFeatures)