Commit 23e73c26 authored by Daniel Barlow's avatar Daniel Barlow
Browse files

fix MCL "unused variables" warnings. Thanks to John DeSoi

parent dead9072
Loading
Loading
Loading
Loading
+9 −5
Original line number Original line Diff line number Diff line
;;; This is asdf: Another System Definition Facility.  $Revision: 1.41 $
;;; This is asdf: Another System Definition Facility.  $Revision: 1.42 $
;;;
;;;
;;; The canonical source for asdf is presently the cCLan CVS repository,
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/>
;;; <cclan-list@lists.sf.net>.  But note first that the canonical
;;; source for asdf is presently the cCLan CVS repository at
;;; <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/>
;;;
;;;
;;; If you obtained this copy from anywhere else, and you experience
;;; If you obtained this copy from anywhere else, and you experience
;;; trouble using it, or find bugs, you may want to check at the
;;; trouble using it, or find bugs, you may want to check at the
@@ -86,7 +88,7 @@
(in-package #:asdf)
(in-package #:asdf)


;;; parse the cvs revision into something that might be vaguely useful.  
;;; parse the cvs revision into something that might be vaguely useful.  
(defvar *asdf-revision* (let* ((v "$Revision: 1.41 $")
(defvar *asdf-revision* (let* ((v "$Revision: 1.42 $")
			       (colon (position #\: v))
			       (colon (position #\: v))
			       (dot (position #\. v)))
			       (dot (position #\. v)))
			  (and v colon dot 
			  (and v colon dot 
@@ -449,7 +451,9 @@ system."))


(defgeneric (setf visiting-component) (new-value operation component))
(defgeneric (setf visiting-component) (new-value operation component))


(defmethod (setf visiting-component) (new-value operation component))
(defmethod (setf visiting-component) (new-value operation component)
  ;; MCL complains about unused lexical variables
  (declare (ignorable new-value operation component)))


(defmethod (setf visiting-component) (new-value (o operation) (c component))
(defmethod (setf visiting-component) (new-value (o operation) (c component))
  (let ((node (node-for o c))
  (let ((node (node-for o c))