;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; An example of a function that can be used
;; to print out test expressions and their evaluation
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun print-test (msg exp)
 (terpri) (terpri) (terpri)  ;; Output three new lines
  (princ msg)       ;; Print the message without a preceding new line
                    ;; and no quotes
  (prin1 exp)       ;; Print the expression without a preceding new line
  (pprint (eval exp)))  ;; Pretty print the value of the expression
                        ;; starting on the next line
