diff --git a/test/script-support.lisp b/test/script-support.lisp index 5b3d083d1f817bfd9e051088380fa60edf8bb812..e0cf6b551619913a299d21599efc4dd8a61e2c37 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -155,7 +155,6 @@ Some constraints: (truename (make-pathname :name nil :type nil :version nil :defaults (or *load-pathname* *compile-file-pathname* *default-pathname-defaults*)))) -(format t "bye, world~%") (defun make-sub-pathname (&rest keys &key defaults &allow-other-keys) (merge-pathnames (apply 'make-pathname keys) defaults)) (defun relative-dir (&rest dir) #-gcl (cons ':relative dir) #+gcl dir)