Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: fe4f6806 by Raymond Toy at 2016-12-17T08:40:21-08:00 Put sparc64 case before sparc Currently we still define :sparc so we need :sparc64 to come first to get the correct sparc64 directory instead of sparc. - - - - - 1 changed file: - src/tools/setup.lisp Changes: ===================================== src/tools/setup.lisp ===================================== --- a/src/tools/setup.lisp +++ b/src/tools/setup.lisp @@ -298,13 +298,13 @@ (cond ((c:target-featurep :pmax) "mips/") ((c:target-featurep :rt) "rt/") ((c:target-featurep :hppa) "hppa/") + ((c:target-featurep :sparc64) "sparc64/") ((c:target-featurep :sparc) "sparc/") ((c:target-featurep :x86) "x86/") ((c:target-featurep :alpha) "alpha/") ((c:target-featurep :sgi) "mips/") ((c:target-featurep :ppc) "ppc/") ((c:target-featurep :amd64) "amd64/") - ((c:target-featurep :sparc64) "sparc64/") (t (error "What machine is this?"))) (make-pathname :directory (pathname-directory f))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/fe4f6806960ad5c0cdaab41766...