[Openmcl-cvs-notifications] r16194 - in /release/1.10/source: ./ level-1/l1-aprims.lisp

rme at clozure.com rme at clozure.com
Tue Sep 9 18:20:24 UTC 2014


Author: rme
Date: Tue Sep  9 18:20:24 2014
New Revision: 16194

Log:
Merge from trunk.

Modified:
    release/1.10/source/   (props changed)
    release/1.10/source/level-1/l1-aprims.lisp

Propchange: release/1.10/source/
---------------------------------------------------------------------------=
---
--- svn:mergeinfo	(original)
+++ svn:mergeinfo	Tue Sep  9 18:20:24 2014
@@ -4,4 +4,4 @@
 /branches/rme-logops:13875-13886
 /branches/working-0711/ccl:7970-13192,13197-13198,13202,13208,13214,13235-=
13236,13239,13263,13277-13278,13290,13293-13294,13302-13306,13331-13332,133=
39,13361-13364,13379,13383,13386,13388,13409,13435-13436,13438,13440-13442,=
13460-13461,13465,13467,13476,13487,13490,13492-13493,13502-13528,13545-135=
47,13549,13557-13558
 /release/1.5/source:13667
-/trunk/source:16167,16171,16173,16176-16177,16181-16182,16184-16185,16189-=
16190
+/trunk/source:16167,16171,16173,16176-16177,16181-16182,16184-16185,16189-=
16190,16193

Modified: release/1.10/source/level-1/l1-aprims.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- release/1.10/source/level-1/l1-aprims.lisp	(original)
+++ release/1.10/source/level-1/l1-aprims.lisp	Tue Sep  9 18:20:24 2014
@@ -595,7 +595,7 @@
     (unsigned-byte 32)
     (unsigned-byte 64)
     bogus
-    bogus
+    (complex double-float)
     single-float
     fixnum
     bogus
@@ -605,7 +605,7 @@
     bogus
     bogus
     base-char
-    bogus
+    (complex single-float)
     bogus
     bogus
     bogus
@@ -628,7 +628,7 @@
 #+x8664-target
 (progn
 =

-  ;;; 1, 8, 16-bit element types
+  ;;; other element types
   (defparameter *immheader-0-array-element-types*
     #(bogus
       bogus
@@ -639,10 +639,10 @@
       bogus
       bogus
       bogus
-      bogus
+      (complex double-float)
       (signed-byte 16)
       (unsigned-byte 16)
-      base-char
+      bogus
       (signed-byte 8)
       (unsigned-byte 8)
       bit))
@@ -679,7 +679,7 @@
       bogus
       bogus
       bogus
-      bogus
+      (complex single-float)
       fixnum
       (signed-byte 64)
       (unsigned-byte 64)



More information about the Openmcl-cvs-notifications mailing list