gistfile1.clj

(defstruct type
  :code
  :incident
  :description
  :points)


(def types
     {:t (struct type
                  "T"
                  "Tardy"
                  "Clocking in 1-5 minutes after the start of your shift"
                  0.25)
      :la1 (struct type
                   "LA1"
                   "Late 1"
                   "Clocking in more than 5 minutes to 60 minutes after the start of your shift"
                   0.50)
      :la2 (struct type
                   "LA2"
                   "Late 2"
                   "Clocking in more than 60 minutes after to 1⁄2 of your scheduled shift"
                   0.75)
      :ab (struct type
                  "AB"
                  "Weekday Absense"
                  "Calling out for a Monday-Thursday shift or not working at least 1⁄2 of your scheduled shift"
                  1.00)
      :le0 (struct type
                   "LE0"
                   "Left Early 0"
                   "Leaving early after having completed at least 1⁄2 of your scheduled shift"
                   0.75)})

(comment
;;error
Debugger entered--Lisp error: (error "Coding system iso-latin-1-unix not suitable for \"00043f(:emacs-rex (swank:interactive-eval \\\"(def types
     {:t (struct type
                  \\\\\\\"T\\\\\\\"
                  \\\\\\\"Tardy\\\\\\\"
                  \\\\\\\"Clocking in 1-5 minutes after the start of your shift\\\\\\\"
                  0.25)
      :la1 (struct type
                   \\\\\\\"LA1\\\\\\\"
                   \\\\\\\"Late 1\\\\\\\"
                   \\\\\\\"Clocking in more than 5 minutes to 60 minutes after the start of your shift\\\\\\\"
                   0.50)
      :la2 (struct type
                   \\\\\\\"LA2\\\\\\\"
                   \\\\\\\"Late 2\\\\\\\"
                   \\\\\\\"Clocking in more than 60 minutes after to 1\x539c4\ 2 of your scheduled shift\\\\\\\"
                   0.75)
      :ab (struct type
                  \\\\\\\"AB\\\\\\\"
                  \\\\\\\"Weekday Absense\\\\\\\"
                  \\\\\\\"Calling out for a Monday-Thursday shift or not working at least 1\x539c4\ 2 of your scheduled shift\\\\\\\"
                  1.00)
      :le0 (struct type
                   \\\\\\\"LE0\\\\\\\"
                   \\\\\\\"Left Early 0\\\\\\\"
                   \\\\\\\"Leaving early after having completed at least 1\x539c4\ 2 of your scheduled shift\\\\\\\"
                   0.75)})\\\") \\\"attendance.data\\\" t 10)
\"")
  signal(error ("Coding system iso-latin-1-unix not suitable for \"00043f(:emacs-rex (swank:interactive-eval \\\"(def types\n     {:t (struct type\n       $
  error("Coding system %s not suitable for %S" iso-latin-1-unix "00043f(:emacs-rex (swank:interactive-eval \"(def types\n     {:t (struct type\n           $
  slime-net-send((:emacs-rex (swank:interactive-eval "(def types\n     {:t (struct type\n                  \"T\"\n                  \"Tardy\"\n            $
  slime-send((:emacs-rex (swank:interactive-eval "(def types\n     {:t (struct type\n                  \"T\"\n                  \"Tardy\"\n                $
  slime-dispatch-event((:emacs-rex (swank:interactive-eval "(def types\n     {:t (struct type\n                  \"T\"\n                  \"Tardy\"\n      $
  slime-eval-with-transcript((swank:interactive-eval "(def types\n     {:t (struct type\n                  \"T\"\n                  \"Tardy\"\n            $
  slime-interactive-eval("(def types\n     {:t (struct type\n                  \"T\"\n                  \"Tardy\"\n                  \"Clocking in 1-5 minu$
  slime-eval-last-expression()
  call-interactively(slime-eval-last-expression)


)