From 1d0cec6820602c54b957d0240faeca547a832f9a Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Mon, 18 Feb 2013 17:53:39 +0100 Subject: [PATCH] 2.29.3: fix issues found by stassats on CMUCL. --- asdf.asd | 2 +- header.lisp | 2 +- image.lisp | 2 +- operate.lisp | 2 +- os.lisp | 2 +- upgrade.lisp | 2 +- version.lisp-expr | 2 +- 7 files changed, 7 insertions(+), 7 deletions(-) diff --git a/asdf.asd b/asdf.asd index 8c8eae6b..7b609dab 100644 --- a/asdf.asd +++ b/asdf.asd @@ -74,7 +74,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.29.2" ;; to be automatically updated by make bump-version + :version "2.29.3" ;; 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. diff --git a/header.lisp b/header.lisp index 99f2a249..bd6898ed 100644 --- a/header.lisp +++ b/header.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- -;;; This is ASDF 2.29.2: Another System Definition Facility. +;;; This is ASDF 2.29.3: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. diff --git a/image.lisp b/image.lisp index e1e19952..6feb3abe 100644 --- a/image.lisp +++ b/image.lisp @@ -109,7 +109,7 @@ This is designed to abstract away the implementation specific quit forms." (let ((*debug-io* stream)) (ccl:print-call-history :count count :start-frame-number 1) (finish-output stream)) - #+(or cmucl scl) + #+(or cmu scl) (let ((debug:*debug-print-level* *print-level*) (debug:*debug-print-length* *print-length*)) (debug:backtrace most-positive-fixnum stream)) diff --git a/operate.lisp b/operate.lisp index 17d2f54e..89ccac3e 100644 --- a/operate.lisp +++ b/operate.lisp @@ -8,7 +8,7 @@ :asdf/find-system :asdf/find-component :asdf/lisp-action :asdf/plan) (:export #:operate #:oos - #:*systems-being-operated* #:*asdf-upgrade-already-attempted* + #:*systems-being-operated* #:build-system #:load-system #:load-systems #:compile-system #:test-system #:require-system #:*load-system-operation* #:module-provide-asdf diff --git a/os.lisp b/os.lisp index 6691df7f..951ffd82 100644 --- a/os.lisp +++ b/os.lisp @@ -189,7 +189,7 @@ then returning the non-empty string value of the variable" (with-upgradability () (defun hostname () ;; Note: untested on RMCL - #+(or abcl clozure cmucl ecl genera lispworks mcl mkcl sbcl scl xcl) (machine-instance) + #+(or abcl clozure cmu ecl genera lispworks mcl mkcl sbcl scl xcl) (machine-instance) #+cormanlisp "localhost" ;; is there a better way? Does it matter? #+allegro (symbol-call :excl.osi :gethostname) #+clisp (first (split-string (machine-instance) :separator " ")) diff --git a/upgrade.lisp b/upgrade.lisp index c5d14f6a..fed97354 100644 --- a/upgrade.lisp +++ b/upgrade.lisp @@ -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 "2.29.2") + (asdf-version "2.29.3") (existing-version (asdf-version))) (setf *asdf-version* asdf-version) (when (and existing-version (not (equal asdf-version existing-version))) diff --git a/version.lisp-expr b/version.lisp-expr index 8a71de56..6517476e 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -1 +1 @@ -"2.29.2" +"2.29.3" -- GitLab