Raymond Toy pushed to branch master at cmucl / cmucl Commits: 90bc6c63 by Raymond Toy at 2026-05-01T11:57:26-07:00 Fix indentation of docstrings for with-temporary-file/directory The docstrings for with-temporary-file and with-temporary-directory were not formatted correctly. For example, `(describe 'with-temporary-file)` shows: Macro documentation: Creates a temporary file with a name bound to Filename which a namestring. If Directory is not provided, the temporary file is created The second line should be indented by one more space. No functional changes here. - - - - - 1 changed file: - src/code/extensions.lisp Changes: ===================================== src/code/extensions.lisp ===================================== @@ -645,10 +645,10 @@ (defmacro with-temporary-file ((filename &key directory (prefix "cmucl-temp-file-")) &parse-body (forms decls)) _N"Creates a temporary file with a name bound to Filename which a - namestring. If Directory is not provided, the temporary file is created - in a OS-dependent location. The Prefix is a prefix to the file name - to be created. If not provided a default prefix is used. - On completion, the file is automatically removed." + namestring. If Directory is not provided, the temporary file is created + in a OS-dependent location. The Prefix is a prefix to the file name + to be created. If not provided a default prefix is used. + On completion, the file is automatically removed." (let ((fd (gensym "FD-")) (file-template (gensym "TEMP-PATH-")) (unique-filename (gensym "UNIQUE-FILENAME-"))) @@ -701,11 +701,11 @@ (defmacro with-temporary-directory ((dirname &key directory (prefix "cmucl-temp-dir-")) &parse-body (forms decls)) _N"Return a namestring to a temporary directory. If Directory is not - provided, the directory is created in an OS-dependent location. The - Prefix is a string that is used as a prefix for the name of the - temporary directory. If Prefix is not given, a default prefix is - used. The directory and all its contents are automatically removed - afterward." + provided, the directory is created in an OS-dependent location. The + Prefix is a string that is used as a prefix for the name of the + temporary directory. If Prefix is not given, a default prefix is + used. The directory and all its contents are automatically removed + afterward." (let ((err (gensym "ERR-")) (dir-template (gensym "DIR-TEMPLATE-"))) `(let ((,dir-template (create-template ,directory ,prefix)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/90bc6c63813e9c8d46ba8a7f... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/90bc6c63813e9c8d46ba8a7f... You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help