-p stream-wrapper) (&optional format-string &rest args)   (declare (dynamic-extent args))   (if (and (system:standard-object-p *query-io*)     (typep *query-io* 'fundamental-stream))       (clim:accept 'clim:boolean :prompt (apply #'lisp:format nil format-string         args))       (lcl:apply-advice-continue format-string args)))  