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

Commits:

• b3fde57b
  by Raymond Toy at 2025-02-14T14:35:56-08:00

  Append a "/" to the resulting dirname
  
  Append a "/" to make the returned string a directory.  Thus, calling
  `pathname` on the result returns a pathname that is a directory,
  instead of a (possible) directory and a pathname-name.
  

1 changed file:

• src/code/extensions.lisp

Changes:

 		(unix::unix-mkdtemp (concatenate 'string ,template

 						 "XXXXXX")))

 	      (unless ,dirname

-		(error "Unable to create temp directory: ~A"

+		(error "Unable to create temporary directory: ~A"

 		       (unix:get-unix-error-msg ,err)))

+	      (setf ,dirname (concatenate 'string ,dirname "/"))

 	      (locally ,@decls

 		,@forms))

 	 ;; Remove the temp directory and all its contents.  Is there a