Commit 43811764 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

3.0.1.8: trivial refactoring of format in function die.

parent ab2e6a12

asdf.asd

+1 −1
Original line number Diff line number Diff line
@@ -74,7 +74,7 @@ 
  :licence "MIT"

  :description "Another System Definition Facility"

  :long-description "ASDF builds Common Lisp software organized into defined systems."

  :version "3.0.1.7" ;; to be automatically updated by make bump-version

  :version "3.0.1.8" ;; to be automatically updated by make bump-version

  :depends-on ()

  #+asdf3 :encoding #+asdf3 :utf-8

  ;; For most purposes, asdf itself specially counts as a builtin system.

header.lisp

+1 −1
Original line number Diff line number Diff line 
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-

;;; This is ASDF 3.0.1.7: Another System Definition Facility.

;;; This is ASDF 3.0.1.8: Another System Definition Facility.

;;;

;;; Feedback, bug reports, and patches are all welcome:

;;; please mail to <asdf-devel@common-lisp.net>.

uiop/image.lisp

+1 −3
Original line number Diff line number Diff line
@@ -87,9 +87,7 @@ This is designed to abstract away the implementation specific quit forms." 
    "Die in error with some error message"

    (with-safe-io-syntax ()

      (ignore-errors

       (fresh-line *stderr*)

       (apply #'format *stderr* format arguments)

       (format! *stderr* "~&")))

       (format! *stderr* "~&~?~&" format arguments)))

    (quit code))



  (defun raw-print-backtrace (&key (stream *debug-io*) count)

upgrade.lisp

+1 −1
Original line number Diff line number Diff line
@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO 
         ;; "3.4.5.67" would be a development version in the official upstream 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.0.1.7")

         (asdf-version "3.0.1.8")

         (existing-version (asdf-version)))

    (setf *asdf-version* asdf-version)

    (when (and existing-version (not (equal asdf-version existing-version)))

version.lisp-expr

+1 −1
Original line number Diff line number Diff line 
"3.0.1.7"
 
"3.0.1.8"