Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Didier Verna
asdf
Commits
5e8f210c
Commit
5e8f210c
authored
Jan 18, 2013
by
Francois-Rene Rideau
Browse files
2.26.118: rename asdf/generate to asdf/defsystem,
also use asdf-defsystem as the name for packaging.
parent
669baad6
Changes
6
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
5e8f210c
...
...
@@ -15,7 +15,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.26.11
7
"
;; to be automatically updated by bin/bump-revision
:version
"2.26.11
8
"
;; to be automatically updated by bin/bump-revision
:depends-on
()
:components
((
:module
"build"
:components
((
:file
"asdf"
))))
:in-order-to
(
#+
asdf2.27
(
compile-op
(
monolithic-load-concatenated-source-op
generate-asdf
))))
...
...
@@ -32,9 +32,9 @@
(
rename-package
:asdf
:asdf-utilities
)
#+
asdf2.27
(
defsystem
:asdf/
genera
te
(
defsystem
:asdf/
defsys
te
m
:licence
"MIT"
:description
"
All the components needed to build asdf.lisp
"
:description
"
The defsystem part of ASDF
"
:description
"Generate asdf.lisp based on this and monolithic-concatenate-source-op"
:defsystem-depends-on
(
:asdf
)
:version
(
:read-file-form
"version.lisp-expr"
)
...
...
bin/asdf-builder
View file @
5e8f210c
...
...
@@ -4,14 +4,14 @@
(load (make-pathname :name "prelude" :type "lisp" :defaults *load-pathname*)
:verbose nil :print nil)
(defpackage :asdf-builder (:use :cl :asdf/driver :asdf :fare-utils))
(defpackage :asdf-builder (:use :cl :asdf/driver :asdf :fare-utils
:inferior-shell
))
(in-package :asdf-builder)
(asdf-debug)
(defun build-asdf ()
;; Make sure asdf.lisp is built.
(build-system :asdf/
genera
te)
(build-system :asdf/
defsys
te
m
)
(load-system :asdf)
(values))
...
...
@@ -119,14 +119,14 @@
(defun make-driver-tarball ()
(make-tarball-under-build (driver-name) *asdf-dir* (driver-files)))
(defun asdf-system-files ()
(defun asdf-
def
system-files ()
(list* "asdf.asd" "build/asdf.lisp" "version.lisp-expr" "header.lisp"
(system-source-files :asdf/
genera
te)))
(defun asdf-system-name ()
(system-source-files :asdf/
defsys
te
m
)))
(defun asdf-
def
system-name ()
(format nil "asdf-system-~A" *version*))
(defun make-asdf-system-tarball ()
(defun make-asdf-
def
system-tarball ()
(build-asdf)
(make-tarball-under-build (asdf-system-name) *asdf-dir* (asdf-system-files)))
(make-tarball-under-build (asdf-
def
system-name) *asdf-dir* (asdf-
def
system-files)))
(defun asdf-git-name ()
(format nil "asdf-~A" *version*))
...
...
@@ -143,7 +143,7 @@
(values))
(defun publish-tarballs ()
(let ((tarballs (mapcar 'tarname (list (driver-name) (asdf-system-name) (asdf-git-name)))))
(let ((tarballs (mapcar 'tarname (list (driver-name) (asdf-
def
system-name) (asdf-git-name)))))
(run-program* (format nil "cd ~S && rsync ~{~S ~}clnet:/project/asdf/public_html/archives/"
/build-dir/ tarballs)))
(format t "~&To download the tarballs, point your browser at:~%
...
...
bin/prelude.lisp
View file @
5e8f210c
...
...
@@ -11,7 +11,7 @@
(
upgrade-asdf
)
(
format
t
"At ASDF ~A.~%"
(
asdf-version
))
(
format
t
"Now loading some dependencies... ~%"
)
(
load-systems
:cl-ppcre
:fare-utils
)
(
load-systems
:cl-ppcre
:fare-utils
:inferior-shell
)
(
format
t
"There we are!~%"
)
(
restore-image
)
...
...
header.lisp
View file @
5e8f210c
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.11
7
: Another System Definition Facility.
;;; This is ASDF 2.26.11
8
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
upgrade.lisp
View file @
5e8f210c
...
...
@@ -45,7 +45,7 @@
;; "2.345.6" would be a development version in the official upstream
;; "2.345.0.7" would be your seventh local modification of official release 2.345
;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
(
asdf-version
"2.26.11
7
"
)
(
asdf-version
"2.26.11
8
"
)
(
existing-asdf
(
find-class
(
find-symbol*
:component
:asdf
nil
)
nil
))
(
existing-version
*asdf-version*
)
(
already-there
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
5e8f210c
"2.26.11
7
"
"2.26.11
8
"
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