mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

asdf: update to 3.1.8.6

Browse source 
this version allows specifying init-name
This commit is contained in:
Daniel Kochmanski 2017-07-21 19:30:19 +02:00
parent 7f13cc7e48
commit f2473ade5b
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
contrib/asdf/asdf.lisp
View file

@ -1,5 +1,5 @@
;;; -*- mode: Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*- ;;; -*- mode: Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
;;; This is ASDF 3.1.8.5: Another System Definition Facility. ;;; This is ASDF 3.1.8.6: Another System Definition Facility.
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: ;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>. ;;; please mail to <asdf-devel@common-lisp.net>.
@ -4683,7 +4683,7 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
((:program) 'compiler::build-program)) ((:program) 'compiler::build-program))
(pathname destination) (pathname destination)
#+(or clasp ecl) :lisp-files #+mkcl :lisp-object-files (append lisp-object-files #+(or clasp ecl) extra-object-files) #+(or clasp ecl) :lisp-files #+mkcl :lisp-object-files (append lisp-object-files #+(or clasp ecl) extra-object-files)
#+(or clasp ecl) :init-name #+(or clasp ecl) (c::compute-init-name (or output-name destination) :kind kind) #+(or clasp ecl) :init-name #+(or clasp ecl) (getf build-args :init-name)
(append (append
(when prologue-code `(:prologue-code ,prologue-code)) (when prologue-code `(:prologue-code ,prologue-code))
(when epilogue-code `(:epilogue-code ,epilogue-code)) (when epilogue-code `(:epilogue-code ,epilogue-code))
@ -7274,7 +7274,7 @@ previously-loaded version of ASDF."
;; "3.4.5.67" would be a development version in the official branch, on top of 3.4.5. ;; "3.4.5.67" would be a development version in the official branch, on top of 3.4.5.
;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5 ;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5
;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67 ;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
(asdf-version "3.1.8.5") (asdf-version "3.1.8.6")
(existing-version (asdf-version))) (existing-version (asdf-version)))
(setf *asdf-version* asdf-version) (setf *asdf-version* asdf-version)
(when (and existing-version (not (equal asdf-version existing-version))) (when (and existing-version (not (equal asdf-version existing-version)))
@ -11653,9 +11653,14 @@ or of opaque libraries shipped along the source code."))
'program-op))) 'program-op)))
;; SUPPORTED ALTERNATIVE: Use program-op and program-system ;; SUPPORTED ALTERNATIVE: Use program-op and program-system
(defun make-build (system &rest args &key (monolithic nil) (type :fasl) (defun make-build (system &rest args
(move-here nil move-here-p) &key
&allow-other-keys) (monolithic nil)
(type :fasl)
(move-here nil move-here-p)
(init-name nil)
&allow-other-keys)
(declare (ignore init-name))
(let* ((operation-name (select-bundle-operation type monolithic)) (let* ((operation-name (select-bundle-operation type monolithic))
(move-here-path (if (and move-here (move-here-path (if (and move-here
(typep move-here '(or pathname string))) (typep move-here '(or pathname string)))