Move internal/library to internal, xerox font dirs, loadup and medleydir (#709)

* Move internal/library to internal, xerox font dirs, loadup and medleydir

* and MEDLEYDIR too

* mised some changes in 'promote/internal'

* tiny typo

internal/FLOAT-ARRAY-SUPPORT

@@ -0,0 +1,198 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED "15-Jun-90 14:17:57" 
+{DSK}<usr>local>lde>lispcore>internal>library>FLOAT-ARRAY-SUPPORT.;2
 7381   
+
+      changes to%:  (VARS FLOAT-ARRAY-SUPPORTCOMS)
+
+      previous date%: " 5-Dec-86 18:23:44" 
+{DSK}<usr>local>lde>lispcore>internal>library>FLOAT-ARRAY-SUPPORT.;1)
+
+
+(* ; "
+Copyright (c) 1986, 1990 by Venue & Xerox Corporation.  All rights reserved.
+")
+
+(PRETTYCOMPRINT FLOAT-ARRAY-SUPPORTCOMS)
+
+(RPAQQ FLOAT-ARRAY-SUPPORTCOMS

+       ((FILES (SYSLOAD FROM VALUEOF DIRECTORIES)
+               UNBOXEDOPS)
+        (FUNCTIONS %%BLKEXPONENT %%BLKFABSMAX %%BLKFABSMIN %%BLKFMAX %%BLKFMIN %%BLKFPLUS %%BLKFDIFF
+               %%BLKFTIMES %%BLKPERM %%BLKSMALLP2FLOAT %%FLOATTOBYTE %%GET-FLOAT-ARRAY-BASE 
+               %%INSURE-ARRAY %%MATMULT-133 %%MATMULT-144 %%MATMULT-331 %%MATMULT-333 %%MATMULT-441 
+               %%MATMULT-444 %%MUL2 %%POLY-EVAL %%TEST-ARRAY MAKE-FLOAT-ARRAY MAKE-FLOAT-VECTOR 
+               SINGLE-FLOAT-ARRAY-P SINGLE-FLOAT-VECTOR-P)
+        (OPTIMIZERS %%POLY-EVAL %%MATMULT-133 %%MATMULT-144 %%MATMULT-331 %%MATMULT-333 %%MATMULT-441
+               %%MATMULT-444)
+        (PROP DOPVAL %%BLKEXPONENT %%BLKFABSMAX %%BLKFABSMIN %%BLKFDIFF %%BLKFMAX %%BLKFMIN 
+              %%BLKFPLUS %%BLKFTIMES %%BLKPERM %%BLKSMALLP2FLOAT %%FLOATTOBYTE)
+        (PROP FILETYPE FLOAT-ARRAY-SUPPORT)
+        (DECLARE%: DONTCOPY DOEVAL@COMPILE DONTEVAL@LOAD (LOCALVARS . T))))
+
+(FILESLOAD (SYSLOAD FROM VALUEOF DIRECTORIES)
+       UNBOXEDOPS)
+
+(CL:DEFUN %%BLKEXPONENT
 (SOURCE DEST SIZE)
+   (\MISC3.UFN SOURCE DEST SIZE 0))
+
+(CL:DEFUN %%BLKFABSMAX
 (BASE ZERO SIZE)
+   (\MISC3.UFN BASE ZERO SIZE 6))
+
+(CL:DEFUN %%BLKFABSMIN
 (BASE ZERO SIZE)
+   (\MISC3.UFN BASE ZERO SIZE 7))
+
+(CL:DEFUN %%BLKFMAX
 (BASE ZERO SIZE)
+   (\MISC3.UFN BASE ZERO SIZE 4))
+
+(CL:DEFUN %%BLKFMIN
 (BASE ZERO SIZE)
+   (\MISC3.UFN BASE ZERO SIZE 5))
+
+(CL:DEFUN %%BLKFPLUS
 (SOURCE1 SOURCE2 DEST SIZE)
+   (\MISC4.UFN SOURCE1 SOURCE2 DEST SIZE 2))
+
+(CL:DEFUN %%BLKFDIFF
 (SOURCE1 SOURCE2 DEST SIZE)
+   (\MISC4.UFN SOURCE1 SOURCE2 DEST SIZE 3))
+
+(CL:DEFUN %%BLKFTIMES
 (SOURCE1 SOURCE2 DEST SIZE)
+   (\MISC4.UFN SOURCE1 SOURCE2 DEST SIZE 0))
+
+(CL:DEFUN %%BLKPERM
 (SOURCE PERMUTATION DEST SIZE)
+   (\MISC4.UFN SOURCE PERMUTATION DEST SIZE 1))
+
+(CL:DEFUN %%BLKSMALLP2FLOAT
 (SOURCE DEST SIZE)
+   (\MISC3.UFN SOURCE DEST SIZE 2))
+
+(CL:DEFUN %%FLOATTOBYTE
 (SOURCE DEST SIZE)
+   (\MISC3.UFN SOURCE DEST SIZE 8))
+
+(DEFMACRO %%GET-FLOAT-ARRAY-BASE
 (FLOAT-ARRAY)
+   `(\ADDBASE (%%ARRAY-BASE ,FLOAT-ARRAY)
+           (LLSH (%%ARRAY-OFFSET ,FLOAT-ARRAY)
+                 1)))
+
+(DEFMACRO %%INSURE-ARRAY
 (RESULT TEST-DIMS &OPTIONAL (MAKE-DIMS (LIST 'QUOTE TEST-DIMS)))
+   `(CL:IF ,RESULT
+        (%%TEST-ARRAY
 ,RESULT ,TEST-DIMS)
+        (CL:MAKE-ARRAY ,MAKE-DIMS :ELEMENT-TYPE 'CL:SINGLE-FLOAT)))
+
+(CL:DEFUN %%MATMULT-133
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+   (\UNBOXFLOAT3 MATRIXABASE MATRIXBBASE MATRIXCBASE 3))
+
+(CL:DEFUN %%MATMULT-144
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+   (\UNBOXFLOAT3 MATRIXABASE MATRIXBBASE MATRIXCBASE 5))
+
+(CL:DEFUN %%MATMULT-331
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+   (\UNBOXFLOAT3 MATRIXABASE MATRIXBBASE MATRIXCBASE 4))
+
+(CL:DEFUN %%MATMULT-333
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+   (\UNBOXFLOAT3 MATRIXABASE MATRIXBBASE MATRIXCBASE 1))
+
+(CL:DEFUN %%MATMULT-441
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+   (\UNBOXFLOAT3 MATRIXABASE MATRIXBBASE MATRIXCBASE 6))
+
+(CL:DEFUN %%MATMULT-444
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+   (\UNBOXFLOAT3 MATRIXABASE MATRIXBBASE MATRIXCBASE 2))
+
+(DEFMACRO %%MUL2
 (X)
+   `(LLSH ,X 1))
+
+(CL:DEFUN %%POLY-EVAL
 (X BASE SIZE)
+   (\FLOATBOX (\UNBOXFLOAT3 (\FLOATUNBOX X)
+                     BASE SIZE 0)))
+
+(DEFMACRO %%TEST-ARRAY
 (ARRAY DIMS)
+   `(CL:IF [TYPEP ,ARRAY '(CL:ARRAY CL:SINGLE-FLOAT ,DIMS]
+        ,ARRAY
+        (CL:ERROR "Array of incorrect type: ~S" ,ARRAY)))
+
+(DEFMACRO MAKE-FLOAT-ARRAY
 (DIMS &KEY INITIAL-ELEMENT)
+   (CL:IF INITIAL-ELEMENT
+       `(CL:MAKE-ARRAY ,DIMS :ELEMENT-TYPE 'CL:SINGLE-FLOAT :INITIAL-ELEMENT ,INITIAL-ELEMENT)
+       `(CL:MAKE-ARRAY ,DIMS :ELEMENT-TYPE 'CL:SINGLE-FLOAT)))
+
+(DEFMACRO MAKE-FLOAT-VECTOR
 (SIZE &KEY INITIAL-ELEMENT)
+   (CL:IF INITIAL-ELEMENT
+       `(MAKE-VECTOR ,SIZE :ELEMENT-TYPE 'CL:SINGLE-FLOAT :INITIAL-ELEMENT ,INITIAL-ELEMENT)
+       `(MAKE-VECTOR ,SIZE :ELEMENT-TYPE 'CL:SINGLE-FLOAT)))
+
+(DEFMACRO SINGLE-FLOAT-ARRAY-P
 (ARRAY)
+   `(TYPEP ,ARRAY '(CL:ARRAY CL:SINGLE-FLOAT)))
+
+(DEFMACRO SINGLE-FLOAT-VECTOR-P
 (ARRAY)
+   `[TYPEP ,ARRAY '(CL:ARRAY CL:SINGLE-FLOAT (CL:*])
+
+(DEFOPTIMIZER %%POLY-EVAL
 (X BASE SIZE)
+                              `(\FLOATBOX ((OPCODES UBFLOAT3 0)
+                                           (\FLOATUNBOX ,X)
+                                           ,BASE
+                                           ,SIZE)))
+
+(DEFOPTIMIZER %%MATMULT-133
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+                                `((OPCODES UBFLOAT3 3)
+                                  ,MATRIXABASE
+                                  ,MATRIXBBASE
+                                  ,MATRIXCBASE))
+
+(DEFOPTIMIZER %%MATMULT-144
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+                                `((OPCODES UBFLOAT3 5)
+                                  ,MATRIXABASE
+                                  ,MATRIXBBASE
+                                  ,MATRIXCBASE))
+
+(DEFOPTIMIZER %%MATMULT-331
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+                                `((OPCODES UBFLOAT3 4)
+                                  ,MATRIXABASE
+                                  ,MATRIXBBASE
+                                  ,MATRIXCBASE))
+
+(DEFOPTIMIZER %%MATMULT-333
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+                                `((OPCODES UBFLOAT3 1)
+                                  ,MATRIXABASE
+                                  ,MATRIXBBASE
+                                  ,MATRIXCBASE))
+
+(DEFOPTIMIZER %%MATMULT-441
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+                                `((OPCODES UBFLOAT3 6)
+                                  ,MATRIXABASE
+                                  ,MATRIXBBASE
+                                  ,MATRIXCBASE))
+
+(DEFOPTIMIZER %%MATMULT-444
 (MATRIXABASE MATRIXBBASE MATRIXCBASE)
+                                `((OPCODES UBFLOAT3 2)
+                                  ,MATRIXABASE
+                                  ,MATRIXBBASE
+                                  ,MATRIXCBASE))
+
+(PUTPROPS %%BLKEXPONENT
 DOPVAL
 (3 MISC3 0))
+
+(PUTPROPS %%BLKFABSMAX
 DOPVAL
 (3 MISC3 6))
+
+(PUTPROPS %%BLKFABSMIN
 DOPVAL
 (3 MISC3 7))
+
+(PUTPROPS %%BLKFDIFF
 DOPVAL
 (4 MISC4 3))
+
+(PUTPROPS %%BLKFMAX
 DOPVAL
 (3 MISC3 4))
+
+(PUTPROPS %%BLKFMIN
 DOPVAL
 (3 MISC3 5))
+
+(PUTPROPS %%BLKFPLUS
 DOPVAL
 (4 MISC4 2))
+
+(PUTPROPS %%BLKFTIMES
 DOPVAL
 (4 MISC4 0))
+
+(PUTPROPS %%BLKPERM
 DOPVAL
 (4 MISC4 1))
+
+(PUTPROPS %%BLKSMALLP2FLOAT
 DOPVAL
 (3 MISC3 2))
+
+(PUTPROPS %%FLOATTOBYTE
 DOPVAL
 (3 MISC3 8))
+
+(PUTPROPS FLOAT-ARRAY-SUPPORT
 FILETYPE
 CL:COMPILE-FILE)
+(DECLARE%: DONTCOPY DOEVAL@COMPILE DONTEVAL@LOAD 
+(DECLARE%: DOEVAL@COMPILE DONTCOPY
+
+(LOCALVARS . T)
+)
+)
+(PUTPROPS FLOAT-ARRAY-SUPPORT COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL)))
+STOP