Index: /trunk/ccl/lib/compile-ccl.lisp
===================================================================
--- /trunk/ccl/lib/compile-ccl.lisp	(revision 352)
+++ /trunk/ccl/lib/compile-ccl.lisp	(revision 353)
@@ -87,12 +87,10 @@
 					*host-backend*)))
   (case target
-    (:ppc *ppc-xdev-modules*)
-    (:sparc ())))
+    (:ppc32 *ppc-xdev-modules*)))
 
 (defun target-xload-modules (&optional (target
 					(backend-target-arch-name *host-backend*)))
   (case target
-    (:ppc *ppc-xload-modules*)
-    (:sparc *sparc-xload-modules*)))
+    (:ppc32 *ppc-xload-modules*)))
 
 
@@ -116,6 +114,5 @@
   (append *env-modules*
 	  (case target
-	    (:ppc '( ppc-lapmacros))
-	    (:sparc '(solaris-records sparc-lapmacros)))))
+	    (:ppc32 '( ppc-lapmacros)))))
 
 (defun target-compiler-modules (&optional (target
@@ -123,6 +120,5 @@
 					    *host-backend*)))
   (case target
-    (:ppc *ppc-compiler-modules*)
-    (:sparc *sparc-compiler-modules*)))
+    (:ppc32 *ppc-compiler-modules*)))
 
 (defparameter *other-lib-modules*
@@ -137,6 +133,5 @@
   (append *other-lib-modules*
 	  (case target
-	    (:ppc '(ppc-disassemble))
-	    (:sparc '(sparc-disassemble)))))
+	    (:ppc32 '(ppc-disassemble)))))
 
 (defun target-compiler-modules (&optional
@@ -144,6 +139,5 @@
 				 (backend-target-arch-name *target-backend*)))
   (case target
-    (:ppc *ppc-compiler-modules*)
-    (:sparc *sparc-compiler-modules*)))
+    (:ppc32 *ppc-compiler-modules*)))
 	  
 
@@ -350,6 +344,6 @@
   ; These won't compile correctly unless they're loaded 
   (update-modules *ppc-xload-modules* force)
-  (compile-modules (target-level-1-modules :ppc) force)
-  (compile-modules (target-lib-modules :ppc)  force)
+  (compile-modules (target-level-1-modules :ppc32) force)
+  (compile-modules (target-lib-modules :ppc32)  force)
   (compile-modules *aux-modules* force)
   (compile-modules *code-modules* force)