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


;;; How to integrate the :microcoded-on-lambda and :coded-on-k properties ???


Needed for file QRAND.lisp

FunctST
  PROPERTY-CELL-LOCATION 
  %DATA-TYPE   -- Numerical representation of %data-type
  Function  - MAPCAR
	%ASSURE-PDL-ROOM		APPLY uses also
	%OPEN-CALL-BLOCK		APPLY uses also
	%PUSH 
	%ACTIVATE-OPEN-CALL-BLOCK	APPLY uses also
	NCONS
	%POP - ??? Microcode ???  -- handled by compiler

  Function  - SYMBOL-PLIST
	PROPERTY-CELL-LOCATION 


	%OPEN-CALL-BLOCK 
	%ASSURE-PDL-ROOM 


Function	- SETPLIST

	
Function	- PLIST-LOCATION
	
Function	- PUTPROP
	GET-LOCATION-OR-NIL
	LIST*-IN-AREA
  How do we do areas on the K???

MEMQ
INTERNAL-GET-2 
INTERNAL-GET-3 
GETL