From 7feed6c6f47e5aea3309f49694fbadf1da144d98 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 23 Oct 2015 17:06:18 +0200
Subject: [PATCH] contrib: call provide uniformly

Various contrib modules called provide with varying syntax from "module"
through 'module to '#:module. The last one is picked:

(provide '#:module)
---
 contrib/bytecmp/bytecmp.lsp          | 2 +-
 contrib/deflate/deflate.asd          | 2 +-
 contrib/deflate/deflate.lisp         | 2 ++
 contrib/ecl-cdb/ecl-cdb.lisp         | 2 +-
 contrib/ecl-curl/ecl-curl.lisp       | 2 ++
 contrib/quicklisp/ecl-quicklisp.lisp | 4 +---
 contrib/serve-event/serve-event.lisp | 2 +-
 contrib/sockets/sockets.lisp         | 4 ++--
 8 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/contrib/bytecmp/bytecmp.lsp b/contrib/bytecmp/bytecmp.lsp
index cd8313dd..77c33aee 100755
--- a/contrib/bytecmp/bytecmp.lsp
+++ b/contrib/bytecmp/bytecmp.lsp
@@ -135,7 +135,7 @@
 (install-bytecodes-compiler)
 )
 
-(provide 'BYTECMP)
+(provide '#:BYTECMP)
 
 #-ecl-min
 (package-lock "COMMON-LISP" t)
diff --git a/contrib/deflate/deflate.asd b/contrib/deflate/deflate.asd
index 0a74f711..9863ed86 100644
--- a/contrib/deflate/deflate.asd
+++ b/contrib/deflate/deflate.asd
@@ -37,7 +37,7 @@
 ;;;; ASDF system definition facility.
 ;;;; 
 
-(asdf:defsystem "deflate"
+(asdf:defsystem '#:deflate
     :description "Deflate Decompression Library"
     :author "Pierre R. Mai <pmai@pmsf.de>"
     :components ((:file "deflate")))
diff --git a/contrib/deflate/deflate.lisp b/contrib/deflate/deflate.lisp
index c465c53b..fea8028b 100644
--- a/contrib/deflate/deflate.lisp
+++ b/contrib/deflate/deflate.lisp
@@ -788,3 +788,5 @@ match."
                             :element-type '(unsigned-byte 8))
       (inflate-gzip-stream input output)))
   (probe-file output-file))
+
+(provide '#:deflate)
diff --git a/contrib/ecl-cdb/ecl-cdb.lisp b/contrib/ecl-cdb/ecl-cdb.lisp
index a99a1486..d4e1a977 100644
--- a/contrib/ecl-cdb/ecl-cdb.lisp
+++ b/contrib/ecl-cdb/ecl-cdb.lisp
@@ -263,4 +263,4 @@
       (with-open-file (s stream :direction :input :element-type '(unsigned-byte 8))
         (map-cdb function s))))
 
-(provide :ecl-cdb)
+(provide '#:ecl-cdb)
diff --git a/contrib/ecl-curl/ecl-curl.lisp b/contrib/ecl-curl/ecl-curl.lisp
index 8bae7134..da1ee18c 100644
--- a/contrib/ecl-curl/ecl-curl.lisp
+++ b/contrib/ecl-curl/ecl-curl.lisp
@@ -264,3 +264,5 @@
           (when o (close o :abort (null ok?))))))
     (close stream))
   (values url))
+
+(provide '#:ecl-curl)
diff --git a/contrib/quicklisp/ecl-quicklisp.lisp b/contrib/quicklisp/ecl-quicklisp.lisp
index 36d6b3cb..f7647aa7 100644
--- a/contrib/quicklisp/ecl-quicklisp.lisp
+++ b/contrib/quicklisp/ecl-quicklisp.lisp
@@ -60,6 +60,4 @@
     (format t "~%;;; Unable to load / install quicklisp. Error message follows:~%~A"
             c)))
 
-(provide "ecl-quicklisp")
-
-
+(provide '#:ecl-quicklisp)
diff --git a/contrib/serve-event/serve-event.lisp b/contrib/serve-event/serve-event.lisp
index e631a429..204b5d68 100644
--- a/contrib/serve-event/serve-event.lisp
+++ b/contrib/serve-event/serve-event.lisp
@@ -229,4 +229,4 @@ T if SERVE-EVENT did something and NIL if not."
       ((null sval) res)
     (setq res t)))
 
-(provide 'serve-event)
+(provide '#:serve-event)
diff --git a/contrib/sockets/sockets.lisp b/contrib/sockets/sockets.lisp
index f1461511..60f44bb7 100755
--- a/contrib/sockets/sockets.lisp
+++ b/contrib/sockets/sockets.lisp
@@ -1710,5 +1710,5 @@ GET-NAME-SERVICE-ERRNO")
 ;; Add sockopts here as you need them...
 
 ;; Finished loading
-(provide 'sockets)
-(provide 'sb-bsd-sockets)
+(provide '#:sockets)
+(provide '#:sb-bsd-sockets)