anchor.diff:        (format t "s-xml test suite failed with error: ~A" e)
         :fail)))
   
  +(defun is-windows ()
  +  (intersection '(:windows :win32 :win) *features*))
  +
   (defmethod libtest ((library-name (eql :iolib)))
     ;; test framework used: FiveAM
   
  -  (cond ((intersection '(:windows :win32 :win) *features*)
  -         (format t "IOLib is not implemented for Windows.")
  +  (cond ((is-windows)
  +         (format t "IOLib is not implemented for Windows.~%")
            :no-resource)
           (t
            (quicklisp:quickload :iolib-tests)
  
positive.code:   ;; The test framework used: lift.
    (ql:quickload :lift-test)
    (run-lift-test-suite (read-from-string "lift-test::lift-test")))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Utils
  
negative.code:     :arnesi         :local-time          :s-xml             :iolib
      :cl-oauth       :cl-routes           :cl-unicode        :fiveam
      :trivial-utf-8  :yason               :cl-annot          :cl-openid
      :split-sequence :cl-closure-template :cl-interpol       :lift
      :trivial-shell  :let-plus            :data-sift         :cl-num-utils
      :ieee-floats)
    "All the libraries currently supported by the test-grid.")
  
  
  