[Git][cmucl/cmucl][sparc64-dev] Put sparc64 case before sparc

Raymond Toy rtoy at common-lisp.net
Sat Dec 17 16:40:40 UTC 2016

Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl

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


--- 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/")
 	   (error "What machine is this?")))
     (make-pathname :directory (pathname-directory f)))))

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/fe4f6806960ad5c0cdaab417661637f82b25ac89
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20161217/cbae8490/attachment.html>

More information about the cmucl-cvs mailing list