publish.lisp 359 Bytes
Newer Older
1
2
3
4
5
6
(in-package :training-g108)

(publish :path "/training-g108"
	 :function #'(lambda(req ent)
		       (gwl-make-object req ent "training-g108:assembly")))

7
(defparameter *images-path* (merge-pathnames "documentation/training/g108/images/" glisp:*gendl-source-home*))
8
9


10
(publish-directory :prefix "/g108/images/" :destination (format nil "~a" *images-path*))
11
12