Commit e75dec91 authored by Kevin Rosenberg's avatar Kevin Rosenberg
Browse files

oops -- reversing auto-commit

parent e8aff394
Loading
Loading
Loading
Loading
+4 −4
Original line number Diff line number Diff line
;;; This is asdf: Another System Definition Facility.  $Revision: 1.36 $
;;; This is asdf: Another System Definition Facility.  $Revision: 1.37 $
;;;
;;; The canonical source for asdf is presently the cCLan CVS repository,
;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/>
@@ -86,7 +86,7 @@
(in-package #:asdf)

;;; parse the cvs revision into something that might be vaguely useful.  
(defvar *asdf-revision* (let* ((v "$Revision: 1.36 $")
(defvar *asdf-revision* (let* ((v "$Revision: 1.37 $")
			       (colon (position #\: v))
			       (dot (position #\. v)))
			  (and v colon dot 
@@ -604,8 +604,8 @@ system."))
  (let ((source-file (component-pathname c))
	(output-file (car (output-files operation c))))
    (multiple-value-bind (output warnings-p failure-p)
	(compile-file (truename source-file)
		      :output-file (truename output-file))
	(compile-file source-file
		      :output-file output-file)
      (declare (ignore output))
      (when warnings-p
	(case (operation-on-warnings operation)