master: Remove a redundant check from unparse-physical-enough

The branch "master" has been updated in SBCL:
       via  42a948a8d8a5da41e1239ee30ecbff275706f68d (commit)
      from  61143f7eeb2fd3432e71069abced05f77885c426 (commit)

- Log -----------------------------------------------------------------
commit 42a948a8d8a5da41e1239ee30ecbff275706f68d
Author: Stas Boukarev <[email protected]>
Date:   Thu Apr 16 03:45:18 2026 +0300

    Remove a redundant check from unparse-physical-enough
    
    And add a type declaration.
---
 src/code/pathname.lisp        | 2 +-
 src/code/target-pathname.lisp | 2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/code/pathname.lisp b/src/code/pathname.lisp
index c56d60081..faf4455f4 100644
--- a/src/code/pathname.lisp
+++ b/src/code/pathname.lisp
@@ -91,4 +91,4 @@
       :unspecific
       (%pathname-host-or-device pathname)))
 
-(defun %pathname-directory (pathname) (car (%pathname-dir+hash pathname)))
+(defun %pathname-directory (pathname) (truly-the list (car (%pathname-dir+hash pathname))))
diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index bf8da9a58..f246636b0 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -216,8 +216,6 @@
                     pathname-name escape-char
                     :escape-dot (when (not pathname-type) :unless-at-start))))
         (when type-needed
-          (unless (pathname-component-present-p pathname-type)
-            (lose))
           (strings ".")
           (strings (unparse-physical-piece pathname-type
                                            escape-char :escape-dot t))))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL