Untitled

;; start with this:

(defun make-comparison-lists (fields|

;; typing close-paren gives this:

(defun make-comparison-lists (fields)
  |

;; keep typing...

(defun make-comparison-lists (fields)
  (loop while fields collecting (make-comparison-expr (pop fields|

;; close paren and keep typing

(defun make-comparison-lists (fields)
  (loop while fields collecting (make-comparison-expr (pop fields)
							(pop field|))))