X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-md5%2Fsb-md5.asd;h=6eb49be63c42f99fda30846f5e0b5682eeca50a2;hb=47fe7f5b227bba5964d5dd4d2a93d9e4b1d1502e;hp=4144bf0237cdf6498fd2611bc1c3284673eb3d32;hpb=6ffb09605de7f990332aee146d8f69ba4cc907c9;p=sbcl.git

diff --git a/contrib/sb-md5/sb-md5.asd b/contrib/sb-md5/sb-md5.asd
index 4144bf0..6eb49be 100644
--- a/contrib/sb-md5/sb-md5.asd
+++ b/contrib/sb-md5/sb-md5.asd
@@ -1,6 +1,6 @@
 ;;; -*-  Lisp -*-
 
-(defpackage #:sb-md5-system 
+(defpackage #:sb-md5-system
   (:use #:cl #:asdf))
 
 (in-package #:sb-md5-system)
@@ -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))))
@@ -27,4 +27,3 @@
 (defmethod perform ((o test-op) (c (eql (find-system :sb-md5-tests))))
   (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
       (error "test-op failed")))
-			    
\ No newline at end of file