1 files changed, 12 insertions(+), 12 deletions(-)

M src/galosh-qsl.lisp

@@ 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))