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