[Lisp] 클래스

#Lisp/Common Lisp

놀랍게도 리습은 클래스를 제공한다.
좀 형태가 기괴하긴 하다만

리습에서 클래스는 defclass라는 함수로 정의할 수 있다.
(defclass 클래스명 (슈퍼클래스명)
** (멤버들...)**
** (클래스옵션...)**
)

그리고 클래스의 객체생성은 make-instance 함수로 처리한다.

이상하긴한데 실행은 된다.

근데 문제가 있다.
x와 y를 멤버로 두긴 했는데, 저기에 접근할 방법이 없다는 것이다...

접근하려면 별도의 속성을 붙여줘야한다.
그 중 하나가 :accessor다.
각 속성을 소괄호로 다시 분리해서, :accessor와 접근함수명을 지정해주면 지정한 이름으로 외부접근이 가능해진다.

참고로 콜론(:)은 저 속성 앞에 딱 붙어있어야 한다.

메서드의 정의는 defmethod 함수를 사용한다.
(defmethod 메서드명 ((object 클래스명))
** (반환식)**
)

출력만 하는 간단한 메서드 print-point를 정의한 코드다.

이제껏 손으로 멤버를 초기화했지만, 초기화하지 않았을 경우에도 사용할 수 있게 기본값을 지정할 수 있다.
속성은 initform이다.

initarg로 생성시 호출될 이름을 등록하면, make-instance로 생성할때 인자를 넘겨 초기화를 시킬 수도 있다.
이름은 콜론으로 시작해야한다.

상속받는 것도 가능하다. x, y에 더해 z까지 갖는 클래스 Point3를 확장해본다.

Point3라는 별개의 클래스가 됐지만 여전히 Point의 메서드나 접근자를 사용할 수 있다.