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

Commits:

• 087eb17f
  by Raymond Toy at 2025-02-21T17:54:57-08:00

  Fix a typo and use exported symbols
  
  Fix a typo in a comment in os_temp_path.
  
  `with-temporary-stream` is an exported symbol, so just use "ext:"
  insteadof "ext::".
  
  [SKIP-CI]
  

2 changed files:

• src/lisp/os-common.c
• tests/trac.lisp

Changes:

  * returned, such a location could not be found or some other error

  * happened.

  *

- * Caller must call free(0 on the string returned.

+ * Caller must call free() on the string returned.

  */

 char *

 os_temp_path()

 (define-test trac.36

   (:tag :trac)

   (flet ((bug (&optional (format :utf16))

-	   (ext::with-temporary-stream (s :direction :io :external-format format)

+	   (ext:with-temporary-stream (s :direction :io :external-format format)

 	     (format s "Hello~%")

-	     (format t "posn = ~A~%" (file-position s))

 	     (file-position s 0)

 	     (let ((ch (read-char s)))

 	       (values ch (file-position s))))))