anchor.diff:              (sql-statement-name statement)
               (mapcar #'yield (sql-composed-statement-children statement)))))
   
  -(defparameter *bind-values* nil)
  -(defparameter *use-global-bind-values* nil)
  -
   (defmethod yield :around ((object t))
     (if *use-global-bind-values*
         (progn
  
positive.code: 
  @export
  (defparameter *use-prin1-for-print-object* nil)
  
  ;;
  ;; Atom
  
negative.code:           (when bind (push bind *bind-values*))
            (values var nil)))
        (call-next-method)))
  