GitLab

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.

 	     "INVALID-FASL"

 	     "WITH-TEMPORARY-DIRECTORY"

-	     "WITH-TEMPORARY-FILE"

-	     "WITH-TEMPORARY-STREAM")

+	     "WITH-TEMPORARY-FILE")

   ;; gencgc features

   #+gencgc

   (:export "GET-GC-ASSERTIONS"

     (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 ()

 		(let ((p0* (file-position stream)))

 		  (eql p0* p0)))))))))

-#+nil

 (define-test trac.43

     (:tag :trac)

   (assert-true

 	 (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\"))"

Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl

Commits:

3 changed files:

Changes: