hunk ./klmnea.lisp 7
-	 ,(mapcar #'(lambda (n) (list n :initform nil)) flat-names))
+	 ,(mapcar 
+	    #'(lambda (n) 
+		(list n :initform nil :initarg (intern (symbol-name n) :keyword))) 
+	    flat-names))
hunk ./klmnea.lisp 126
+(define-condition klmnea-wrong-cs () ())
+
hunk ./klmnea.lisp 135
-	    (error "Wrong NMEA checksum"))
+	    (error 'klmnea-wrong-cs))
hunk ./package-n-utils.lisp 49
-(defun generate-format-string (str &optional slot names fmts)
+(defun generate-format-string (str &optional slot fmts)