Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

dict-lemmatizer fails to build #36

Open
manugoswami opened this issue Sep 14, 2023 · 0 comments
Open

dict-lemmatizer fails to build #36

manugoswami opened this issue Sep 14, 2023 · 0 comments

Comments

@manugoswami
Copy link

dict-lemmatizer fails to build

Error below Kindly resolve most urgently

;;; Error:
;;; in file dict-lemmatizer.lisp, position 709
;;; at (DEFMETHOD LEMMATIZE ...)
;;; * The macro form (DEFMETHOD LEMMATIZE ((LEMMATIZER MEM-DICT) WORD &OPTIONAL POS) (UNLESS (LOOKUP (SMART-SLOT-VALUE LEMMATIZER 'WORDS) WORD) (RETURN-FROM LEMMATIZE WORD)) (LET ((POSS (POS-TAGS LEMMATIZER WORD) :TEST 'EQUALP)) (IF-IT (OR (MEMBER POS POSS) (UNLESS POS (MEMBER-IF (RUTILS.READTABLE::TRIVIAL-POSITIONAL-LAMBDA (= 2 (LENGTH (PRINC-TO-STRING (? % 0))))) POSS))) (VALUES WORD IT) (WITH ((WORD-POS PRESENT? (IF POS (COND-IT ((? (SMART-SLOT-VALUE LEMMATIZER 'FORMS) (WORD/POS WORD POS)) (VALUES IT T)) ((? (SMART-SLOT-VALUE LEMMATIZER 'FORMS) (WORD/POS WORD (FIRST (MKLIST POS)))) (VALUES (ARGMAX 'IDENTITY IT :KEY (RUTILS.READTABLE::TRIVIAL-POSITIONAL-LAMBDA (PRECEDENCE LEMMATIZER (? % 0 0)))) T))) (|GET#| WORD (SMART-SLOT-VALUE LEMMATIZER 'FORMS))))) (:= WORD-POS (REMOVE-DUPLICATES WORD-POS :TEST 'EQUALP)) (IF PRESENT? (VALUES (? WORD-POS 0 0) (? WORD-POS 0 1) (REST WORD-POS)) (VALUES NIL NIL (MAPCAR (RUTILS.READTABLE::TRIVIAL-POSITIONAL-LAMBDA (PAIR WORD %)) POSS))))))) was not expanded successfully.
;;; Error detected:
;;; In form
;;; (LET ((POSS (POS-TAGS LEMMATIZER WORD) :TEST 'EQUALP)) (IF-IT (OR (MEMBER POS POSS) (UNLESS POS (MEMBER-IF (RUTILS.READTABLE::TRIVIAL-POSITIONAL-LAMBDA (= 2 (LENGTH (PRINC-TO-STRING (? % 0))))) POSS))) (VALUES WORD IT) (WITH ((WORD-POS PRESENT? (IF POS (COND-IT ((? (SMART-SLOT-VALUE LEMMATIZER 'FORMS) (WORD/POS WORD POS)) (VALUES IT T)) ((? (SMART-SLOT-VALUE LEMMATIZER 'FORMS) (WORD/POS WORD (FIRST (MKLIST POS)))) (VALUES (ARGMAX 'IDENTITY IT :KEY (RUTILS.READTABLE::TRIVIAL-POSITIONAL-LAMBDA (PRECEDENCE LEMMATIZER (? % 0 0)))) T))) (|GET#| WORD (SMART-SLOT-VALUE LEMMATIZER 'FORMS))))) (:= WORD-POS (REMOVE-DUPLICATES WORD-POS :TEST 'EQUALP)) (IF PRESENT? (VALUES (? WORD-POS 0 0) (? WORD-POS 0 1) (REST WORD-POS)) (VALUES NIL NIL (MAPCAR (RUTILS.READTABLE::TRIVIAL-POSITIONAL-LAMBDA (PAIR WORD %)) POSS))))))
;;; LET: Ill formed declaration.
Condition of type: COMPILE-FILE-ERROR
COMPILE-FILE-ERROR while compiling #<cl-source-file "cl-nlp" "src" "lexics" "dict-lemmatizer">

Available restarts:

  1. (RETRY) Retry compiling #<cl-source-file "cl-nlp" "src" "lexics" "dict-lemmatizer">.
  2. (ACCEPT) Continue, treating compiling #<cl-source-file "cl-nlp" "src" "lexics" "dict-lemmatizer"> as having been successful.
  3. (RETRY) Retry ASDF operation.
  4. (CLEAR-CONFIGURATION-AND-RETRY) Retry ASDF operation after resetting the configuration.
  5. (ABORT) Give up on "cl-nlp"
  6. (REGISTER-LOCAL-PROJECTS) Register local projects and try again.
  7. (RESTART-TOPLEVEL) Go back to Top-Level REPL.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant