Some minor comment and whitespace cleanup.

[clinton/parenscript.git] / src / deprecated-interface.lisp

diff --git a/src/deprecated-interface.lisp b/src/deprecated-interface.lisp
index a49132b..85470e9 100644 (file)
--- a/src/deprecated-interface.lisp
+++ b/src/deprecated-interface.lisp
@@ -10,12 +10,12 @@
 
 (defmacro defun-js (old-name new-name args &body body)
   `(defun ,old-name ,args
-    ,(when (and (stringp (car body)) (< 1 (length body))) ;; docstring
+    ,(when (and (stringp (car body)) (< 1 (length body))) ; docstring
            (car body))
     (warn-deprecated ',old-name ',new-name)
     ,@body))
 
-;;; DEPRECATED INTERFACE ;;;
+;;; DEPRECATED INTERFACE
 
 (defun js-equal (ps-form1 ps-form2)
   (warn-deprecated 'js-equal)
@@ -31,19 +31,6 @@
   (warn-deprecated 'defjsmacro 'defpsmacro)
   `(defpsmacro ,@args))
 
-(defmacro js-file (&rest body)
-  (warn-deprecated 'js-file)
-  `(html
-    (:princ
-     (js ,@body))))
-
-(defmacro js-script (&rest body)
-  (warn-deprecated 'js-script)
-  `((:script :type "text/javascript")
-    (:princ (format nil "~%// <![CDATA[~%"))
-    (:princ (js ,@body))
-    (:princ (format nil "~%// ]]>~%"))))
-
 (defmacro js-inline (&rest body)
   (warn-deprecated 'js-inline 'ps-inline)
   `(js-inline* '(progn ,@body)))