cl-wn-org/data.lisp at master · hmuniz/cl-wn-org · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
(in-package #:cl-wn-org)

(defclass synset ()
  ((lex-filenum :initarg :lex-filenum
		:initform nil
		:accessor synset-lnum)

   (slot-pointers :initarg :slot-pointers
	        :initform nil
	        :accessor synset-slot-pointers)

   (pointers    :initarg :pointers
	        :initform nil
	        :accessor synset-pointers)

   (senses      :initarg :words
		:initform nil
		:accessor synset-senses)

   (gloss       :initarg :gloss
		:initform nil
		:accessor synset-gloss)
   (w           :initarg :w
		:initform nil
		:accessor synset-w)))


(defclass sense ()
  ((word             :initarg :word
		     :initform nil
		     :accessor sense-word)
   (links-targets    :initarg :links-targets
		     :initform nil
		     :accessor sense-links-targets)))