diff --git a/source/clog-base.lisp b/source/clog-base.lisp
index 58b0792..22966ec 100644
--- a/source/clog-base.lisp
+++ b/source/clog-base.lisp
@@ -1200,13 +1200,14 @@ ON-TOUCH-MOVE-HANDLER is nil unbind the event."))
 ON-TOUCH-END-HANDLER is nil unbind the event."))
 
 (defmethod set-on-touch-end ((obj clog-obj) handler
-			     &key (one-time nil) (cancel-event nil))
+                             &key (one-time nil) (cancel-event nil))
   (set-event obj "touchend"
-	     (when handler
-	       (lambda (data)
-		 (funcall handler obj '(:event-type :touch))))
-	     :one-time one-time
-	     :cancel-event cancel-event))
+             (when handler
+               (lambda (data)
+                 (declare (ignore data))
+                 (funcall handler obj '(:event-type :touch))))
+             :one-time one-time
+             :cancel-event cancel-event))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; set-on-touch-cancel ;;
@@ -1220,7 +1221,7 @@ ON-TOUCH-CANCEL-HANDLER is nil unbind the event."))
   (set-event obj "touchcancel"
 	     (when handler
 	       (lambda (data)
-		 (declare (ignore dara))
+		 (declare (ignore data))
 		 (funcall handler obj)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;
diff --git a/source/clog-element.lisp b/source/clog-element.lisp
index a76dcfb..4c34335 100644
--- a/source/clog-element.lisp
+++ b/source/clog-element.lisp
@@ -1693,7 +1693,7 @@ UNITS (default :px) is used."))
   (:documentation "Get/Setf inner-height. Includes padding but not border."))
 
 (defmethod inner-height ((obj clog-element))
-  (js-to-intger (jquery-query obj "innerHeight()")))
+  (js-to-integer (jquery-query obj "innerHeight()")))
 
 (defgeneric (setf inner-height) (value clog-element)
   (:documentation "Set inner-height VALUE for CLOG-ELEMENT"))
diff --git a/source/clog-webgl.lisp b/source/clog-webgl.lisp
index 8c7942e..95c6601 100644
--- a/source/clog-webgl.lisp
+++ b/source/clog-webgl.lisp
@@ -431,8 +431,7 @@ Used as a source for reading operations."))
 
 (defmethod check-frame-buffer-status ((obj clog-webgl) target)
   (js-to-integer (query obj (format nil "checkFrameBufferStatus(~A.~A)"
-                                    (script-id obj) target))
-                 :junk-allowed t))
+                                    (script-id obj) target))))
 
 (defgeneric clear-color (clog-webgl red green blue alpha)
   (:documentation "Specifies the color values used when clearing color buffers