lispdoc - results for *print-circle*

(defun current-case-mode () (or *print-case*))

(defun print-var (var stream depth)
  (if (or
       (and *print-level*
            (>= depth *print-level*))
       (var-p (deref var)))
      (format stream "?~a" (var-name var))
      (write var :stream stream)))

(defun s. (&rest args)
  "Concatenate ARGS as strings"
  (declare (optimize (speed 3)))
  (let ((*print-pretty* nil))
    (with-output-to-string (out)
      (dolist (arg args) (princ arg out)))))