;;; TODO make this runnable (when (> measured limit) (let ((error (round (* (- measured limit) 100) limit))) (unless (if (interactive-stream-p *query-io*) (yes-or-no-p "The frammis is out of tolerance by ~D%.~@ Is it safe to proceed? " error) (< error 15)) ; 15% is acceptable (
"The frammis is out of tolerance by ~D%." error)))
Should signal an error of type type-error if stream is not a stream.