X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-md5%2Fsb-md5.asd;h=6eb49be63c42f99fda30846f5e0b5682eeca50a2;hb=3db292921fabecad0ba8107097d763ba2a044136;hp=41392476942240d6297d2a47277b1d8498978b2d;hpb=4f4a1695fa74e2becf1fb87110132ad4943fac61;p=sbcl.git

diff --git a/contrib/sb-md5/sb-md5.asd b/contrib/sb-md5/sb-md5.asd
index 4139247..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)
@@ -8,6 +8,8 @@
 (defsystem sb-md5
   :depends-on (sb-rotate-byte)
   :version "1.8"
+  #+sb-building-contrib :pathname
+  #+sb-building-contrib #p"SYS:CONTRIB;SB-MD5;"
   :components ((:file "md5")))
 
 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-md5))))
@@ -25,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