Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl Commits: cc969535 by Raymond Toy at 2025-11-07T10:53:07-08:00 Really remove WITH-TEMPORARY-STREAM Forgot to remove `with-temporary-stream` from exports.lisp an pprint.lisp. Remove the test from trac.lisp and use the `with-temporary-file` version instead. - - - - - 3 changed files: - src/code/exports.lisp - src/code/pprint.lisp - tests/trac.lisp Changes: ===================================== src/code/exports.lisp ===================================== @@ -1213,8 +1213,7 @@ "INVALID-FASL" "WITH-TEMPORARY-DIRECTORY" - "WITH-TEMPORARY-FILE" - "WITH-TEMPORARY-STREAM") + "WITH-TEMPORARY-FILE") ;; gencgc features #+gencgc (:export "GET-GC-ASSERTIONS" ===================================== src/code/pprint.lisp ===================================== @@ -2093,7 +2093,6 @@ When annotations are present, invoke them at the right positions." (c:defoptimizer pprint-defun) (ext:with-float-traps-masked pprint-with-like) (ext:with-float-traps-enabled pprint-with-like) - (ext::with-temporary-stream pprint-with-like) (ext::with-temporary-directory pprint-with-like))) (defun pprint-init () ===================================== tests/trac.lisp ===================================== @@ -175,7 +175,6 @@ (let ((p0* (file-position stream))) (eql p0* p0))))))))) -#+nil (define-test trac.43 (:tag :trac) (assert-true @@ -193,19 +192,6 @@ (let ((p0* (file-position stream))) (eql p0* p0))))))) -(define-test trac.43 - (:tag :trac) - (assert-true - (ext:with-temporary-stream (stream :direction :io :external-format :utf-8) - (dotimes (i 1000) - (write-char (code-char #x1234) stream)) - (file-position stream 0) - (let ((p0 (file-position stream)) - (ch (read-char stream))) - (unread-char ch stream) - (let ((p0* (file-position stream))) - (eql p0* p0)))))) - (define-test trac.50 (:tag :trac) (assert-equal "#P(:DIRECTORY (:ABSOLUTE \"tmp\" \"\" \"a\" \"\" \"b\"))" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cc969535d9f546a5ab79b773... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cc969535d9f546a5ab79b773... You're receiving this email because of your account on gitlab.common-lisp.net.