~clarkema/galosh

ea6b01980012463efa3827e9778f32fc86557146 — Mike Clarke 9 years ago 6e7bd1e
[qsl] Whitespace updates from SLIME
1 files changed, 12 insertions(+), 12 deletions(-)

M src/galosh-qsl.lisp
M src/galosh-qsl.lisp => src/galosh-qsl.lisp +12 -12
@@ 439,22 439,22 @@

(defun merge-qso-qrz-details (qso qrz-details)
  (labels ((qrz (field)
	     (if qrz-details
		 (gethash field qrz-details)
		 "")))
             (if qrz-details
                 (gethash field qrz-details)
                 "")))
    (declare (inline qrz))
    (if (and (qrz "cqzone") (not (equal (qrz "cqzone") "0")))
	(setf (q-his-cq-zone qso)
	      (parse-integer (qrz "cqzone") :junk-allowed t)))
        (setf (q-his-cq-zone qso)
              (parse-integer (qrz "cqzone") :junk-allowed t)))
    (if (and (qrz "ituzone") (not (equal (qrz "ituzone") "0")))
	(setf (q-his-itu-zone qso)
	      (parse-integer (qrz "ituzone") :junk-allowed t)))
        (setf (q-his-itu-zone qso)
              (parse-integer (qrz "ituzone") :junk-allowed t)))
    (setf (q-his-dxcc qso)     (parse-integer (qrz "dxcc") :junk-allowed t)
	  (q-his-iota qso)     (qrz "iota")
	  (q-his-country qso)  (qrz "country")
	  (q-his-state qso)    (qrz "state")
	  (q-his-county qso)   (qrz "county")
	  (q-his-grid qso)     (qrz "grid"))
          (q-his-iota qso)     (qrz "iota")
          (q-his-country qso)  (qrz "country")
          (q-his-state qso)    (qrz "state")
          (q-his-county qso)   (qrz "county")
          (q-his-grid qso)     (qrz "grid"))
    (update-records-from-instance qso)
    qso))