Skip to content
Snippets Groups Projects
Commit 100d6406 authored by Daniel Barlow's avatar Daniel Barlow
Browse files

oops, doubleplus. why don't i have test cases that catch this stuff

parent 951d5829
No related branches found
No related tags found
No related merge requests found
;;; This is asdf: Another System Definition Facility. $Revision: 1.34 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.35 $
;;; ;;;
;;; 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.34 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.35 $")
(colon (position #\: v)) (colon (position #\: v))
(dot (position #\. v))) (dot (position #\. v)))
(and v colon dot (and v colon dot
...@@ -594,8 +594,9 @@ system.")) ...@@ -594,8 +594,9 @@ system."))
(setf (component-property c 'last-compiled) nil)) (setf (component-property c 'last-compiled) nil))
(defmethod perform :after ((operation compile-op) (c source-file)) (defmethod perform :after ((operation compile-op) (c source-file))
(setf (component-property c 'last-compiled) (when (output-files operation c)
(file-write-date (car (output-files operation c))))) (setf (component-property c 'last-compiled)
(file-write-date (car (output-files operation c))))))
;;; perform is required to check output-files to find out where to put ;;; perform is required to check output-files to find out where to put
;;; its answers, in case it has been overridden for site policy ;;; its answers, in case it has been overridden for site policy
...@@ -635,9 +636,11 @@ system.")) ...@@ -635,9 +636,11 @@ system."))
(defclass load-op (operation) ()) (defclass load-op (operation) ())
(defmethod perform :after ((o load-op) (c source-file)) (defmethod perform :after ((o load-op) (c source-file))
(let ((output-files (output-files co c))) (let* ((co (make-sub-operation o 'compile-op))
(setf (component-property c 'last-loaded) (output-files (output-files co c)))
(file-write-date (car output-files))))) (when output-files
(setf (component-property c 'last-loaded)
(file-write-date (car output-files))))))
(defmethod perform ((o load-op) (c cl-source-file)) (defmethod perform ((o load-op) (c cl-source-file))
(let* ((co (make-sub-operation o 'compile-op)) (let* ((co (make-sub-operation o 'compile-op))
......
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