1.0.39.20: more asdf logical pathname cleanup

 * use #p"..." for logical pathnames instead of 1) just "" or
   #.(logical-pathname "...")

diff --git a/contrib/asdf-install/asdf-install.asd b/contrib/asdf-install/asdf-install.asd
index 1795efc..26c2b39 100644 (file)
--- a/contrib/asdf-install/asdf-install.asd
+++ b/contrib/asdf-install/asdf-install.asd
@@ -9,7 +9,7 @@
   :depends-on (sb-posix sb-bsd-sockets)
   :version "0.2"
   #+sb-building-contrib :pathname
-  #+sb-building-contrib "SYS:CONTRIB;ASDF-INSTALL;"
+  #+sb-building-contrib #p"SYS:CONTRIB;ASDF-INSTALL;"
   :components ((:file "defpackage")
                (:file "installer" :depends-on ("defpackage"))))
 

diff --git a/contrib/sb-aclrepl/sb-aclrepl.asd b/contrib/sb-aclrepl/sb-aclrepl.asd
index 4fbae1d..9c31663 100644 (file)
--- a/contrib/sb-aclrepl/sb-aclrepl.asd
+++ b/contrib/sb-aclrepl/sb-aclrepl.asd
@@ -7,7 +7,7 @@
     :author "Kevin Rosenberg <kevin@rosenberg.net>"
     :description "An AllegroCL compatible REPL"
     #+sb-building-contrib :pathname
-    #+sb-building-contrib "SYS:CONTRIB;SB-ACLREPL;"
+    #+sb-building-contrib #p"SYS:CONTRIB;SB-ACLREPL;"
     :components ((:file "toplevel")
                  (:file "repl" :depends-on ("toplevel"))
                  (:file "inspect" :depends-on ("repl"))

diff --git a/contrib/sb-bsd-sockets/sb-bsd-sockets.asd b/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
index 90ecde9..1163cbd 100644 (file)
--- a/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
+++ b/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
@@ -8,7 +8,7 @@
     :version "0.58"
     :depends-on (sb-grovel)
     #+sb-building-contrib :pathname
-    #+sb-building-contrib "SYS:CONTRIB;SB-BSD-SOCKETS;"
+    #+sb-building-contrib #p"SYS:CONTRIB;SB-BSD-SOCKETS;"
     :components ((:file "defpackage")
                  (:file "split" :depends-on ("defpackage"))
                  #+win32

diff --git a/contrib/sb-cltl2/sb-cltl2.asd b/contrib/sb-cltl2/sb-cltl2.asd
index a4cb89b..5e2a5ec 100644 (file)
--- a/contrib/sb-cltl2/sb-cltl2.asd
+++ b/contrib/sb-cltl2/sb-cltl2.asd
@@ -6,7 +6,7 @@
 (defsystem sb-cltl2
     :description "Functionality mentioned in CLtL2 but not present in ANSI."
     #+sb-building-contrib :pathname
-    #+sb-building-contrib "SYS:CONTRIB;SB-CLTL2;"
+    #+sb-building-contrib #p"SYS:CONTRIB;SB-CLTL2;"
     :components ((:file "defpackage")
                  (:file "compiler-let" :depends-on ("defpackage"))
                  (:file "macroexpand" :depends-on ("defpackage"))

diff --git a/contrib/sb-cover/sb-cover.asd b/contrib/sb-cover/sb-cover.asd
index b8009a6..e98dee2 100644 (file)
--- a/contrib/sb-cover/sb-cover.asd
+++ b/contrib/sb-cover/sb-cover.asd
@@ -2,7 +2,7 @@
 
 (defsystem sb-cover
     #+sb-building-contrib :pathname
-    #+sb-building-contrib "SYS:CONTRIB;SB-COVER;"
+    #+sb-building-contrib #p"SYS:CONTRIB;SB-COVER;"
     :depends-on (sb-md5)
     :components ((:file "cover")))
 

diff --git a/contrib/sb-grovel/sb-grovel.asd b/contrib/sb-grovel/sb-grovel.asd
index f34712f..864671f 100644 (file)
--- a/contrib/sb-grovel/sb-grovel.asd
+++ b/contrib/sb-grovel/sb-grovel.asd
@@ -6,7 +6,7 @@
 (defsystem sb-grovel
     :version "0.01"
     #+sb-building-contrib :pathname
-    #+sb-building-contrib "SYS:CONTRIB;SB-GROVEL;"
+    #+sb-building-contrib #p"SYS:CONTRIB;SB-GROVEL;"
     :components ((:file "defpackage")
                  (:file "def-to-lisp" :depends-on ("defpackage"))
                  (:file "foreign-glue" :depends-on ("defpackage"))))

diff --git a/contrib/sb-md5/sb-md5.asd b/contrib/sb-md5/sb-md5.asd
index d2abb96..6eb49be 100644 (file)
--- a/contrib/sb-md5/sb-md5.asd
+++ b/contrib/sb-md5/sb-md5.asd
@@ -9,7 +9,7 @@
   :depends-on (sb-rotate-byte)
   :version "1.8"
   #+sb-building-contrib :pathname
-  #+sb-building-contrib "SYS:CONTRIB;SB-MD5;"
+  #+sb-building-contrib #p"SYS:CONTRIB;SB-MD5;"
   :components ((:file "md5")))
 
 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-md5))))

