Changeset 5116

Timestamp:

Sep 5, 2006, 4:07:31 AM (18 years ago)

Author:

Gary Byers

Message:

No "x" in simple-base-string, when #-target-8-bit-chars.

File:

• trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp

@@ -218 +218 @@
 (define-cl-array-subtag single-float-vector ivector-class-32-bit 3)
 #-target-8-bit-chars
-(define-cl-array-subtag xsimple-base-string ivector-class-32-bit 5)
+(define-cl-array-subtag simple-base-string ivector-class-32-bit 5)
 (define-cl-array-subtag s16-vector ivector-class-other-bit 1)
 (define-cl-array-subtag u16-vector ivector-class-other-bit 2)