Merge branch 'gray-path' into 'develop'

Add generic PATHNAME and TRUENAME See merge request embeddable-common-lisp/ecl!320
2026-03-10 07:00:20 -07:00 · 2024-01-26 08:15:53 +00:00 · 2024-01-26 08:15:53 +00:00 · ba45731c19
commit ba45731c19
parent e851458058 47c2663955
9 changed files with 186 additions and 22 deletions
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@ -20,6 +20,7 @@
                                     (type nil type-supplied-p)
                                     (system-p nil)
                              &allow-other-keys)
+  (setf name (pathname name))
  (let* ((format '())
         (extension '()))
    (unless type-supplied-p