소개

지난번 간단하게 Clack 의 동작 확인을 할 수 있었으므로, 이번은 다음 번 이후 간단하게 사용할 수 있도록(듯이) 템플릿 프로그램을 작성해 두고 싶습니다.

패키징

Clack을 Quicklisp로로드하고 패키지 정의.

packages.lisp

;; Load Clack
(ql:quickload :clack)

;; Declare as a package
(defpackage sample-web-app
  (:use :common-lisp
        :clack))

템플릿 프로그램

Clack의 Github 페이지 의 샘플 프로그램을 조금만 했다.

clack.lisp

;; Load packages
(load "packages.lisp" :external-format :utf-8)

(in-package :sample-web-app)

;; Web Application Function
(defun app (env)
  (declare (ignore env))
  `(200
    ;; Header
    (:content-type "text/plain")
    ;; Body
    ("Hello, Clack!")))

;; Main function
(defun main ()
  (clackup #'app :port 5000 :debug t))

;; Execution
(main)

실행

다음 명령으로 실행합니다.

sbcl --load clack.lisp

・Windows7의 IE에서 확인한 결과



· Android의 Google 크롬에서 확인한 결과

마지막으로

우선, 여러가지 엉성한 모양으로 생겼다고 생각합니다.
후에는 더 사용법을 공부하고 할 수 있는 것을 늘려 가고 싶네요.

이번 소스 코드는 Github에서 공개하고 있습니다.
잘하면 아래에서 부디 ~.
· Github