aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-09-27 15:14:27 -0500
committerGravatar Pouar <pouar@pouar.net>2020-09-27 15:14:27 -0500
commit61c91ca6dd746232b0b6446523f83d26c240255c (patch)
treeb5ae89bf15d37a3cf6d1db4e96f98447f3ac3caf
parentmake more use of serapeum (diff)
bug fix
-rw-r--r--data/team-members/allies.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/data/team-members/allies.lisp b/data/team-members/allies.lisp
index 7c88f67..a4728ee 100644
--- a/data/team-members/allies.lisp
+++ b/data/team-members/allies.lisp
@@ -19,13 +19,13 @@
:description "Used to be one of the Diapered Raccoon Bandits. Was kicked out after he was forced to give the location of Pirate's Cove to the Navy. He was humiliated constantly by the Diapered Pirates until you rescued him. Is too embarrassed to admit when he as to go unless he's desperate"
:level 5))
(s:defmethods slynk (user)
- (:method fart-result-text (user (result (eql :failure)) mess &key stream)
+ (:method fart-result-text (user (result (eql :failure)) mess &key (stream *standard-output*))
(if (and (getf mess :leak-amount) (> (getf mess :leak-amount) 0))
(f:fmt stream (name-of user) " gets a look of horror on " (if (malep user) "his" "her") " face as "
(if (malep user) "he" "she") " ends up messing " (if (malep user) "himself" "herself")
" and has a blowout" #\Newline)
- (f:fmt stream (name-of user) "tries to fart to relieve the pressure but ends up messing " (if (malep user) "his" "her")
- "pamps, doesn't seem to realize it wasn't a fart and just continues on in a messy diaper" #\Newline)))
+ (f:fmt stream (name-of user) " tries to fart to relieve the pressure but ends up messing " (if (malep user) "his" "her")
+ " pamps, doesn't seem to realize it wasn't a fart and just continues on in a messy diaper" #\Newline)))
(:method initialize-instance :after
(user &key (bladder/contents nil bladderp) (bowels/contents nil bowelsp) &allow-other-keys)
(declare (ignore bladder/contents bowels/contents))