(sd-pp-problem-long x &key (ps 'ps)) → ps
Function:
(defun sd-pp-problem-long-fn (x ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard (sd-problem-p x))) (let ((__function__ 'sd-pp-problem-long)) (declare (ignorable __function__)) (b* (((sd-problem x) x) (modname (vl-context1->mod x.ctx)) (loc (vl-ctxelement->loc (vl-context1->elem x.ctx)))) (if (not (vl-ps->htmlp)) (vl-ps-seq (vl-print "In ") (vl-print-modname modname) (vl-print " (") (vl-print-loc loc) (vl-println ")") (sd-pp-problem-header x) (vl-indent 2) (vl-println "") (vl-print (vl-pp-context-modest x.ctx)) (vl-println "") (vl-println "")) (vl-ps-seq (vl-println-markup "<dl class=\"sd_prob\">") (sd-pp-problem-header x) (vl-print-markup "<dt class=\"sd_loc\">") (vl-print "In ") (vl-print-modname modname) (vl-print " at ") (vl-print-loc loc) (vl-println-markup "</dt>") (vl-print-markup "<dd class=\"sd_context\">") (vl-print (vl-pp-context-modest x.ctx)) (vl-println-markup "</dd>") (vl-println-markup "</dl>"))))))