doc: update snapshot

Author: netpyoung

src/Index.md

@@ -2,6 +2,25 @@
 
 🚧 사이트 공사중입니다.
 
+LISP(`LIS`t `P`rocessing)
+
+- **[간단하게 살펴보기(Learn X in Y minutes)](https://learnxinyminutes.com/ko/common-lisp/)**
+
+
+- [CADR LISP Machine](https://metebalci.com/blog/cadr-lisp-machine-and-cadr-processor/)
+  ![CADR LISP Machine](res/mit-lisp-machine-3478-72lg.jpg)
+
+
+
+
+## REPL
+
+REPL: 읽고(`R`ead) 평가하고(`E`val) 출력(`P`rint)을 반복(`L`oop)
+
+``` lisp
+* (load "hello.lisp")
+```
+
 ## Ref
 
-- [wiki: Common Lisp](https://en.wikipedia.org/wiki/Common_Lisp)
+- [wiki: Common Lisp](https://en.wikipedia.org/wiki/Common_Lisp)

src/SUMMARY.md

@@ -44,18 +44,15 @@
   - [gensym](./advanced/gensym.md)
 - [디버그](./advanced/debug.md)
 - [asdf](./advanced/asdf.md)
+- [FFI(Foreign Function Interface)](./advanced/ffi.md)
+- [test](./advanced/test.md)
+- [regexp](./advanced/regexp.md)
+- [network](./advanced/network.md)
 
 # Common Lisp Object System
 
 - [CLOS](./clos/clos.md)
 
-# 박물관
-
-- [커먼리스프 역사](./museum/history.md)
-- [배포판](./museum/implementation.md)
-- [인물들](./museum/people/people.md)
-  - [John McCarthy](./museum/people/john-mccarthy.md)
-
 # 어둠의 길
 
 - [리더매크로](./darkside/reader-macro.md)
@@ -71,6 +68,17 @@
 
 - [Quicklisp](./library/quicklisp.md)
 
+# 박물관
+
+- [커먼리스프 역사](./museum/history.md)
+- [배포판](./museum/implementation.md)
+- [인물들](./museum/people/people.md)
+  - [John McCarthy](./museum/people/john-mccarthy.md)
+
+# Lisp 만들기
+
+- [Lisp 만들기](./making/writing-lisp.md)
+
 # 참고
 
 - [참고자료](./reference/reference.md)

src/advanced/asdf.md

@@ -1 +1,184 @@
-# asdf
+# ASDF
+
+| 버전 |                                                         |
+| ---- | ------------------------------------------------------- |
+| 3    | released May 15th 2013. UIOP is part of ASDF 3          |
+| 2    | François-René Rideau's ASDF 2 (released May 31st 2010). |
+| 1    | Daniel Barlow's ASDF (created on August 1st 2001)       |
+
+
+- [ASDF](https://asdf.common-lisp.dev/)
+  - `A`nother `S`ystem `D`efinition `F`acility
+- .asd 파일
+  - lisp 프로젝트 관리 파일
+  - `A`SDF `s`ystem `d`efinition
+
+
+
+| 경로                               | 설명                                        |
+| ---------------------------------- | ------------------------------------------- |
+| ~/common-lisp/                     | Common Lisp 소프트웨어 설치 기본 위치(권장) |
+| ~/.local/share/common-lisp/source/ |                                             |
+
+- 크게 다음 2파트로 나뉩니다.
+  - `asdf/defsystem`: 패키지정의
+  - `uiop`: 유틸리티
+
+
+
+``` lisp
+;; file: helloworld/helloworld.asdf
+
+(asdf:defsystem "helloworld"
+
+  :build-operation program-op
+  :build-pathname "helloworld"
+  :entry-point "helloworld::main"
+
+  :depends-on ()
+
+  :components
+  ((:static-file "README.md")
+   (:module "src"
+    :depends-on ()
+    :components
+    ((:file "package")
+     (:file "hello" :depends-on ("package"))))))
+```
+
+``` lisp
+;; file: helloworld/src/package.lisp
+
+(defpackage :helloworld
+  (:use :common-lisp))
+(in-package :helloworld)
+```
+
+``` lisp
+;; file: helloworld/src/hello.lisp
+
+(in-package :helloworld)
+
+(defun -main (args)
+  (princ args))
+
+(defun main ()
+  (-main (uiop:command-line-arguments)))
+```
+
+## .asd
+
+시스템이 있고 그 다음 패키지
+
+- #P"..." : Common Lisp에서 pathname 리터럴을 의미합니다.
+  - 예: #P"/home/user/code" → (make-pathname :directory '(:absolute "home" "user" "code"))
+  - 해당 경로가 실제 존재하는지는 확인하지 않음
+- truename : Pathname 리턴
+  - (truename "D:/@lisp/my-lisp-systems") ;; => #P"D:/@lisp/my-lisp-systems/"
+  - 경로가 존재하지 않으면 에러
+
+``` lisp
+(require 'asdf) ; => ("ASDF" "asdf" "UIOP" "uiop")
+
+;;; 버전 확인
+(asdf:asdf-version) ; => "3.3.1"
+
+;;; 시스템 폴더를 센트럴 레지스트리에 추가
+(pushnew (truename "D:/@lisp/my-lisp-systems/helloworld") asdf:*central-registry*)
+
+;;; 시스템 로드. helloworld.asd 파일을 읽어들임
+(asdf:load-system :helloworld)
+
+;;; 시스템 로드 ( 강제 )
+(asdf:load-system :helloworld :force t)
+
+
+(asdf:make :helloworld)
+
+
+(asdf:load-system :helloworld)
+(asdf:compile-system :helloworld)
+```
+
+
+
+.fasl - `Fas`t `L`oading (or Loadable) file
+(asdf:operate 'asdf:compile-bundle-op :helloworld :verbose t)
+
+|                              |                                                                                                 |
+| ---------------------------- | ----------------------------------------------------------------------------------------------- |
+| program-op                   | (create a standalone application, which we will see below), etc.                                |
+| compile-bundle-op            | (create a single fasl for the entire system, for delivery),                                     |
+| monolithic-compile-bundle-op | (create a single fasl for the entire system and all its transitive dependencies, for delivery), |
+| compile-op                   | (ensure the system is compiled, without necessarily loading all of it, or any bit of it),       |
+| image-op                     | (create a development image with this system already loaded, for fast startup),                 |
+| load-source-op               | (load the system from source without compiling),                                                |
+
+compile-bundle-op필요한 각 시스템에 대해 하나의 FASL 파일을 생성하고, 여러 FASL을 하나로 묶어 각 시스템을 하나의 FASL로 제공할 수 있습니다.
+monolithic-compile-bundle-op대상 시스템과 모든 종속성에 대해 하나의 FASL 파일을 생성하여 전체 애플리케이션을 하나의 FASL로 제공할 수 있습니다
+
+(defsystem :mysystem :class :precompiled-system
+  :fasl (some expression that will evaluate to a pathname))
+
+;; asdf:operate == asdf:oos (  operate-on-system )
+
+(asdf/output-translations:output-translations)
+asdf/output-translations:*output-translations*
+https://github.com/fare/asdf/blob/master/output-translations.lisp
+
+https://www.sbcl.org/manual/asdf.html#Configuring-ASDF-to-find-your-systems
+
+## asdf/defsystem
+
+- <https://asdf.common-lisp.dev/asdf.html>
+- <https://www.sbcl.org/manual/asdf.html>
+- <https://qiita.com/MYAO/items/874aafcc531862c5f7c7>
+- <https://github.com/fare/asdf/blob/master/doc/best_practices.md>
+
+
+## uiop
+
+UIOP(`U`tilities for `I`mplementation and `O`S-`P`ortability)
+
+- <https://asdf.common-lisp.dev/uiop.html>
+- <https://quickdocs.org/uiop>
+- <https://zenn.dev/hyotang666/articles/3f7abcec6f8270>
+
+``` lisp
+;; example
+
+(require 'asdf) ; => ("ASDF" "asdf" "UIOP" "uiop")
+
+(uiop:command-line-arguments) ; 커맨드라인 인자
+
+(uiop:getenv "USER")
+
+(uiop:run-program "firefox") ; 동기
+(uiop:launch-program "firefox") ; 비동기
+
+(uiop:run-program (list "git" "--help") :output t)
+(uiop:run-program "htop" :output :interactive :input :interactive)
+
+;;; pipe: ls | sort
+(uiop:run-program "sort"
+                   :input
+                   (uiop:process-info-output
+                    (uiop:launch-program "ls"
+                                         :output :stream))
+                   :output :string)
+(uiop:with-temporary-file (:stream s :pathname p :keep t)
+  (format t "path is ~a~%" p)
+  (format s "hello, temporary file!"))
+
+(uiop:quit 0)
+```
+
+## Ref
+
+- <https://asdf.common-lisp.dev/asdf.html>
+  - <https://asdf.common-lisp.dev/uiop.html>
+  - <https://asdf.common-lisp.dev/uiop.html#UIOP_002fOS>
+  - <https://asdf.common-lisp.dev/uiop.html#UIOP_002fFILESYSTEM>
+  - <https://asdf.common-lisp.dev/uiop.html#UIOP_002fUTILITY>
+  - <https://asdf.common-lisp.dev/uiop.html#UIOP_002fPACKAGE>
+  - <https://asdf.common-lisp.dev/asdf.html#Defining-systems-with-defsystem>

src/advanced/debug.md

@@ -1 +1,11 @@
 # 디버그
+
+(declaim (optimize (debug 3) (speed 0) (safety 3)))
+
+(declare (ignore arg))
+
+## Ref
+
+- <https://malisper.me/category/debugging-common-lisp/>
+- [Debugging Lisp: fix and resume a program from any point in the stack - how Common Lisp stands out.](https://www.youtube.com/watch?v=jBBS4FeY7XM)
+- <https://cl-community-spec.github.io/pages/invoke_002ddebugger.html>

src/advanced/error.md

@@ -1 +1,25 @@
 # 에러
+
+error
+warn
+'simple-error
+(signal (make-condition 'error) )
+(define-condition my-condition (simple-condition) // 사용자 에러 정의
+ )
+
+// sb-xc (ignore-errors (error "wtf"))
+(unwind-protect (error "wtf")
+ )
+ 
+(invoke-debugger
+(trivial-backtrace:print-backtrace
+https://github.com/hraban/trivial-backtrace
+Portable simple API to work with backtraces in Common Lisp
+
+
+
+handle-case
+https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node346.html
+https://lisp-docs.github.io/cl-language-reference/chap-9/j-b-condition-system-concepts
+
+https://cl-community-spec.github.io/pages/handler_002dbind.html

src/advanced/ffi.md

@@ -0,0 +1,19 @@
+# FFI(Foreign Function Interface)
+
+
+ABI(`A`pplication `B`inary `I`nterface)
+
+C ABI C언어의 ABI
+
+FFI(`F`oreign `F`unction `I`nterface)
+2. FFI는 ABI 호환을 맞춰주는 "인터페이스" 역할
+
+libclang: Clang의 내부 AST(Abstract Syntax Tree)을 외부에서 분석할 수 있게 해주는 C API 라이브러리
+
+
+- cffi
+  - <https://github.com/cffi/cffi>
+    - <https://github.com/rpav/c2ffi>
+  - <https://cffi.common-lisp.dev/>
+- cl-autowrap
+  - <https://github.com/rpav/cl-autowrap>

src/advanced/macro.md

@@ -1 +1,76 @@
 # 매크로
+
+|     |              |
+| --- | ------------ |
+| `   | Backquote    |
+| ,   | Comma        |
+| ,@  | Comma-splice |
+| ',  | Quote-comma  |
+
+
+
+quote
+defmacro
+
+매크로 확장
+M-x slime-macroexpand-all (C-c M-m)
+
+매크로를 수정하게 되면 매크로를 쓴 함수 역시 다시 평가해야 하는데
+M-x slime-who-macroexpands 로 찾고 C-c C-k로 컴파일
+
+
+&body
+(gensym)
+variable capture
+
+
+- compile function
+  - read time - reader macros
+  - macro expansion time - macros
+  - compilation time
+  - run time - function
+
+
+alexandria:with-gensyms
+https://alexandria.common-lisp.dev/
+https://gitlab.common-lisp.net/alexandria/alexandria
+
+
+================================================================================================================================================
+define-symbol-macro
+symbol-macrolet
+
+sharpsign(#)  - https://www.lispworks.com/documentation/HyperSpec/Body/02_dh.htm
+
+#. read-time evaluation
+
+(defun func1 ()
+  :my-func1)
+
+(defun #.(func1) ()
+  :kkk)
+
+;;> (:func1)
+;;=> :FUNC10
+;;> (:my-func1)
+;;=> :KKK
+
+(asdf:defsystem "mysystem"
+  :decription "short description"
+  :long-description
+  #.(uiop:read-file-string (subpathname *load-pathname* "README.md")))
+  
+  
+- sly-macrostep
+  - <https://github.com/joaotavora/sly-macrostep>
+
+
+- <https://cl-community-spec.github.io/pages/gensym.html>
+- <https://cl-community-spec.github.io/pages/quote.html>
+- <https://lispkorea.github.io/successful-lisp-kr/ch03/lesson_03.html>
+- <https://lispkorea.github.io/successful-lisp-kr/ch03/lesson_08.html>
+
+
+
+- `gensym`
+- `quote`

src/advanced/network.md

@@ -0,0 +1 @@
+# network