Loading asdf.lisp +9 −9 Original line number Diff line number Diff line Loading @@ -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 Loading Loading @@ -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)) Loading Loading @@ -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)) Loading Loading @@ -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) Loading Loading @@ -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) website/source/getting-started.mmd +6 −6 Original line number Diff line number Diff line Loading @@ -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 Loading Loading @@ -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 Loading website/source/index.mmd +2 −3 Original line number Diff line number Diff line Loading @@ -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> Loading Loading @@ -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 Loading website/source/manual.mmd +613 −425 File changed.Preview size limit exceeded, changes collapsed. Show changes website/source/resources/header.md +1 −1 Original line number Diff line number Diff line Loading @@ -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 Loading
asdf.lisp +9 −9 Original line number Diff line number Diff line Loading @@ -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 Loading Loading @@ -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)) Loading Loading @@ -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)) Loading Loading @@ -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) Loading Loading @@ -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)
website/source/getting-started.mmd +6 −6 Original line number Diff line number Diff line Loading @@ -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 Loading Loading @@ -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 Loading
website/source/index.mmd +2 −3 Original line number Diff line number Diff line Loading @@ -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> Loading Loading @@ -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 Loading
website/source/manual.mmd +613 −425 File changed.Preview size limit exceeded, changes collapsed. Show changes
website/source/resources/header.md +1 −1 Original line number Diff line number Diff line Loading @@ -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