Commit c4c20256 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Corrected missing variable.

parent 476dc782
......@@ -103,6 +103,7 @@ common-lisp:package and common-lisp:symbol.
(defparameter *sorted-files* '())
(defparameter *contents* '())
(defvar *asdf-files* (make-hash-table))
(defun read-sources (&key (system-file #P"patchwork.asd")
(base #P"~/works/patchwork/patchwork/src/"))
......@@ -237,6 +238,7 @@ common-lisp:package and common-lisp:symbol.
:finally (classify-classes))
(report-problems (hash-table-values *classes*)))
(defvar *tlee* nil) ; for debugging.
(defun print-class-hierarchy ()
(let ((tlee (let ((nodes (make-hash-table)))
......
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