joekarma · August 31, 2012 07:33 · bobbysmith007 · Aug 31, 2012 · bobbysmith007 · Aug 31, 2012
diff --git a/gistfile1.lisp b/gistfile1.lisp
 (ql:quickload '(:drakma :closure-html :cxml :css-selectors))

 (let ((page (chtml:parse
             (drakma:http-request "http://www.google.com")
             (cxml-dom:make-dom-builder))))
  (css:query "div input" page))

 ;;
 ;; Fails with the following error message:
 ;;
 ;;  There is no applicable method for the generic function
 ;;    #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)>
 ;;  when called with arguments
 ;;    (#<RUNE-DOM::DOCUMENT {100FEA6FF3}>).
 ;;
	(ql:quickload '(:drakma :closure-html :cxml :css-selectors))

	(let ((page (chtml:parse
	(drakma:http-request "http://www.google.com")
	(cxml-dom:make-dom-builder))))
	(css:query "div input" page))

	;;
	;; Fails with the following error message:
	;;
	;; There is no applicable method for the generic function
	;; #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)>
	;; when called with arguments
	;; (#<RUNE-DOM::DOCUMENT {100FEA6FF3}>).
	;;