diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-03-28 13:59:54 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-03-28 13:59:54 -0600 |
| commit | d3abba68fe367d18a29bd12aa320f4a57a5fe57d (patch) | |
| tree | f6c7f722d5a10af36b14ba6561bc3f9852fd541b /lisp/webapps/webapp-loader.lisp | |
| parent | 7d523da5d7defbf68a07f746a0d75ea18960267c (diff) | |
loop..do cleanup
Diffstat (limited to 'lisp/webapps/webapp-loader.lisp')
| -rw-r--r-- | lisp/webapps/webapp-loader.lisp | 41 |
1 files changed, 19 insertions, 22 deletions
diff --git a/lisp/webapps/webapp-loader.lisp b/lisp/webapps/webapp-loader.lisp index 7f1461e..e18f661 100644 --- a/lisp/webapps/webapp-loader.lisp +++ b/lisp/webapps/webapp-loader.lisp @@ -118,25 +118,25 @@ with the new one." (gethash key *webapps*)) (defun populate-webapps () - (loop for options-file in (get-options-files) do - (with-open-file (input options-file :direction :input) - (let* ((form (read input))) - (set-webapp (make-instance 'webapp - :name (getf form :name) - :scheme (getf form :scheme) - :url (getf form :url) - :document-root (make-webapp-path (getf form :document-root)) - :title (getf form :title) - :meta-description (getf form :meta-description) - :databases (getf form :databases) - :mail-mx (getf form :mail-mx) - :mail-from (getf form :mail-from) - :mail-postmaster (getf form :mail-postmaster) - :mail-webmaster (getf form :mail-webmaster) - :mail-info (getf form :mail-info) - :mail-login-notify (getf form :mail-login-notify) - :mail-authentication (getf form :mail-authentication) - :mail-ssl (getf form :mail-ssl))))))) + (loop for options-file in (get-options-files) + do (with-open-file (input options-file :direction :input) + (let* ((form (read input))) + (set-webapp (make-instance 'webapp + :name (getf form :name) + :scheme (getf form :scheme) + :url (getf form :url) + :document-root (make-webapp-path (getf form :document-root)) + :title (getf form :title) + :meta-description (getf form :meta-description) + :databases (getf form :databases) + :mail-mx (getf form :mail-mx) + :mail-from (getf form :mail-from) + :mail-postmaster (getf form :mail-postmaster) + :mail-webmaster (getf form :mail-webmaster) + :mail-info (getf form :mail-info) + :mail-login-notify (getf form :mail-login-notify) + :mail-authentication (getf form :mail-authentication) + :mail-ssl (getf form :mail-ssl))))))) (defun bogenherr () "Call this to start the server." @@ -175,6 +175,3 @@ you wish to publish." (easy-routes:defroute ,name ,template-and-options ,var-list (with-request-wrapper ,uri ,page-function ,@args))))) - ;; (define-easy-handler (,name :uri ,uri :default-request-type ,request-type) - ;; ,var-list - ;; (with-request-wrapper ,uri ,page-function ,@args))))) |