update system file to use strings for system names instead of uninter…

…ned symbols as per asdf best practices

smackjack.asd

@@ -1,17 +1,17 @@
 ;;;; smackjack.asd
 
-(asdf:defsystem #:smackjack
+(asdf:defsystem "smackjack"
   :serial t
   :version "0.1"
   :description "A small Ajax framework for hunchentoot using parenscript"
   :author "Andy Peterson <andy.arvid@gmail.com>"
   :license "MIT"
-  :depends-on (#:alexandria
-               #:hunchentoot
-               #:cl-json
-               #:parenscript
-               #:cl-containers
-               #+sbcl :sb-introspect)
+  :depends-on ("alexandria"
+               "hunchentoot"
+               "cl-json"
+               "parenscript"
+               "cl-containers"
+               #+sbcl "sb-introspect")
   :components ((:file "package")
                (:file "smackjack")
                (:file "pusher")

smackjack.lisp

@@ -100,7 +100,7 @@ lisp function using ajax"))
     :initarg :reply-external-format
     :type flexi-streams::external-format
     :accessor reply-external-format
-    :initform hunchentoot::+utf-8+
+    :initform hunchentoot::+utf-8+  ;;HT
     :documentation "The format for the character output stream"))
   (:documentation "The principal and controlling class of this
 library. The programmer will instantiate this class, define the ajax
@@ -121,7 +121,7 @@ be loaded to the browser."))
 One possible usage:
   (push (create-ajax-dispatcher your-ajax-processor)
         hunchentoot:*dispatch-table*)"))
-(defmethod create-ajax-dispatcher ((processor ajax-processor))
+(defmethod create-ajax-dispatcher ((processor ajax-processor))  ;HT
   (create-prefix-dispatcher (server-uri processor)
                             #'(lambda () (process-ajax-request processor))))