anchor.diff:  (in-package #:ichiran/dict)
   
   (defparameter *jmdict-path* #p"foobar")
  +
  +(defparameter *jmdict-data* #p"foobar")
   
   (defparameter *connection* '("jmdict" "postgres" "" "localhost"))
   
  
positive.code:          finally (return cnt)))))
  
  (defun word-readings (word)
    (let* ((kana-seq (query (:select 'seq :from 'reading-text :where (:= 'text word)) :column))
           (readings
            (if kana-seq (list word)
                (let* ((kanji-seq (query (:select 'seq :from 'kanji-text
                                                  :where (:= 'text word)) :column)))
                  (query (:order-by 
                          (:select 'text :from 'reading-text :where
                                   (:in 'seq (:set kanji-seq)))
                          'id) :column)))))
      (values readings (mapcar #'ichiran:romanize-word readings))))
  
negative.code: 
  (defclass entry ()
    ((seq :reader seq :col-type integer :initarg :seq)
     (content :reader content :col-type string :initarg :content)
     (n-kanji :accessor n-kanji :col-type integer :initform 0)
     (n-kana :accessor n-kana :col-type integer :initform 0) 
     )
    (:metaclass dao-class)
    (:keys seq))
  
  (defmethod print-object ((obj entry) stream)
    (print-unreadable-object (obj stream :type t :identity nil)
      (format stream "~a ~a:~a" (seq obj) (n-kanji obj) (n-kana obj))))
  
  (deftable entry
    (!dao-def))
  