1.0.39.20: more asdf logical pathname cleanup

[sbcl.git] / contrib / sb-rotate-byte / sb-rotate-byte.asd

diff --git a/contrib/sb-rotate-byte/sb-rotate-byte.asd b/contrib/sb-rotate-byte/sb-rotate-byte.asd
index a40834c..908392d 100644 (file)
--- a/contrib/sb-rotate-byte/sb-rotate-byte.asd
+++ b/contrib/sb-rotate-byte/sb-rotate-byte.asd
@@ -7,7 +7,7 @@
 (defsystem sb-rotate-byte
   :version "0.1"
   #+sb-building-contrib :pathname
-  #+sb-building-contrib #.(logical-pathname "SYS:CONTRIB;SB-ROTATE-BYTE;")
+  #+sb-building-contrib #p"SYS:CONTRIB;SB-ROTATE-BYTE;"
   :components
   ((:file "package")
    (:file "compiler" :depends-on ("package"))
@@ -21,7 +21,7 @@
              (:file "ppc-vm"
                     :in-order-to ((compile-op (feature :ppc)))))
             :pathname
-            #+sb-building-contrib #.(logical-pathname "SYS:CONTRIB;SB-ROTATE-BYTE;")
+            #+sb-building-contrib #p"SYS:CONTRIB;SB-ROTATE-BYTE;"
             #-sb-building-contrib #.(make-pathname :directory '(:relative))
             :if-component-dep-fails :ignore)
    (:file "rotate-byte" :depends-on ("compiler"))))