From e79c854115086654e40155ed3d4560f94c23f845 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Mon, 17 Dec 2012 18:08:27 -0500 Subject: [PATCH] 2.26.28: remove a debugging message. Oops. --- asdf.asd | 2 +- asdf.lisp | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/asdf.asd b/asdf.asd index 36cf9591..fc1ab305 100644 --- a/asdf.asd +++ b/asdf.asd @@ -14,7 +14,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.26.27" ;; to be automatically updated by bin/bump-revision + :version "2.26.28" ;; to be automatically updated by bin/bump-revision :depends-on () :components ((:file "asdf"))) diff --git a/asdf.lisp b/asdf.lisp index c866c158..134d4480 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,5 +1,5 @@ ;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- -;;; This is ASDF 2.26.27: Another System Definition Facility. +;;; This is ASDF 2.26.28: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. @@ -118,7 +118,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.27") + (asdf-version "2.26.28") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -2204,7 +2204,6 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded. (defun* visit-dependencies (operation component fun &aux stamp) (loop :for (dep-o-spec . dep-c-specs) :in (component-depends-on operation component) - :for () = (format t "~&VD ~S ~S ~S~&" dep-o-spec dep-c-specs (eq dep-o-spec 'feature)) :unless (eq dep-o-spec 'feature) ;; avoid the "FEATURE" misfeature :do (loop :with dep-o = (find-operation operation dep-o-spec) :for dep-c-spec :in dep-c-specs -- GitLab