GitLab

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.

    (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)))))

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

Commits:

1 changed file:

Changes: