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...