Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge pull request #2 from RobBlackwell/master

Fixes a problem with loading the lexicon on SBCL
  • Loading branch information...
commit 38beec7a82eeb35b0bfb0824a41d13ed94fc648b 2 parents 1d43de0 + 192bb30
@kraison kraison authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/lexicon.lisp
View
4 src/lexicon.lisp
@@ -34,14 +34,14 @@
(with-static-memory-allocation ()
(write-log lexicon-init "Reading lexicon from ~A" lexicon-file)
;; Parse the lines into a predicate ID and two node structures
- (with-open-file ( s lexicon-file :external-format :ascii)
+ (with-open-file ( s lexicon-file :external-format :iso-8859-1)
(do-count-contentful-lines (l count s)
(when (= (mod count 10000) 0) (write-log lexicon-init "Processed ~A lines" count))
(let ((lexicon-entry (extract-words l))) ;; (pregex:split "\\s+" l)))
(add-basic-entry (car lexicon-entry) (mapcar #'mkkeysym (cdr lexicon-entry))))))
(write-log lexicon-init "Reading word->lemma data from ~A" lemma-file)
;; Parse the lines into a predicate ID and possible roots
- (with-open-file ( s lemma-file :external-format :ascii)
+ (with-open-file ( s lemma-file :external-format :iso-8859-1)
(do-count-contentful-lines (l count s)
(when (= (mod count 10000) 0) (write-log lexicon-init "Processed ~A lines" count))
(let ((roots-entry (extract-words l)))
Please sign in to comment.
Something went wrong with that request. Please try again.