Commit 3ef18cd4 authored by Gary King's avatar Gary King
Browse files

website changes; switch to load-system, etc

parent f0decbca
Loading
Loading
Loading
Loading
+9 −9
Original line number Diff line number Diff line
@@ -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)
+6 −6
Original line number Diff line number Diff line
@@ -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
+2 −3
Original line number Diff line number Diff line
@@ -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

+613 −425

File changed.

Preview size limit exceeded, changes collapsed.

+1 −1
Original line number Diff line number Diff line
@@ -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>
Loading