anchor.diff:                                       :test #'string=))))
   
   (defmethod libtest ((library-name (eql :alexandria)))
  -
  -; We keep the below hardcoded failure in case we want to test
  -; the ECL 11.1.1 release (until new release is out).
  -; It is commented out or uncommented depending on what
  -; ECL release we are going to test.
  -
  -  ;; #+ecl
  -  ;; (progn
  -  ;;   (format t "ECL 11.1.1 has bug causing a stack overflow on alexandria tests. http://sourceforge.net/tracker/?func=detail&aid=3463131&group_id=30035&atid=398053~%")
  -  ;;   (return-from libtest :fail))
   
     ;; The test framework used: rt.
     (clean-rt #+sbcl :sb-rt #-sbcl :rtest)
  
positive.code:   (when (is-windows)
      (format t "The external-program test suite uses unix shell commands, like cd, which, and therefor can not be tested on Windows.")
      (return-from libtest :no-resource))
  
    #+ecl
    (progn
      (format t "external-program test suite hangs on ECL (as of ecl-11.1.1-606449eb-linux-x86, Quicklisp 2012-03-07 (external-program-20111001-git)~%")
      (format t "Returning hardcoded :FAIL~%")
      (return-from libtest :fail))
  
    (ql:quickload :external-program)
    (ql:quickload :external-program-test)
  
negative.code: 
  (defmethod libtest ((library-name (eql :usocket)))
  
    ;; The test framework used: rt.
    (clean-rt)
    (asdf:clear-system :usocket-test)
  
    (quicklisp:quickload :usocket-test)
  
  