Skip to content
Snippets Groups Projects
Commit 93b17f2e authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

Merge branch 'rtoy-cmucl-set-path-defaults' into 'master'

Fix #8: Set *default-pathname-defaults* for cmucl.

Closes #8

See merge request !9
parents b374d6ec 336d83c6
No related branches found
No related tags found
No related merge requests found
...@@ -4,7 +4,15 @@ ...@@ -4,7 +4,15 @@
c:*suppress-compiler-notes* t c:*suppress-compiler-notes* t
c:*suppress-compiler-messages* t) c:*suppress-compiler-messages* t)
#+:armedbear (require 'pprint) #+: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 #+gcl (setq compiler:*suppress-compiler-notes* t
compiler:*suppress-compiler-warnings* t compiler:*suppress-compiler-warnings* t
compiler:*compile-verbose* nil compiler:*compile-verbose* nil
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment