diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/aws/aws.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/aws/aws.lisp b/lisp/aws/aws.lisp index b96d768..74d1c54 100644 --- a/lisp/aws/aws.lisp +++ b/lisp/aws/aws.lisp @@ -191,7 +191,7 @@ (setf (age asg) (/ (- (get-universal-time) (local-time:timestamp-to-universal (local-time:parse-timestring (launch-time (first (instances asg)))))) 86400.0)) (error (e) (declare (ignore e)) - (setf (age asg) 999999)))) + (setf (age asg) -1)))) (sort asgs (lambda (x y) (> (age x) (age y)))))) (defmethod get-instance ((aws aws) instance-id) |