From e57927a8d4da6b57aa65ba5734d2f369005976a0 Mon Sep 17 00:00:00 2001 From: Gary King <gwking@metabang.com> Date: Wed, 18 Jun 2008 01:29:18 +0000 Subject: [PATCH] This patch * updates the copyright * unexports test-system-version * moves the defgeneric for component-visited-p prior to the function's first use. --- asdf.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 9e193227..32330473 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,4 +1,4 @@ -;;; This is asdf: Another System Definition Facility. $Revision: 1.118 $ +;;; This is asdf: Another System Definition Facility. $Revision: 1.119 $ ;;; ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; <cclan-list@lists.sf.net>. But note first that the canonical @@ -13,7 +13,7 @@ ;;; is the latest development version, whereas the revision tagged ;;; RELEASE may be slightly older but is considered `stable' -;;; Copyright (c) 2001-2007 Daniel Barlow and contributors +;;; Copyright (c) 2001-2008 Daniel Barlow and contributors ;;; ;;; Permission is hereby granted, free of charge, to any person obtaining ;;; a copy of this software and associated documentation files (the @@ -41,7 +41,7 @@ (:export #:defsystem #:oos #:operate #:find-system #:run-shell-command #:system-definition-pathname #:find-component ; miscellaneous - #:compile-op #:load-op #:load-source-op #:test-system-version + #:compile-op #:load-op #:load-source-op #:test-op #:operation ; operations #:feature ; sort-of operation @@ -116,7 +116,7 @@ (in-package #:asdf) -(defvar *asdf-revision* (let* ((v "$Revision: 1.118 $") +(defvar *asdf-revision* (let* ((v "$Revision: 1.119 $") (colon (or (position #\: v) -1)) (dot (position #\. v))) (and v colon dot @@ -537,6 +537,8 @@ the head of the tree")) :parent o :original-initargs args args))))) +(defgeneric component-visited-p (operation component)) + (defgeneric visit-component (operation component data)) (defmethod visit-component ((o operation) (c component) data) @@ -544,8 +546,6 @@ the head of the tree")) (push (cons (node-for o c) data) (operation-visited-nodes (operation-ancestor o))))) -(defgeneric component-visited-p (operation component)) - (defmethod component-visited-p ((o operation) (c component)) (assoc (node-for o c) (operation-visited-nodes (operation-ancestor o)) -- GitLab