Fix qlot/proxy.

proxy.lisp

@@ -19,24 +19,27 @@
   ;; For some reason, a separate function definition
   ;; works as expected.
   (defun qlot-http-fetch (url &rest rest)
-    (let ((ql:*proxy-url*
-            (if (eql (search #1="qlot://localhost/" url
-                             :end2 (length #1#))
-                     0)
-                nil
-                ql:*proxy-url*)))
-      (apply #'orig-http-fetch url rest))))
+    (if (find :quicklisp *features*)
+        (progv (list (intern (string '#:*proxy-url*) '#:ql))
+            ;; do not use proxy if connect localhost
+            (list (if (eql (search #1="qlot://localhost/" url
+                                   :end2 (length #1#))
+                           0)
+                      nil
+                      (symbol-value (intern (string '#:*proxy-url*) '#:ql))))
+          (apply #'orig-http-fetch url rest))
+        (apply #'orig-http-fetch url rest))))
 
 #+quicklisp
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (when (and (not (fboundp 'orig-http-fetch))
              (find-package '#:ql-http))
     ;; dummy for suppress style warning
     (defun orig-http-fetch (&rest args)
-      (declare (ignore args)))
+      (declare (ignore args))
+      (error "A dummy function is called"))
     (setf (symbol-function 'orig-http-fetch)
           (fdefinition
            (find-symbol (string '#:http-fetch) '#:ql-http)))
-    ;; do not use proxy if connect localhost
     (setf (fdefinition (find-symbol (string '#:http-fetch) '#:ql-http))
           #'qlot-http-fetch)))