anchor.diff:  (let ((*random-state* (make-random-state t))
         (*init-buffer-size* 4))
     (fiveam:test basic-read/write
  -    "Basic read/write operations on buffers."
  +    "Test of basic read/write operations on buffers."
       (let ((buffer (make-buffer)))
         (fiveam:is (= *init-buffer-size*
                       (length (buffer-bytes buffer))))
  -      ;; dirty read/write
  +      ;; dirty cases
         (fiveam:signals empty-buffer-error
           (buffer-read-char buffer))
         (fiveam:signals empty-buffer-error
  
positive.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  ;; TODO : seq-read/write, string-read/write
  
  
negative.code:                                                 (invoke-restart 'use-value
                                                                  'any-value))))
                                    (buffer-read-float buffer))))
        ;; clean cases
        (fiveam:for-all ((ch (fiveam:gen-character :code-limit
                                                   *test-char-code-limit*))
                         (int (fiveam:gen-integer))
  