Post >>16 in thread 1250670402 contains a BBCode failure: [b][u][i]Please stop responding to invisible teenage posters!!![i][/u][/b].
[Condition of type BBCODE-FAILURE]
Restarts:
0: [RETRY-WITH-A-NEW-POST] Try posting again after correcting your post.
1: [GRAB-DICK] *grabs dick*
2: [LEAVE-PROG] Leave /prog/
3: [RETRY] Retry SLIME interactive evaluation request.
4: [ABORT] Return to SLIME's top level.
5: [ABORT] Abort
6: [CLOSE-CONNECTION] Close SLIME connection
7: [ABORT] Exit debugger, returning to top level.
Backtrace:
0: (|/prog/-post| 16 1250670402 "
[b][u][i]Please stop responding to invisible teenage posters!!![i]
[/u][/b]"
)
1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (|/prog/-post| 16 1250670402 "
class=eop>[b][u][i]Please stop responding to invisible teenage posters!!![i][/u][/b]") #<NULL-LEXENV>)
2: ((LAMBDA ()))
3: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME interactive evaluation request." #<CLOSURE (LAMBDA #) {242C4065}>)
4: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA #) {242C404D}>)
--more--
OR in another conforming implementation:
*** - Post >>16 in thread 1250670402 contains a BBCode failure:
class=eop>[b][u][i]Please stop responding to invisible teenage
posters!!![i][/u][/b].
The following restarts are available:
RETRY-WITH-A-NEW-POST :R1 Try posting again after correcting your post.
GRAB-DICK :R2 *grabs dick*
LEAVE-PROG :R3 Leave /prog/
ABORT :R4 Abort main loop
Break 1 [5]>
Toy code:
[code]
(define-condition bbcode-failure
(error)
((original :initarg :original :reader get-original)
(poster :initarg :poster :reader get-poster)
(thread :initarg :thread :reader get-thread))
(:report (lambda (condition stream)
(format stream "Post >>~A in thread ~A contains a BBCode failure: ~A."
(get-poster condition)
(get-thread condition)
(get-original condition)))))
(defvar *poster* 16)
(defun post-to-prog (new-post)
(declare (ignore new-post)))
(defun grab-dick ()
(with-dick-grabbed *poster*
(perform-side-effects)))
(defun leave-prog (poster)
(perform-clean-up poster)
(exit))
(defun |bbcode-fail-/prog/-post| (post-number thread s)
(restart-case
(error 'bbcode-failure
:poster post-number
:original s
:thread thread)
(retry-with-a-new-post (new-post)
:report "Try posting again after correcting your post."
(post-to-prog new-post))
(grab-dick ()
:report "*grabs dick*"
(grab-dick))
(leave-prog ()
:report "Leave /prog/"
(leave-prog *poster*))))
(|bbcode-fail-/prog/-post| *poster* 1250670402 "[b][u][i]Please stop responding to invisible teenage posters!!![i][/u][/b]")
[/code]