diff --git a/gclload1.lsp b/gclload1.lsp index 22b1861b0dac2e63049aa4a20091aef067b7c346..1404afc01d76ce322663cbe5c1a25473b3d58eba 100644 --- a/gclload1.lsp +++ b/gclload1.lsp @@ -4,7 +4,15 @@ c:*suppress-compiler-notes* t c:*suppress-compiler-messages* t) #+:armedbear (require 'pprint) -#+cmu (setq ext:*gc-verbose* nil) +#+cmu +(progn + (setq ext:*gc-verbose* nil) + ;; Set *default-pathname-defaults* to include the full path to this + ;; file. This is needed for the tests so that they'll be loaded + ;; correctly from the subdirectories. + (setf *default-pathname-defaults* + (make-pathname :name nil :type nil :defaults *load-truename*))) + #+gcl (setq compiler:*suppress-compiler-notes* t compiler:*suppress-compiler-warnings* t compiler:*compile-verbose* nil