anchor.diff:                (truename run-dir))
         (format t "~%Submitting libraries test logs to the online blobstore...~%")
         (handler-case 
  -          (let ((run-with-blobkeys (submit-logs run-dir)))          
  +          (progn
  +            (setf run (submit-logs run-dir))
               (format t "The log files are successfully uploaded to the online blobstore.
    
    Please submit the test run results file 
  
positive.code: 
  (defgeneric libtest (library-name)
    (:documentation "Define a method for this function
  with LIBRARY-NAME eql-specialize for for every library added 
  to the test grid.
  
  The method should run test suite and return the resulting
  
negative.code:          (*standard-output* buf)
           (*error-output* buf))
  
      (format orig-std-out 
              "Running tests for library ~A. *STANDARD-OUTPUT* and *ERROR-OUTPUT* are redirected.~%"
              lib)
      (finish-output orig-std-out)
      
  