diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 61dd785..686d8ab 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -587,18 +587,18 @@ instead of the project window will be displayed."
     (format t "~%If browser does not start go to http://127.0.0.1:~A/builder~%~%" port)
     (open-browser :url (format nil "http://127.0.0.1:~A/builder" port))))
     
-(in-package #:quicklisp-client)
-
+;;(in-package #:quicklisp-client)
+;;
 ;; patch, if-exists of :rename-and-delete does not work well on windows
-(defun make-system-index (pathname)
-  "Create a system index file for all system files under
-PATHNAME. Current format is one native namestring per line."
-  (setf pathname (truename pathname))
-  (with-open-file (stream (system-index-file pathname)
-                          :direction :output
-                          :if-exists :overwrite)
-    (dolist (system-file (local-project-system-files pathname))
-      (let ((system-path (enough-namestring system-file pathname)))
-        (write-line (native-namestring system-path) stream)))
-    (probe-file stream)))
+;; (defun make-system-index (pathname)
+;;   "Create a system index file for all system files under
+;; PATHNAME. Current format is one native namestring per line."
+;;   (setf pathname (truename pathname))
+;;   (with-open-file (stream (system-index-file pathname)
+;;                           :direction :output
+;;                           :if-exists :overwrite)
+;;     (dolist (system-file (local-project-system-files pathname))
+;;       (let ((system-path (enough-namestring system-file pathname)))
+;;         (write-line (native-namestring system-path) stream)))
+;;     (probe-file stream)))