Skip to content
Snippets Groups Projects
Commit e75dec91 authored by Kevin Rosenberg's avatar Kevin Rosenberg
Browse files

oops -- reversing auto-commit

parent e8aff394
No related branches found
No related tags found
No related merge requests found
;;; 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, ;;; The canonical source for asdf is presently the cCLan CVS repository,
;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/> ;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/>
...@@ -86,7 +86,7 @@ ...@@ -86,7 +86,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.36 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.37 $")
(colon (position #\: v)) (colon (position #\: v))
(dot (position #\. v))) (dot (position #\. v)))
(and v colon dot (and v colon dot
...@@ -604,8 +604,8 @@ system.")) ...@@ -604,8 +604,8 @@ system."))
(let ((source-file (component-pathname c)) (let ((source-file (component-pathname c))
(output-file (car (output-files operation c)))) (output-file (car (output-files operation c))))
(multiple-value-bind (output warnings-p failure-p) (multiple-value-bind (output warnings-p failure-p)
(compile-file (truename source-file) (compile-file source-file
:output-file (truename output-file)) :output-file output-file)
(declare (ignore output)) (declare (ignore output))
(when warnings-p (when warnings-p
(case (operation-on-warnings operation) (case (operation-on-warnings operation)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment