(defpackage lisp-on-lines-ucw (:documentation "An LoL Layer over ucw.basic") (:nicknames #:lol-ucw) (:use #:lisp-on-lines #:ucw :common-lisp :arnesi :yaclml) (:shadow #:standard-window-component #:make-action #:standard-action #:uri-parse-error #:standard-application #:call #:answer) (:shadowing-import-from :ucw #:parent) (:import-from :ucw #:register-action-in-frame #:+action-parameter-name+ #:context.current-frame #:uri.query #:*current-component* #:find-action #:service) (:export ;;; First, LOL-UCW exports. The rest are from UCW. #:lol-component #:defcomponent #:uri.query ;; Standard Server #:standard-server #:startup-server #:shutdown-server ;; Sessions #:get-session-value ;; Standard Application #:standard-application #:register-application #:service ;; Standard Request Context #:*context* #:context.current-frame #:context.window-component #:*current-component* ;; Actions #:call #:answer #:make-action #:find-action #:defaction #:defmethod/cc #:call-component #:answer-component ;; Entry Points #:defentry-point ;; Standard Components #:render #:render-html-body #:component #:standard-component-class #:described-component-class #:container #:find-component #:standard-window-component ;* #:window-body #:info-message )) (defpackage :lisp-on-lines-tags (:documentation "LoL convience yaclml tags.") (:use) (:nicknames #: