From 2ab53a8bac78c4f615bddc16b6bd36f9db2776de Mon Sep 17 00:00:00 2001 From: Philipp Marek Date: Sun, 15 Jul 2018 16:19:49 +0200 Subject: [PATCH] Documentation: use current package HUNCHENTOOT instead of old TBNL --- docs/index.html | 14 +++++++------- docs/index.xml | 14 +++++++------- www/hunchentoot-doc.html | 14 +++++++------- 3 files changed, 21 insertions(+), 21 deletions(-) diff --git a/docs/index.html b/docs/index.html index 227f92c..228e169 100644 --- a/docs/index.html +++ b/docs/index.html @@ -747,7 +747,7 @@ (asdf:load-system "drakma") ;;; Subclass ACCEPTOR -(defclass vhost (tbnl:acceptor) +(defclass vhost (hunchentoot:acceptor) ;; slots ((dispatch-table :initform '() @@ -758,12 +758,12 @@ :address "127.0.0.1")) ; because ACCEPTOR uses it ;;; Specialise ACCEPTOR-DISPATCH-REQUEST for VHOSTs -(defmethod tbnl:acceptor-dispatch-request ((vhost vhost) request) +(defmethod hunchentoot:acceptor-dispatch-request ((vhost vhost) request) ;; try REQUEST on each dispatcher in turn (mapc (lambda (dispatcher) (let ((handler (funcall dispatcher request))) (when handler ; Handler found. FUNCALL it and return result - (return-from tbnl:acceptor-dispatch-request (funcall handler))))) + (return-from hunchentoot:acceptor-dispatch-request (funcall handler))))) (dispatch-table vhost)) (call-next-method)) @@ -776,10 +776,10 @@ ;;; Populate each dispatch table (push - (tbnl:create-prefix-dispatcher "/foo" 'foo1) + (hunchentoot:create-prefix-dispatcher "/foo" 'foo1) (dispatch-table vhost1)) (push - (tbnl:create-prefix-dispatcher "/foo" 'foo2) + (hunchentoot:create-prefix-dispatcher "/foo" 'foo2) (dispatch-table vhost2)) ;;; Define handlers @@ -787,8 +787,8 @@ (defun foo2 () "Goodbye") ;;; Start VHOSTs -(tbnl:start vhost1) -(tbnl:start vhost2) +(hunchentoot:start vhost1) +(hunchentoot:start vhost2) ;;; Make some requests (drakma:http-request "http://127.0.0.1:50001/foo") diff --git a/docs/index.xml b/docs/index.xml index 5803a27..8af4d3a 100644 --- a/docs/index.xml +++ b/docs/index.xml @@ -763,7 +763,7 @@ (asdf:load-system "drakma") ;;; Subclass ACCEPTOR -(defclass vhost (tbnl:acceptor) +(defclass vhost (hunchentoot:acceptor) ;; slots ((dispatch-table :initform '() @@ -774,12 +774,12 @@ :address "127.0.0.1")) ; because ACCEPTOR uses it ;;; Specialise ACCEPTOR-DISPATCH-REQUEST for VHOSTs -(defmethod tbnl:acceptor-dispatch-request ((vhost vhost) request) +(defmethod hunchentoot:acceptor-dispatch-request ((vhost vhost) request) ;; try REQUEST on each dispatcher in turn (mapc (lambda (dispatcher) (let ((handler (funcall dispatcher request))) (when handler ; Handler found. FUNCALL it and return result - (return-from tbnl:acceptor-dispatch-request (funcall handler))))) + (return-from hunchentoot:acceptor-dispatch-request (funcall handler))))) (dispatch-table vhost)) (call-next-method)) @@ -792,10 +792,10 @@ ;;; Populate each dispatch table (push - (tbnl:create-prefix-dispatcher "/foo" 'foo1) + (hunchentoot:create-prefix-dispatcher "/foo" 'foo1) (dispatch-table vhost1)) (push - (tbnl:create-prefix-dispatcher "/foo" 'foo2) + (hunchentoot:create-prefix-dispatcher "/foo" 'foo2) (dispatch-table vhost2)) ;;; Define handlers @@ -803,8 +803,8 @@ (defun foo2 () "Goodbye") ;;; Start VHOSTs -(tbnl:start vhost1) -(tbnl:start vhost2) +(hunchentoot:start vhost1) +(hunchentoot:start vhost2) ;;; Make some requests (drakma:http-request "http://127.0.0.1:50001/foo") diff --git a/www/hunchentoot-doc.html b/www/hunchentoot-doc.html index 227f92c..228e169 100644 --- a/www/hunchentoot-doc.html +++ b/www/hunchentoot-doc.html @@ -747,7 +747,7 @@ (asdf:load-system "drakma") ;;; Subclass ACCEPTOR -(defclass vhost (tbnl:acceptor) +(defclass vhost (hunchentoot:acceptor) ;; slots ((dispatch-table :initform '() @@ -758,12 +758,12 @@ :address "127.0.0.1")) ; because ACCEPTOR uses it ;;; Specialise ACCEPTOR-DISPATCH-REQUEST for VHOSTs -(defmethod tbnl:acceptor-dispatch-request ((vhost vhost) request) +(defmethod hunchentoot:acceptor-dispatch-request ((vhost vhost) request) ;; try REQUEST on each dispatcher in turn (mapc (lambda (dispatcher) (let ((handler (funcall dispatcher request))) (when handler ; Handler found. FUNCALL it and return result - (return-from tbnl:acceptor-dispatch-request (funcall handler))))) + (return-from hunchentoot:acceptor-dispatch-request (funcall handler))))) (dispatch-table vhost)) (call-next-method)) @@ -776,10 +776,10 @@ ;;; Populate each dispatch table (push - (tbnl:create-prefix-dispatcher "/foo" 'foo1) + (hunchentoot:create-prefix-dispatcher "/foo" 'foo1) (dispatch-table vhost1)) (push - (tbnl:create-prefix-dispatcher "/foo" 'foo2) + (hunchentoot:create-prefix-dispatcher "/foo" 'foo2) (dispatch-table vhost2)) ;;; Define handlers @@ -787,8 +787,8 @@ (defun foo2 () "Goodbye") ;;; Start VHOSTs -(tbnl:start vhost1) -(tbnl:start vhost2) +(hunchentoot:start vhost1) +(hunchentoot:start vhost2) ;;; Make some requests (drakma:http-request "http://127.0.0.1:50001/foo") -- 2.11.4.GIT