Uwaga, wpis bardzo ezoteryczny. Proszę się nie popadać w samodeprecjacje

Jakiś czas temu, jak przymierzałem się do zakupu VPS z ograniczoną jak na współczesne warunki pamięcią operacyjna 128MB, testowałem zajętość pamięci różnych rzeczy. Tak aby zobaczyć, ile kosztuje MB przyjemności :-). Pamiętam, że SBCL + zajmował jakieś 20MB RSS/ 90MB VSZ. Wartość ta była akceptowalna.

Wczoraj skopiowałem tajny projekt dino na mojego VPSa. Uruchamiam i patrze a tu 50MB zjedzone. Co jest? Czyżbym się znów pomylił, jak to było z kursem dolara kanadyjskiego? Otóż nie. Do testów użyłem dino, co operowało na zrzuconym rdzeniu (ang: core dump). A wczoraj ładował biblioteki przy starcie do standardowego rdzenia. Zatem mogę polecić uruchamianie common-lispa z własnego rdzenia. Dwie zalety:

1. obiekty które są ładowane z rdzenia, są w przestrzeni read-only, po której to garbaty (ang. garbage collector) nie biega, przez co oszczędza sobie pracy
2. strony rdzenia ładowane są tylko w przypadku gdy są używane, zatem nieużywane fragmenty bibliotek nie zalegają w stercie (ang heap) ani w przestrzeni wymiany (ang. swap)

A teraz krótka instrukcja jak zrzucić rdzeń i potem go użyć.

1. Tworzymy plik dump-core.lisp z listą ulubionych bibliotek

   (require :asdf)
   (require :sb-posix)
   
   (asdf:oos 'asdf:load-op :swank)
   (asdf:oos 'asdf:load-op :clark) ;; to też tajny projekt 
   (asdf:oos 'asdf:load-op :hunchentoot)
   
   (sb-ext:save-lisp-and-die "my-core.core")
    

2. Zrzucamy rdzeń:

   sbcl --disable-debugger --noprint --no-userinit --load dump-core.lisp
   

3. Tworzymy plik startowy start.lisp:

   (clark::start-server)
   (swank:create-server :port 4005 :dont-close t :external-format :utf-8-unix)
   (hunchentoot:start-server :port 4242)
   

4. Teraz uruchamiany nasz rdzeń z włączonym Hunchentootem i Slimem gotowym do hackowania kolejnego killer-app’a:

   sbcl --core my-core.core --disable-debugger --noprint --no-userinit --load start.lisp
   

5. Przeglądarkę kierujemy na adres localhost:4242 a w Emacsie
   uruchamiamy M-x slime-connect.
6. Hack, hack, hack
7. Zysk

Wyżej wymieniona instrukcja stanie się niepotrzebna, gdy w końcu zrobię wydanie dino. Na razie jeden z komponentów jest już wersji alfa clget :-).