mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2025-12-06 10:41:33 -08:00
fd7547aaa6
This is just a "Hello world" example. Simplify it and improve the readme. More feature full application may be found at: https://gitlab.common-lisp.net/ecl/ecl-android
19 lines
515 B
Common Lisp
19 lines
515 B
Common Lisp
(in-package :cl-user)
|
|
(format t "ECL (Embeddable Common-Lisp) ~A (git:~D)~%"
|
|
(lisp-implementation-version)
|
|
(ext:lisp-implementation-vcs-id))
|
|
|
|
(defvar *ecl-home* *default-pathname-defaults*)
|
|
|
|
(format t "Loading the modules~%")
|
|
(require '#:asdf)
|
|
(require '#:sockets)
|
|
(require '#:serve-event)
|
|
|
|
(setf asdf:*user-cache* (merge-pathnames #P"../cache/" *default-pathname-defaults*))
|
|
|
|
(pushnew (namestring *default-pathname-defaults*)
|
|
asdf:*central-registry*)
|
|
|
|
(when (probe-file #P"etc/user.lisp")
|
|
(load "etc/user"))
|