From 65b2c5592aaf3ad62e4322197d794bda5fdac95d Mon Sep 17 00:00:00 2001 From: bymoz089 <15787117+bymoz089@users.noreply.github.com> Date: Mon, 4 Nov 2024 18:39:12 +0100 Subject: [PATCH 1/2] fix :type specifier (part 1) bug: https://github.com/aarvid/SmackJack/issues/4 --- smackjack.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/smackjack.lisp b/smackjack.lisp index 48b006c..7952744 100644 --- a/smackjack.lisp +++ b/smackjack.lisp @@ -22,14 +22,14 @@ :accessor http-method :initarg :method :initform :get - :type '(member :post :get) + :type (member :post :get) :documentation "http method of the lisp ajax function") (callback-data :accessor callback-data :initarg :callback-data :initform :response-xml - :type '(member :request-object :response-xml :response-text - :response-xml-text :json) + :type (member :request-object :response-xml :response-text + :response-xml-text :json) :documentation "argument passed to callback function from ajax response. Content-type should correspond.") (content-type From 53e3035ccb82d1d3abb3e7b2d29db540a0f34f6a Mon Sep 17 00:00:00 2001 From: bymoz089 <15787117+bymoz089@users.noreply.github.com> Date: Mon, 4 Nov 2024 18:40:22 +0100 Subject: [PATCH 2/2] fix :type specifier (part 2) bug: https://github.com/aarvid/SmackJack/issues/4 --- pusher.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pusher.lisp b/pusher.lisp index fde60cc..1294be3 100644 --- a/pusher.lisp +++ b/pusher.lisp @@ -64,8 +64,8 @@ on page load") :accessor push-default-sessions :initarg :default-sessions :initform :acceptor-sessions - :type '(member :current-session :acceptor-sessions - :acceptor-sessions-except-current) + :type (member :current-session :acceptor-sessions + :acceptor-sessions-except-current) :documentation "If a push function is called and the hunchentoot sessions are not specified, this will determine which in sessions the push call happens on the client side."))