0.6.12.18:

[sbcl.git] / src / code / extensions.lisp

diff --git a/src/code/extensions.lisp b/src/code/extensions.lisp
index 4c6c4e2..7dd9b95 100644 (file)
--- a/src/code/extensions.lisp
+++ b/src/code/extensions.lisp
@@ -854,6 +854,14 @@
         (print-unreadable-object (structure ,stream :type t)
           ,@(nreverse reversed-prints))))))
 \f
+;;;; etc.
+
+;;; Given a pathname, return a corresponding physical pathname.
+(defun physicalize-pathname (possibly-logical-pathname)
+  (if (typep possibly-logical-pathname 'logical-pathname)
+      (translate-logical-pathname possibly-logical-pathname)
+      possibly-logical-pathname))
+\f
 #|
 ;;; REMOVEME when done testing byte cross-compiler
 (defun byte-compiled-foo (x y)