Removed some unnecessary code that ignored an anaphor in define-ps-special-form ...

[clinton/parenscript.git] / t / ref2test.lisp

diff --git a/t/ref2test.lisp b/t/ref2test.lisp
index c6aea0c..7c761a8 100644 (file)
--- a/t/ref2test.lisp
+++ b/t/ref2test.lisp
@@ -1,4 +1,4 @@
-(in-package :js-test)
+(in-package :ps-test)
 ;;Generates automatic tests from the reference
 
 (defparameter +this-dir+ (asdf:component-pathname (asdf:find-component (asdf:find-system :parenscript.test) "t")))
@@ -12,12 +12,13 @@
                                               :type "lisp"
                                               :defaults +this-dir+))
 
-(defparameter +head+ "(in-package :js-test)
+(defparameter +head+ "(in-package :ps-test)
 ;; Tests of everything in the reference.
 ;; File is generated automatically from the text in reference.lisp by
 ;; the function make-reference-tests-dot-lisp in ref2test.lisp
 ;; so do not edit this file.
-(def-suite ref-tests)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (def-suite ref-tests))
 (in-suite ref-tests)~%~%") ; a double-quote for emacs: "
 
 (defun make-reference-tests-dot-lisp()
@@ -40,11 +41,11 @@
                                      :test #'char=)))
            (strip-indentation (str indentation)
              (if indentation
-                 (js::string-join (mapcar #'(lambda (str)
+                 (parenscript::string-join (mapcar #'(lambda (str)
                                           (if (> (length str) indentation)
                                               (subseq str indentation)
                                               str))
-                                      (js::string-split str (list #\Newline)))
+                                      (parenscript::string-split str (list #\Newline)))
                               (string #\Newline))
                  str))
 
@@ -101,5 +102,4 @@
                                               (list #\Newline))
                                             line))))))))))
 
-
 (make-reference-tests-dot-lisp)
\ No newline at end of file