Update quicklisp-fix.lisp

Apply fix only if quicklisp is available.

Author: svetlyak40wt

quicklisp-fix.lisp

@@ -1,5 +1,7 @@
+#+quicklisp
 (in-package #:quicklisp)
 
+#+quicklisp
 (defun compute-load-strategy (name)
   (setf name (string-downcase name))
   (let ((asdf-systems nil)
@@ -36,4 +38,4 @@
     (make-instance 'load-strategy
                    :name name
                    :asdf-systems (remove-duplicates asdf-systems)
-                   :quicklisp-systems (remove-duplicates quicklisp-systems))))
+                   :quicklisp-systems (remove-duplicates quicklisp-systems))))