conditions.lisp

;; Error condition definitions
;; -------------------------

(in-package :open-vrp.util)

;; lib/lists.lisp
(define-condition unaccepted-predicate (error)
  ((pred :initarg :pred :reader pred))
  (:report "Accepts only #'> or #'<."))

(define-condition index-out-of-bounds (error)
  ((index :initarg :index :reader index)
   (ls :initarg :ls :reader ls)))

(define-condition list-of-nils (error)
  ((ls :initarg :ls :reader ls)
   (key :initarg :key :reader key))
  (:report "Cannot get min/max from a list of NIL values."))

;; lib/network.lisp
(define-condition same-origin-destination (error)
  ((from :initarg :from :reader from)
   (to :initarg :to :reader to))
  (:report "Trying to lookup distance for same origin and destination - NIL"))

;; lib/constraints.lisp
(define-condition infeasible-solution (error)
  ((sol :initarg :sol :reader sol)
   (func :initarg :func :reader func))
  (:report "The provided solution is already infeasible, cannot check for feasibility of the move."))

(define-condition no-capacities-vehicle (error)
  ((veh :initarg :veh :reader veh))
  (:report "Trying to check capacities for a vehicle that has no defined capacity."))

(define-condition no-speed-vehicle (error)
  ((veh :initarg :veh :reader veh))
  (:report "Trying to check TW constraints for a vehicle that has no defined speed."))

;; lib/network.lisp lib/fleet.lisp
(define-condition not-equal-length (error)
  ((lists :initarg :lists :reader lists))
  (:report "Trying to create objects where input lists are of unequal length!"))  

;; lib/init-macros.lisp
(define-condition empty-network (error)()
  (:report "Network is empty! To create a network requires at least one parameter!"))

;; lib/draw-solution.lisp
(define-condition missing-drawer-object (error)
  ((prob :initarg :prob :reader prob))
  (:report "Missing a <Drawer> object! Are you trying to plot without node-coords?"))

;; lib/read-test-case.lisp
(define-condition file-not-recognized (error)
  ((file :initarg :file :reader :file))
  (:report "Input file not recognized!"))