Commit e57927a8 authored by Gary King's avatar Gary King
Browse files

This patch

* updates the copyright
* unexports test-system-version
* moves the defgeneric for component-visited-p prior to the function's first use.
parent 277835c8
;;; 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))
......
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