Skip to content
Snippets Groups Projects
Commit 3ef18cd4 authored by Gary King's avatar Gary King
Browse files

website changes; switch to load-system, etc

parent f0decbca
Branches
Tags 1.352
No related merge requests found
......@@ -41,7 +41,7 @@
(defpackage #:asdf
(:export #:defsystem #:oos #:operate #:find-system #:run-shell-command
#:system-definition-pathname #:find-component ; miscellaneous
#:system-compile #:system-load #:system-test
#:compile-system #:load-system #:test-system
#:compile-op #:load-op #:load-source-op
#:test-op
#:operation ; operations
......@@ -735,8 +735,7 @@ the head of the tree"))
;;; So you look at this code and think "why isn't it a bunch of
;;; methods". And the answer is, because standard method combination
;;; runs :before methods most->least-specific, which is back to front
;;; for our purposes. And CLISP doesn't have non-standard method
;;; combinations, so let's keep it simple and aspire to portability
;;; for our purposes.
(defgeneric traverse (operation component))
(defmethod traverse ((operation operation) (c component))
......@@ -1094,17 +1093,17 @@ method."))
(setf (documentation 'operate 'function)
operate-docstring))
(defun system-load (system &rest args &key force (verbose t) version)
(defun load-system (system &rest args &key force (verbose t) version)
"Shorthand for `(operate 'asdf:load-op system)`. See [operate][] for details."
(declare (ignore force verbose version))
(apply #'operate 'load-op system args))
(defun system-compile (system &rest args &key force (verbose t) version)
(defun compile-system (system &rest args &key force (verbose t) version)
"Shorthand for `(operate 'asdf:compile-op system)`. See [operate][] for details."
(declare (ignore force verbose version))
(apply #'operate 'compile-op system args))
(defun system-test (system &rest args &key force (verbose t) version)
(defun test-system (system &rest args &key force (verbose t) version)
"Shorthand for `(operate 'asdf:test-op system)`. See [operate][] for details."
(declare (ignore force verbose version))
(apply #'operate 'test-op system args))
......@@ -1134,9 +1133,6 @@ method."))
(cond ((and s (eq (type-of (cdr s)) ',class))
(setf (car s) (get-universal-time)))
(s
#+clisp
(sysdef-error "Cannot redefine the existing system ~A with a different class" s)
#-clisp
(change-class (cdr s) ',class))
(t
(register-system (quote ,name)
......@@ -1470,4 +1466,8 @@ output to `*verbose-out*`. Returns the shell's exit code."
(pushnew 'module-provide-asdf sb-ext:*module-provider-functions*)
(pushnew 'contrib-sysdef-search *system-definition-search-functions*))
(if *asdf-revision*
(asdf-message ";; ASDF, revision ~a" *asdf-revision*)
(asdf-message ";; ASDF, revision unknown; possibly a development version"))
(provide 'asdf)
......@@ -56,12 +56,12 @@ the startup script or creating a custom Lisp image.-
### Using
ASDF provides three commands for the most common system
operations: [system-load][], [system-compile][], and
[system-test][]:
operations: [load-system][], [compile-system][], and
[test-system][]:
{docs system-load}
{docs system-compile}
{docs system-test}
{docs load-system}
{docs compile-system}
{docs test-system}
Because ASDF is an extensible system for defining
*operations* on *components*, it also provides a generic
......@@ -99,7 +99,7 @@ To use ASDF:
* use [operate][] to tell ASDF what you'd like to
do to what systems (for simple operations, you can use
[system-load][], [system-compile][] or [system-test][]
[load-system][], [compile-system][] or [test-system][]
instead).
## Indices
......
......@@ -18,8 +18,7 @@ what depends on which and when. I.e., it is *A*nother
If you want to use ASDF with other people's systems, see the
[getting started][getting-started] guide. For details on
defining your own systems, you can read the [tutorial][],
browse the [manual][].
defining your own systems, you should browse the [manual][].
<a id="mailing-lists"></a>
......@@ -56,7 +55,7 @@ with questions or patches.
### What is happening
* Saturday; June 6, 2009 - updated website and added [oos][]
shortcuts like [system-load][].
shortcuts like [load-system][].
* Sunday; May 3, 2009 - moving towards git and Common-Lisp.net
......
This diff is collapsed.
......@@ -2,7 +2,7 @@
<div class="header">
<span class="logo">
<a href="http://common-lisp.net/project/asdf" title="ASDF Homepage">
<a href="http://common-lisp.net/project/asdf/" title="ASDF Homepage">
<img src="lisp-logo120x80.png" title="ASDF homepage" width="100" alt="Lisp Lizzard" />
</a>
</span>
......
......@@ -22,4 +22,6 @@
[asdf.lisp]: http://common-lisp.net/project/asdf/asdf.lisp
[tarball]: http://common-lisp.net/project/asdf/asdf.tar.gz
[kmp-large]: http://www.nhplace.com/kent/Papers/Large-Systems.html
[hs-require]:
\ No newline at end of file
......@@ -192,7 +192,6 @@ a:hover {
.documentation .name-and-args {
width: 80%;
float: left;
// font-variant: small-caps;
}
.documentation.contents {
......@@ -220,7 +219,6 @@ a:hover {
.documentation-arguments {
float: left;
// width: 350px;
font-style: italic;
}
......@@ -289,7 +287,7 @@ a:hover {
.nav {
padding-left: 1em;
vertical-align: center;
vertical-align: middle;
}
pre {
......
......@@ -3,7 +3,7 @@
<plist version="1.0">
<dict>
<key>currentDocument</key>
<string>source/style.css</string>
<string>source/manual.mmd</string>
<key>documents</key>
<array>
<dict>
......@@ -15,12 +15,16 @@
<dict>
<key>filename</key>
<string>source/index.mmd</string>
<key>lastUsed</key>
<date>2009-06-09T04:08:03Z</date>
</dict>
<dict>
<key>filename</key>
<string>source/manual.mmd</string>
<key>lastUsed</key>
<date>2009-06-06T19:52:07Z</date>
<date>2009-06-09T04:08:03Z</date>
<key>selected</key>
<true/>
</dict>
<dict>
<key>filename</key>
......@@ -48,9 +52,7 @@
<key>filename</key>
<string>source/style.css</string>
<key>lastUsed</key>
<date>2009-06-06T19:52:07Z</date>
<key>selected</key>
<true/>
<date>2009-06-09T03:40:11Z</date>
</dict>
<dict>
<key>filename</key>
......@@ -161,6 +163,36 @@
<key>firstVisibleLine</key>
<integer>0</integer>
</dict>
<key>source/index.mmd</key>
<dict>
<key>caret</key>
<dict>
<key>column</key>
<integer>0</integer>
<key>line</key>
<integer>43</integer>
</dict>
<key>columnSelection</key>
<false/>
<key>firstVisibleColumn</key>
<integer>0</integer>
<key>firstVisibleLine</key>
<integer>28</integer>
<key>selectFrom</key>
<dict>
<key>column</key>
<integer>0</integer>
<key>line</key>
<integer>33</integer>
</dict>
<key>selectTo</key>
<dict>
<key>column</key>
<integer>0</integer>
<key>line</key>
<integer>43</integer>
</dict>
</dict>
<key>source/manual.mmd</key>
<dict>
<key>caret</key>
......@@ -168,21 +200,21 @@
<key>column</key>
<integer>0</integer>
<key>line</key>
<integer>696</integer>
<integer>751</integer>
</dict>
<key>firstVisibleColumn</key>
<integer>113</integer>
<integer>0</integer>
<key>firstVisibleLine</key>
<integer>675</integer>
<integer>723</integer>
</dict>
<key>source/resources/footer.md</key>
<dict>
<key>caret</key>
<dict>
<key>column</key>
<integer>0</integer>
<integer>58</integer>
<key>line</key>
<integer>13</integer>
<integer>1</integer>
</dict>
<key>firstVisibleColumn</key>
<integer>0</integer>
......@@ -194,9 +226,9 @@
<key>caret</key>
<dict>
<key>column</key>
<integer>0</integer>
<integer>48</integer>
<key>line</key>
<integer>3</integer>
<integer>4</integer>
</dict>
<key>firstVisibleColumn</key>
<integer>0</integer>
......@@ -222,9 +254,9 @@
<key>caret</key>
<dict>
<key>column</key>
<integer>26</integer>
<integer>67</integer>
<key>line</key>
<integer>13</integer>
<integer>24</integer>
</dict>
<key>firstVisibleColumn</key>
<integer>0</integer>
......@@ -321,6 +353,7 @@
<key>openDocuments</key>
<array>
<string>source/style.css</string>
<string>source/index.mmd</string>
<string>source/resources/shared-header.md</string>
<string>source/copyright.md</string>
<string>source/resources/header.md</string>
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment