Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf-dependency-grovel
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
xcvb
asdf-dependency-grovel
Commits
c586c88e
Commit
c586c88e
authored
Jul 20, 2009
by
Matthew Steele
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Commented out a few more unneeded pieces of code.
parent
12019f41
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
11 deletions
+12
-11
asdf-ops.lisp
asdf-ops.lisp
+2
-1
variables.lisp
variables.lisp
+10
-10
No files found.
asdf-ops.lisp
View file @
c586c88e
...
...
@@ -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
)
...
...
variables.lisp
View file @
c586c88e
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment