Commit fa903fbf authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Merge branch 'master' into minimakefile

parents 99df8d41 b95d3a04
......@@ -113,7 +113,6 @@
*** it somehow pushes :non-base-chars-exist-p even though +non-base-chars-exist-p+ is NIL???
** XCL has bad bugs:
*** it can't compile ASDF3 anymore. Figure out why, if you have time.
*** make-pathname doesn't handle :type nil properly and
has massive lossage in logical-pathname support.
*** If using block () and return in search-for-system-definition
......@@ -378,7 +377,7 @@ It looks like SWANK can be fixed soon, though, so we'll see.
*** work with cl-test-grid to eliminate deferred warnings from quicklisp libraries
*** https://www.mail-archive.com/asdf-devel@common-lisp.net/msg03608.html
*** czak@google.com rewrote part of deferred warnings support.
Ask him for the code he implemented at Google.
Ask him to release the code he implemented at Google under QITAB.
** Ensure all run-program issues on Windows are solved.
*** SBCL cannot do raw CMD.EXE command-lines
......
......@@ -75,7 +75,7 @@
:licence "MIT"
:description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems."
:version "3.1.5.14" ;; to be automatically updated by make bump-version
:version "3.1.5.16" ;; to be automatically updated by make bump-version
:depends-on ()
#+asdf3 :encoding #+asdf3 :utf-8
:class #+asdf3.1 package-inferred-system #-asdf3.1 system
......
......@@ -159,7 +159,8 @@ Compare with LIB-OP."))
((selfward-operation :initform 'monolithic-compile-bundle-op :allocation :class))
(:documentation "Load a single fasl for the system and its dependencies."))
(defclass monolithic-lib-op (monolithic-bundle-op lib-op non-propagating-operation) ()
(defclass monolithic-lib-op (monolithic-bundle-op lib-op non-propagating-operation)
((gather-type :initform :static-library :allocation :class))
(:documentation "Create a single linkable library for the system and its dependencies."))
(defclass monolithic-dll-op (monolithic-bundle-op dll-op non-propagating-operation)
......@@ -211,7 +212,10 @@ Compare with LIB-OP."))
(format nil "~A~@[~A~]" (component-name c) (slot-value o 'name-suffix))))
(type (bundle-pathname-type bundle-type)))
(values (list (subpathname (component-pathname c) name :type type))
(eq (type-of o) (component-build-operation c)))))))
(eq (type-of o) (coerce-class (component-build-operation c)
:package :asdf/interface
:super 'operation
:error nil)))))))
(defmethod output-files ((o bundle-op) (c system))
(bundle-output-files o c))
......@@ -500,10 +504,11 @@ Compare with LIB-OP."))
#+(or clasp ecl mkcl)
(with-upgradability ()
;; I think that Juanjo intended for this to be,
;; but beware the weird bug in test-xach-update-bug.script,
;; and also it makes mkcl fail test-logical-pathname.script,
;; and ecl fail test-bundle.script.
;; I think that Juanjo intended for this to be, but it was disabled before 3.1
;; due to implementation bugs in ECL and MKCL that seem to have been fixed since
;; — see for ECL test-xach-update-bug.script and test-bundle.script,
;; and for MKCL test-logical-pathname.script.
;; We should probably reenable these after consulting with ECL and MKCL maintainers.
;;(unless (or #+(or clasp ecl) (use-ecl-byte-compiler-p))
;; (setf *load-system-operation* 'load-bundle-op))
......
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
;;; This is ASDF 3.1.5.14: Another System Definition Facility.
;;; This is ASDF 3.1.5.16: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
......
......@@ -2,7 +2,7 @@
(DBG "Test ld-flags in make-image. Should load from ecl-make-image/")
#+ecl
#+(and ecl (not ecl-bytecmp))
(progn
(chdir (subpathname *test-directory* "ecl-make-image/"))
(load "readme.lisp"))
......@@ -19,7 +19,7 @@
(translate-logical-pathname "ASDF:test;test-logical-pathname.lisp")
(translate-logical-pathname "ASDF:test;test-logical-pathname.fasl"))
#+(or gcl xcl) (leave-test "This implementation doesn't do Logical pathnames well enough" 0)
#+(or clisp gcl xcl) (leave-test "This implementation doesn't do Logical pathnames well enough" 0)
(DBG "Test logical pathnames in central registry")
(setf *central-registry* '(#p"ASDF:test;"))
......
;;; -*- Lisp -*-
(setf asdf/cache:*asdf-cache* nil) ;; disable cache between those two very different compilations.
;;(setf asdf::*load-system-operation* 'load-bundle-op) ;; This triggers a bug on ECL. See below.
(setf asdf::*load-system-operation* 'load-bundle-op) ;; This triggers a bug on ECL no more!
(defparameter foo :test-asdf-location-change)
......
......@@ -142,7 +142,7 @@ This is designed to abstract away the implementation specific quit forms."
(dbg:*debug-print-length* *print-length*))
(dbg:bug-backtrace nil))
#+sbcl
(sb-debug:backtrace
(sb-debug:print-backtrace
#.(if (find-symbol* "*VERBOSITY*" "SB-DEBUG" nil) :stream '(or count most-positive-fixnum))
stream)
#+xcl
......
......@@ -67,7 +67,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.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
(asdf-version "3.1.5.14")
(asdf-version "3.1.5.16")
(existing-version (asdf-version)))
(setf *asdf-version* asdf-version)
(when (and existing-version (not (equal asdf-version existing-version)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment