;;; -*- Mode:Text; Package:LISP-INTERNALS; Base:10; Readtable:CL -*-


These zetalisp/commonlisp incompatabiles are from L.COLD;GLOBAL.LISP

 ZL:MEMBER					;common -- incompatible
 ZL:ASSOC					;common -- incompatible
 ZL:AREF					;common -- incompatible

The following zetalisp/commonlisp variances are from
	dj:l.sys;clpack.lisp in the function pkg-initialize:

		     zl:AR-1	zl:AR-1-FORCE

There should be 446 of these in total.

Basic Lisp Functions
  
CAR			:coded-for-K
CDR			:coded-for-K
CAAR			:coded-for-K
CADR			:coded-for-K
CDAR			:coded-for-K
CDDR			:coded-for-K
CAAAR			:coded-for-K
CAADR			:coded-for-K
CADAR			:coded-for-K
CADDR			:coded-for-K
CDAAR			:coded-for-K
CDADR			:coded-for-K
CDDAR			:coded-for-K
CDDDR			:coded-for-K
CAAAAR			:coded-for-K
CAAADR			:coded-for-K
CAADAR			:coded-for-K
CAADDR			:coded-for-K
CADAAR			:coded-for-K
CADADR			:coded-for-K
CADDAR			:coded-for-K
CADDDR			:coded-for-K
CDAAAR			:coded-for-K
CDAADR			:coded-for-K
CDADAR			:coded-for-K
CDADDR			:coded-for-K
CDDAAR			:coded-for-K
CDDADR			:coded-for-K
CDDDAR			:coded-for-K
CDDDDR			:coded-for-K
ASSQ			:coded-for-K
LAST			:coded-for-K
LENGTH			:coded-for-K
1+			:coded-for-K
1-			:coded-for-K
RPLACA			:coded-for-K
RPLACD			:coded-for-K
ZEROP			:coded-for-K
SET			:coded-for-K
INTEGERP		:coded-for-K :wkf-checked
FIXP			:coded-for-K :wkf-checked
FLOATP			:coded-for-K
EQUAL			:coded-for-K
LDB			:coded-for-K
DPB			:coded-for-K
FALSE			:coded-for-K :wkf-checked
TRUE			:coded-for-K :wkf-checked
NOT			:coded-for-K
NULL			:coded-for-K
ATOM			:coded-for-K
ODDP			:coded-for-K
EVENP			:coded-for-K
GET-PNAME		:coded-for-k :wkf-checked
SYMBOL-NAME		:coded-for-K
ASH			:coded-for-K
LSH			:coded-for-K :Youcef-checked
NUMBERP			:coded-for-K
PLUSP			:coded-for-K
MINUSP			:coded-for-K
\			:coded-for-K :wkf-checked
MINUS			:coded-for-K :wkf-checked
XCONS			:coded-for-K
XCONS-IN-AREA		:coded-for-K
NCONS			:coded-for-K
NCONS-IN-AREA		:coded-for-K
CONS			:coded-for-K
CONS-IN-AREA		:coded-for-K
SYMEVAL			:coded-for-k :wkf-checked
SYMBOL-VALUE		:coded-for-K
VALUE-CELL-LOCATION	:coded-for-k :wkf-checked
FUNCTION-CELL-LOCATION	:coded-for-k :wkf-checked
PROPERTY-CELL-LOCATION	:coded-for-k :wkf-checked
MEMQ			:coded-for-K :RG-checked
NTH			:coded-for-K
NTHCDR			:coded-for-K
LIST			:coded-for-K :wkf-checked ;;macrocode on lambda
LIST*			:coded-for-K :wkf-checked ;;macrocode on lambda
LIST-IN-AREA		:coded-for-K :wkf-checked ;;macrocode on lambda
LIST*-IN-AREA		:coded-for-K :wkf-checked ;;macrocode on lambda
*THROW			:tbc-JIM ;; these 4 need stack scrolling
THROW			:tbc-JIM  ;;  throw same as *throw
*CATCH			:tbc-JIM  ;;  catch same as *catch
CATCH			:tbc-JIM
EQL			:coded-for-K
ARRAY-LENGTH		:merge YOUCEF
ARRAY-TOTAL-SIZE	:coded-for-K
ARRAY-ACTIVE-LENGTH	:merge YOUCEF
zl:LISTP		:coded-for-K :wkf-checked
zl:NLISTP		:coded-for-K :wkf-checked
SYMBOLP			:coded-for-K :wkf-checked
NSYMBOLP		:coded-for-K :wkf-checked
ARRAYP			:coded-for-K
FBOUNDP			:coded-for-K
STRINGP			:coded-for-K
BOUNDP			:coded-for-K
FSYMEVAL		:coded-for-k :wkf-checked
SYMBOL-FUNCTION		:coded-for-K
HAULONG			:tbc-YOUCEF :copy-lambda
^			:tbc-YOUCEF :copy-lambda
ABS			:coded-for-K
EQ			:coded-for-K
FIX			:coded-for-K
BITBLT			:coded-for-K
ELT			:coded-for-K
zl:AREF			:coded-for-K :wkf-checked
ASET			:coded-for-K
ALOC
EQUALP			:coded-for-K
COMMON-LISP-LISTP	:coded-for-K :wkf-checked
FIXNUMP			:coded-for-K :wkf-checked
CHARACTERP		:coded-for-K
ENDP			:coded-for-K
COMMON-LISP-AREF	:coded-for-K :wkf-checked
COMMON-LISP-AR-1	:not-used-in-cold-load
COMMON-LISP-AR-1-FORCE	:not-used-in-cold-load
RATIONALP		:coded-for-K :wkf-checked
RATIOP			:coded-for-K :wkf-checked
COMPLEXP		:coded-for-K
zl:MEMBER		:coded-for-K
MEMBER-EQUAL		:coded-for-K
MEMBER-EQL		:coded-for-K
zl:ASSOC		:coded-for-K :wkf-checked
ASSOC-EQUAL		:coded-for-K :wkf-checked
BOTH-CASE-P		:coded-for-K
CHAR-UPCASE		:coded-for-K
CHAR-DOWNCASE		:coded-for-K
LOWER-CASE-P		:coded-for-K
CHAR-INT		:coded-for-K
INT-CHAR		:coded-for-K
ALPHA-CHAR-P		:coded-for-K
UPPER-CASE-P		:coded-for-K
ALPHANUMERICP		:coded-for-K
VECTORP			:coded-for-K
SIMPLE-VECTOR-P		:coded-for-K
SIMPLE-ARRAY-P
SIMPLE-STRING-P		:coded-for-K
BIT-VECTOR-P		:coded-for-K
SIMPLE-BIT-VECTOR-P	:coded-for-K
ARRAY-HAS-FILL-POINTER-P:coded-for-K
ARRAY-LEADER-LENGTH
ARRAY-RANK		:coded-for-K
ARRAY-DIMENSION		:coded-for-K
MASK-FIELD		:coded-for-K
DEPOSIT-FIELD		:coded-for-K
VECTOR-PUSH		:coded-for-K
FLOAT-EXPONENT
FLOAT-FRACTION		:not-used-in-cold-load
SCALE-FLOAT
*PLUS			:coded-for-K
*DIF			:coded-for-K
*TIMES			:coded-for-K
*QUO			:coded-for-K
*LOGAND			:coded-for-K
*LOGXOR			:coded-for-K
*LOGIOR			:coded-for-K
*MAX			:coded-for-K
*MIN			:coded-for-K
*BOOLE


***

Primatives
	arrays, stack-lists, stack-groups, lisp support, drawing, pointers,
	flavors, gc, function calling, io, hardware, paging

	lisp support
%LOGLDB
%LOGDPB
INTERNAL-GET-2		:not-needed
INTERNAL-GET-3		:not-needed
%SXHASH-STRING		:coded-for-K
INTERNAL-<		:not-needed
INTERNAL->		:not-needed
INTERNAL-=		:not-needed
INTERNAL-CHAR-EQUAL	:not-needed
%STRING-SEARCH-CHAR
%STRING-EQUAL
%MAKE-LIST
INTERNAL-FLOOR-1	:not-needed
INTERNAL-FLOOR-2	:not-needed
INTERNAL-\\		:not-needed
%DIV			:coded-for-K
%MULTIPLY-FRACTIONS
%DIVIDE-DOUBLE
%REMAINDER-DOUBLE
%24-BIT-PLUS		:hardebeck
%24-BIT-DIFFERENCE	:hardebeck
%24-BIT-TIMES		:hardebeck
FLOAT	;;; Changed in 95 to exist only for old code. -- now use INTERNAL-FLOAT
INTERNAL-FLOAT
SMALL-FLOAT
%FLOAT-DOUBLE
SETCAR			:coded-for-k :wkf-checked
SETCDR			:coded-for-k :wkf-checked
NAMED-STRUCTURE-P	:coded-for-k :wkf-checked
NAMED-STRUCTURE-SYMBOL	:coded-for-k :wkf-checked
TYPEP-STRUCTURE-OR-FLAVOR
SMALL-FLOATP
CAR-SAFE
CDR-SAFE
CADR-SAFE
CDDR-SAFE
CDDDDR-SAFE
NTHCDR-SAFE
NTH-SAFE
CARCDR
CONSP-OR-POP
PACKAGE-CELL-LOCATION
%RATIO-CONS
%COMPLEX-CONS
%test-multiply-return-low
%test-multiply-return-high
%mult-16
%mult-32
%internal-list		:not-needed
%internal-list*		:not-needed
%internal-list-in-area	:not-needed
%internal-list*-in-area	:not-needed
%internal-mapc
%internal-mapcar
%internal-append-2
%internal-nconc-2
%sxhash-substring
%internal-delq		:not-needed
%make-structure
%string-translate
%STRING-WIDTH

	garbage collection
%GC-CONS-WORK
%GC-SCAV-RESET
%GC-FREE-REGION
%GC-FLIP
%GC-SCAVENGE
%BETTER-GC-SCAVENGE

	flavors
%FUNCTION-INSIDE-SELF
%INSTANCE-REF
%INSTANCE-LOC
%INSTANCE-SET
%BINDING-INSTANCES
%EXTERNAL-VALUE-CELL
%USING-BINDING-INSTANCES
%SET-SELF-MAPPING-TABLE
LOCATE-IN-INSTANCE
%GET-SELF-MAPPING-TABLE
SET-%INSTANCE-REF

	arrays
%make-array
ARRAY-LEADER
STORE-ARRAY-LEADER
GET-LIST-POINTER-INTO-ARRAY
ARRAY-PUSH
COPY-ARRAY-CONTENTS
COPY-ARRAY-CONTENTS-AND-LEADER
ARRAY-HAS-LEADER-P
COPY-ARRAY-PORTION
BIGNUM-TO-ARRAY
ARRAY-TO-BIGNUM
SETELT
SET-AR-1
SET-AR-2
SET-AR-3
SET-AR-1-FORCE
SET-AREF
SET-ARRAY-LEADER
zl:AR-1
AR-2
AR-3
AS-1
AS-2
AS-3
AS-2-REVERSE
AR-2-REVERSE
AP-1
AP-2
AP-3
AP-LEADER
zl:AR-1-FORCE
AS-1-FORCE
AP-1-FORCE
AR-1-CACHED-1
AR-1-CACHED-2

	pointers
%POINTER		:coded-for-K
%MAKE-POINTER
%P-STORE-CONTENTS
%P-STORE-TAG-AND-POINTER
%P-CDR-CODE
%P-DATA-TYPE
%P-POINTER
%P-STORE-CDR-CODE
%P-STORE-DATA-TYPE
%P-STORE-POINTER
%P-LDB
%P-DPB
%P-MASK-FIELD
%P-DEPOSIT-FIELD
%P-CONTENTS-OFFSET
%P-STORE-CONTENTS-OFFSET
%P-LDB-OFFSET
%P-DPB-OFFSET
%P-MASK-FIELD-OFFSET
%P-DEPOSIT-FIELD-OFFSET
%MAKE-POINTER-OFFSET
%POINTER-DIFFERENCE
%P-CONTENTS-AS-LOCATIVE
%P-CONTENTS-AS-LOCATIVE-OFFSET
%p-store-data-type-and-pointer
%POINTER-TIMES
%pointer-info  
%pointer-lessp
%pointer-greaterp

	hardware
%HALT
%DISK-OP
%PHYSICAL-ADDRESS
%BEEP
%FINDCORE
%RECORD-EVENT
%SET-MOUSE-SCREEN
%OPEN-MOUSE-CURSOR
%set-mouse-arrays
%map-device-quantum
%MICROSECOND-TIME
%FIXNUM-MICROSECOND-TIME
%processor-switches
%cold-boot
%lambda-rg-quad-slot
%lambda-tv-quad-slot
%lambda-sdu-quad-slot
%lambda-sys-conf-virtual-to-phys
%lambda-sys-conf-phys-to-virtual
%lambda-sys-conf-virtual-adr
%lambda-mouse-buttons
%WRITE-INTERNAL-PROCESSOR-MEMORIES

	paging
