anchor.diff:  (pushnew '("text" . "html") drakma:*text-content-types*)
   
   (defvar *classes*)
  -(defparameter *cookie-jar*
  -  (make-instance 'drakma:cookie-jar
  -                 :cookies (list
  -			   (make-instance 'drakma:cookie
  -					  :name "schoolname"
  -					  :value "\"_V2luZGVzaGVpbQ==\""
  -					  :domain "roosters.windesheim.nl"))))
   
   (local-time:define-timezone 
       amsterdam 
  
positive.code:   "Returns the schedule of the class with the supplied id at the specified
     date. If no date is specified the server will use the current date"
    (caramel:html-resource
     (request-url (raw-url id date))))
  
  (defun class-id (name)
    "Returns the id associated with the class name. Also returns as a second
  
negative.code: (defun refresh-classes ()
    "sets *classes* to an alist of (classname . classid) pairs"
    (let ((json (st-json:read-json 
  	       (drakma:http-request *base-url*))))
      (setf *classes*
  	  (mapcar #'(lambda (item)
  		      (cons (st-json:getjso "name" item)
  