[ref2test finds reference.lisp in docs dir
henrik.hjelte@poboxes.com**20060201111712] {
hunk ./t/ref2test.lisp 4
-(defparameter +reference-file+ (make-pathname :name "reference"
-                                              :type "lisp"
-                                              :defaults *load-truename*))
+(defparameter +reference-file+ (merge-pathnames
+                                (make-pathname :directory '(:relative :back "docs"))
+                                (make-pathname :name "reference"
+                                               :type "lisp"
+                                               :defaults *load-truename*)))
+
+
hunk ./t/ref2test.lisp 73
-                  (format out-stream "(test-ps-js ~a-~a ~%  ~a ~%  \"~a\")~%~%"
+                  (format out-stream "(test-ps-js ~a-~a~%  ~a~%  \"~a\")~%~%"
hunk ./t/reference-tests.lisp 405
-  (default (alert "default clause"))) 
+  (t (alert "default clause")))
hunk ./t/reference-tests.lisp 417
-(test-ps-js the-case-statement-2 
+(test-ps-js the-case-statement-2
hunk ./t/reference-tests.lisp 421
-  (default (alert "I always get here"))) 
+  (default (alert "I always get here")))
}