diff options
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 037eaed..b73e191 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -649,7 +649,10 @@ (if (walking-p *nance*) (unless (sick-p *nance*) (decf (percent *cold-meter*) 0.0004)) - (incf (percent *cold-meter*) 0.0003)))) + (progn + (incf (percent *cold-meter*) 0.0003) + (unless (sick-p *nance*) + (decf (percent *stress-meter*) 0.0003)))))) |