(defmodule TRIP (export deftemplate trips) (import FISH deftemplate menu) (import WEATHER deftemplate acceptable_condition)) (deftemplate TRIP::all_trips (slot location ) (slot method) (multislot species) (slot desireability) (slot check (type INTEGER)) ) (deftemplate TRIP::table (slot location) (slot method) ) (deftemplate TRIP::trips (slot location ) (slot method) (multislot species) (slot desireability) ) (deftemplate TRIP::spec_tmp (multislot spec) ) (deftemplate TRIP::print_report (slot value) ) (deffacts TRIP::inital (spec_tmp) (sum 0) (print_report (value off)) )