;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))

(in-package :snow)

(defclass awx ()
  ((username :initarg :username
             :initform nil
             :accessor username)
   (password :initarg :password
             :initform nil
             :accessor password)
   (client-id :initarg :client-id
              :initform nil
              :accessor client-id)
   (secret-key :initarg :secret-key
               :initform nil
               :accessor secret-key)
   (baseurl :initarg :baseurl
            :initform nil
            :accessor baseurl)
   (token :initarg :token
          :initform nil
          :accessor token)
   (scope :initarg :scope
          :initform "read"
          :accessor scope))
  (:documentation ""))