Commit c586c88e authored by Matthew Steele's avatar Matthew Steele

Commented out a few more unneeded pieces of code.

parent 12019f41
......@@ -165,7 +165,8 @@ to the base of the system."
:if-exists :supersede)
(with-slots (load-system merge-systems
component-name-translation verbose ;cull-redundant
additional-initargs base-pathname debug-object-types) c
; debug-object-types
additional-initargs base-pathname) c
(let ((base-pathname
(or (and (slot-boundp c 'base-pathname)
base-pathname)
......
......@@ -12,12 +12,12 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ASDF Stuff ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar *current-component* nil
"The currently loaded/compiled ASDF component")
;; (defvar *current-component* nil
;; "The currently loaded/compiled ASDF component")
(defvar *suspected-variables* nil
"Hash table containing the symbols that should be treated as if they were
variables when used in forms.")
;; (defvar *suspected-variables* nil
;; "Hash table containing the symbols that should be treated as if they were
;; variables when used in forms.")
;; (defvar *current-dependency-state* nil
;; "The state of dependency information for the current groveling run.")
......@@ -26,12 +26,12 @@
"Bound to a value that is unique once per operating on each
dependency-groveling system.")
(defvar *debug-object-types* nil
"List containing object type names (as string designators) for which
dependency information should be printed.")
;; (defvar *debug-object-types* nil
;; "List containing object type names (as string designators) for which
;; dependency information should be printed.")
(defvar *component-dependency-op-times* (make-hash-table)
"Maps components to the last universal-time they were groveled.")
;; (defvar *component-dependency-op-times* (make-hash-table)
;; "Maps components to the last universal-time they were groveled.")
;; Used by XCVB:
(defvar *system-base-dir* nil
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment