0.8.0.78.vector-nil-string.11:

[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 0451fd8..7df4f29 100644 (file)
--- a/contrib/sb-rotate-byte/sb-rotate-byte.asd
+++ b/contrib/sb-rotate-byte/sb-rotate-byte.asd
@@ -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")))