%COMPUTE-PAGE-HASH
%CHANGE-PAGE-STATUS
%CREATE-PHYSICAL-PAGE
%DELETE-PHYSICAL-PAGE
%PAGE-IN
%micro-paging			:obsolete
%PAGE-STATUS
%PAGE-TRACE

	io
%XBUS-WRITE-SYNC
%DISK-RESTORE
%DISK-SAVE
%UNIBUS-READ
%UNIBUS-WRITE
%XBUS-READ
%XBUS-WRITE
%MULTIBUS-READ-16
%MULTIBUS-WRITE-16
%MULTIBUS-READ-8
%MULTIBUS-WRITE-8
%MULTIBUS-READ-32
%MULTIBUS-WRITE-32
%NUBUS-READ
%NUBUS-WRITE
%IO-SPACE-READ
%IO-SPACE-WRITE
%NUBUS-PHYSICAL-ADDRESS
%nubus-read-8
%nubus-write-8
%io-cmd-run
%multibus-blt-16
%nubus-read-safe
%nubus-read-8-safe
%nubus-write-safe
%nubus-write-8-safe
%CHAOS-WAKEUP


	function calling

INTERNAL-APPLY
%MAKE-REST-ARG-SAFE
%ASSURE-PDL-ROOM
PDL-WORD
%CALL-MULT-VALUE
%CALL0-MULT-VALUE
%RETURN-2
%RETURN-3
%RETURN-N
RETURN-NEXT-VALUE
RETURN-LIST
UNBIND-TO-INDEX-UNDER-N
%BIND			:coded-for-K :wkf-checked
BIND			:coded-for-K
%FEXPR-CALL
%FEXPR-CALL-MV
%FEXPR-CALL-MV-LIST
%CATCH-OPEN-MV-LIST
%ARGS-INFO
%OPEN-CALL-BLOCK
%PUSH
%ACTIVATE-OPEN-CALL-BLOCK
%CALL-MULT-VALUE-LIST
%CALL0-MULT-VALUE-LIST
%STACK-FRAME-POINTER
%UNWIND-PROTECT-CONTINUE
*UNWIND-STACK
MOVE-PDL-TOP
SHRINK-PDL-SAVE-TOP
SPECIAL-PDL-INDEX
UNBIND-TO-INDEX
UNBIND-TO-INDEX-MOVE
%trap-on-next-call
%regular-pdl-index
%LOAD-FROM-HIGHER-CONTEXT
%LOCATE-IN-HIGHER-CONTEXT
%STORE-IN-HIGHER-CONTEXT
POP-M-FROM-UNDER-N
GET-LEXICAL-VALUE-CELL
%NWAY-BRANCH
THROW-N
%CATCH-OPEN
%CATCH-OPEN-MV
THROW-SPREAD
POP-OPEN-CALL

	stack groups and stack lists
STACK-GROUP-RETURN
STACK-GROUP-RESUME
%MAKE-STACK-LIST
%MAKE-EXPLICIT-STACK-LIST
%MAKE-EXPLICIT-STACK-LIST*

	drawing
%DRAW-CHAR			:tbc-YOUCEF
%DRAW-RECTANGLE			:simple-macro   DRAW-RECTANGLE
%DRAW-LINE			:simple-macro   DRAW-LINE
%DRAW-TRIANGLE
%COLOR-TRANSFORM
%AOS-TRIANGLE
%DRAW-PATTERNED-LINE


****** un-catagorized below here

%DATA-TYPE
%SPREAD
GETL
ROT
%SPREAD-N
%BLT
FIND-POSITION-IN-LIST
G-L-P
%AREA-NUMBER
CLOSURE
%STORE-CONDITIONAL
%REGION-NUMBER
%FIND-STRUCTURE-HEADER
%STRUCTURE-BOXED-SIZE
%STRUCTURE-TOTAL-SIZE
%MAKE-REGION
%FIND-STRUCTURE-LEADER
BPT
%BLT-TYPED
GET-LOCATION-OR-NIL
RETURN-N-KEEP-CONTROL
RETURN-SPREAD-KEEP-CONTROL 
INDICATORS-VALUE
%quart-transfer
%set-meter-enables
invalidate-cons-caches
%blt-boole
%findcore-hexadec
%stat-counter
%advance-free-pointer-and-wipe
%store-conditional-double
%ip-checksum