The default DBF encoding still is ASCII.

This commit is contained in:
Dimitri Fontaine 2015-02-18 23:27:35 +01:00
parent 55584406fa
commit c5f0aeec93

View File

@ -67,7 +67,14 @@
(:lambda (clauses-list)
(alexandria:alist-plist clauses-list)))
(defrule load-dbf-command (and dbf-source (? file-encoding)
;;; dbf defaults to ascii rather than utf-8
(defrule dbf-file-encoding (? (and kw-with kw-encoding encoding))
(:lambda (enc)
(if enc
(bind (((_ _ encoding) enc)) encoding)
:ascii)))
(defrule load-dbf-command (and dbf-source (? dbf-file-encoding)
target load-dbf-optional-clauses)
(:lambda (command)
(destructuring-bind (source encoding target clauses) command