1 2 3 4 5 6 7 8 9
;;;; navigation (in-package :vampire) (defun create-navigation-header (parent) (with-clog-create parent (unordered-list () (list-item () (a (:link "/home" :content "Home"))) (list-item () (a (:link "/explore" :content "Explore"))))))