(defun diff-strings-bad1 (string1 string2)
  (uiop:with-temporary-file (:stream stream1 :pathname path1 :directory "/tmp")
    (princ string1 stream1)
    :close-stream
    (uiop:with-temporary-file (:stream stream2 :pathname path2 :directory "/tmp")
      (princ string2 stream2)
      :close-stream
      (let ((fullpath (list "/usr/bin/diff" "-wB" (uiop:native-namestring path1) (uiop:native-namestring path2))))
        (uiop:run-program fullpath
                          :output :string
                          :ignore-error-status t)))))