[Sbcl-commits] CVS: sbcl/contrib/sb-rotate-byte sb-rotate-byte.asd,1.2,1.3

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-rotate-byte
In directory sc8-pr-cvs1:/tmp/cvs-serv14235/contrib/sb-rotate-byte

Modified Files:
	sb-rotate-byte.asd 
Log Message:
0.8alpha.0.38:
	Slight change to REQUIRE/PROVIDE protocol
	... as observed by Tony Martinez sbcl-devel 2003-05-13, REQUIRE 
		takes a string designator, so allow this
	... update to latest ASDF, which changes the asdf hook slightly 
		such that individual modules are required (ha!) to 
		PROVIDE themselves; make it so.


Index: sb-rotate-byte.asd
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-rotate-byte/sb-rotate-byte.asd,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sb-rotate-byte.asd	19 Mar 2003 13:15:46 -0000	1.2
+++ sb-rotate-byte.asd	19 May 2003 14:47:16 -0000	1.3
@@ -16,6 +16,9 @@
 			:if-component-dep-fails :ignore)
 	       (:file "rotate-byte" :depends-on ("compiler"))))
 
+(defmethod perform :after ((o load-op) (c (eql (find-system :sb-rotate-byte))))
+  (provide 'sb-rotate-byte))
+
 (defmethod perform ((o test-op) (c (eql (find-system :sb-rotate-byte))))
   (or (load (compile-file "rotate-byte-tests.lisp"))
       (error "test-op failed")))