diff --git a/contrib/sb-posix/sb-posix.asd b/contrib/sb-posix/sb-posix.asd
index 591147d..325d8f4 100644 (file)
--- a/contrib/sb-posix/sb-posix.asd
+++ b/contrib/sb-posix/sb-posix.asd
@@ -7,7 +7,7 @@
 (defsystem sb-posix
     :depends-on (sb-grovel)
     #+sb-building-contrib :pathname
-    #+sb-building-contrib "SYS:CONTRIB;SB-POSIX;"
+    #+sb-building-contrib #p"SYS:CONTRIB;SB-POSIX;"
     :components ((:file "defpackage")
                  (:file "designator" :depends-on ("defpackage"))
                  (:file "macros" :depends-on ("designator"))

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"))))

diff --git a/contrib/sb-rt/sb-rt.asd b/contrib/sb-rt/sb-rt.asd
index 9ebb1ae..6e26cfe 100644 (file)
--- a/contrib/sb-rt/sb-rt.asd
+++ b/contrib/sb-rt/sb-rt.asd
@@ -7,7 +7,7 @@
 (defsystem sb-rt
   :version "0.1.7" ; our version "0", GCL CVS version "1.7"
   #+sb-building-contrib :pathname
-  #+sb-building-contrib "SYS:CONTRIB;SB-RT;"
+  #+sb-building-contrib #p"SYS:CONTRIB;SB-RT;"
   :components ((:file "rt")))
 
 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-rt))))

diff --git a/contrib/sb-simple-streams/sb-simple-streams.asd b/contrib/sb-simple-streams/sb-simple-streams.asd
index f0860a9..3e103db 100644 (file)
--- a/contrib/sb-simple-streams/sb-simple-streams.asd
+++ b/contrib/sb-simple-streams/sb-simple-streams.asd
@@ -7,7 +7,7 @@
 (defsystem sb-simple-streams
   :depends-on (sb-bsd-sockets sb-posix)
   #+sb-building-contrib :pathname
-  #+sb-building-contrib "SYS:CONTRIB;SB-SIMPLE-STREAMS;"
+  #+sb-building-contrib #p"SYS:CONTRIB;SB-SIMPLE-STREAMS;"
   :components ((:file "package")
                (:file "fndb")
                (:file "iodefs" :depends-on ("package"))

diff --git a/version.lisp-expr b/version.lisp-expr
index cc86c5a..390078b 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.39.19"
+"1.0.39.20"