2020

🗓️ 17 Oct, 2020

올해 초 cl-state-machine 라이브러리를 만들어 공개한 이후로 커먼리습을 쓰지는 않았다.

다른 직업상 쓰는 언어들만을 쓰고 오픈소스와 개인적으로 만들고 싶은 프로젝트를 위해서 쓰는 언어인 커먼리습은 미뤄두었었다.

다시 커먼리습을 해야겠다고 생각이 들었다. 개인적으로 만들고 싶은 프로젝트도 있고, 그 프로젝트를 위해서 프론트엔드를 만드는데 React와 Vue을 써보고 이해하고 있어도 쓰고 싶지는 않기 때문이다.

사실 커먼리습은 그렇게 문법이 예쁘지도, 멋진 React와 같은 멋진 프레임웍이나 최신의 유행하는 라이브러리들을 모두 갖고 있지도 않다.

HyperSpec을 읽다 보면 아주 쉽게 정의되어 있는 키워드들이 일관성이 있지도, 지금 시대의 관점에서 보기에 익숙한 현대적인 용어들을 사용해서 이름을 지어놓지도 않았다.

…

Ping 17/Oct/2020

🗓️ 17 Oct, 2020

웹프론트엔드 개발을 조금씩 해보고 있다. 처음에는 예전 방식으로만 하려고 하다가 조금씩 겨우 써보던 webpack을 다시 가이드를 차근차근 공부하고 동작하는 방식을 이해하도록 뜯어보고 돌려봤다.

생각보다 단순하게, 그리고 확장성 있게 쓸만한 빌드도구였다.

다만 문제는 설정이 복잡하고 이해하기 힘든 점보다는 빌드 시간이 너무 느린 점이었다. (내게는)

그래서 parcel bundler을 시도 했는데, 설정도 거의 필요 없이 바로 동작하고 하는 점은 좋고, 성능도 정말 빨랐다.

다만 Vim/Emacs으로 파일을 편집하고 저장할 때, parcel watch 대상인 파일들을 종종 아예 dev-server을 재시작해야만 제대로 동작하는 상태로 빠지는게 조금 짜증났다. 기본으로 webpack보다는 이런 자잘한 부분이 좀 덜 다듬어진걸까 싶다.¹

…

Ping 16/Oct/2020

🗓️ 16 Oct, 2020

ADT¹만큼 만들어 쓰는 것은 아니지만, 그냥 Kotlin, Python의 dataclass 정도는 쓰고 싶어서 CommonLisp 매크로를 만들어봤다.²

equals 라이브러리를 써서 동치 비교와 CLOS의 print-object generic function을 구현해서 to-string 정도만 되도록 만들어 봤다.

macro body

 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


(defmacro define-data-class
    (class-name parent-classes slot-names
     &key (no-print-slot-names nil) (no-equals-slot-names nil))
  (flet ((accessor-symbol (slot-name)
           (alexandria:format-symbol *package*
                                     "~a-~a" class-name slot-name)))  
    (list 'progn          
          ;; defclass
          (let ((slot-defs (loop for slot-name in slot-names
                                 collecting `(,slot-name
                                              :initarg ,(alexandria:make-keyword slot-name)
                                              :accessor ,(accessor-symbol slot-name)))))
            `(defclass ,class-name ,parent-classes ,slot-defs))

          ;; defmethod print-object
          (let* ((print-slot-names (set-difference slot-names
                                                   no-print-slot-names))
                 (fmt-ctrl (format nil "~{~a=~~a~^, ~}" print-slot-names)))
            `(defmethod print-object ((obj ,class-name) stream)
               (print-unreadable-object (obj stream :type t)
                 (with-slots ,print-slot-names obj
                   (format stream ,fmt-ctrl ,@print-slot-names)))))

          ;; defmethod equals:equals
          (let* ((equals-slot-names (set-difference slot-names
                                                    no-equals-slot-names))
                 (equals-exprs (loop for equals-slot-name in equals-slot-names
                                     collecting `(equals:equals (slot-value lhs (quote ,equals-slot-name))
                                                                (slot-value rhs (quote ,equals-slot-name))))))
            `(defmethod equals:equals ((lhs ,class-name) (rhs ,class-name) &rest args)
               (declare (ignore args))
               (and t ,@equals-exprs)))
          )))

synopsis / usage

1
2
3
4
5
6


(define-data-class animal () (name age))

(define-data-class bird (animal) ())

(equals:equals (make-instance 'animal :name "foo" :age 18)
               (make-instance 'animal :name "foo" :age 18))

오랬만에 재밌었다.

…

(20/58)