(SET-PALETTE entry color)

Re-map the given entry of the palette to the specified color. It is useful for EGA and VGA (for CGA, it works only with entry 0, i.e. background color). Entry is an integer between 0 and (GET-PALETTE-SIZE), and color is an integer between 0 and a constant depending on the hardware device. The following constants are defined:
Symbol Equivalent number
{\itt 'EGA-BLACK} 0 (#b000000)
{\itt 'EGA-BLUE} 1 (#b000001)
{\itt 'EGA-GREEN} 2 (#b000010)
{\itt 'EGA-CYAN} 3  
{\itt 'EGA-RED} 4 (#b000100)
{\itt 'EGA-MAGENTA} 5  
{\itt 'EGA-LIGHT-GRAY} 7  
{\itt 'EGA-BROWN} 20  
{\itt 'EGA-DARK-GRAY} 56  
{\itt 'EGA-LIGHT-BLUE} 57 (#b001001)
{\itt 'EGA-LIGHT-GREEN} 58 (#b010010)
{\itt 'EGA-LIGHT-CYAN} 59  
{\itt 'EGA-LIGHT-RED} 60 (#b100100)
{\itt 'EGA-LIGHT-MAGENTA} 61  
{\itt 'EGA-YELLOW} 62  
{\itt 'EGA-WHITE} 63 (#b111111)

These are the values of the standard EGA and VGA palette. With these adapters, the following code would be equivalent to (SET-ALL-PALETTE (GET-DEFAULT-PALETTE)):

(SET-PALETTE {\itt 'BLACK} {\itt 'EGA-BLACK})
(SET-PALETTE {\itt 'BLUE} {\itt 'EGA-BLUE})
(SET-PALETTE {\itt 'RED} {\itt 'EGA-RED})
(SET-PALETTE {\itt 'GREEN} {\itt 'EGA-GREEN})
...
(SET-PALETTE {\itt 'WHITE} {\itt 'EGA-WHITE})
SET-PALETTE doesn't works with the IBM-8514. Use SET-RGB-PALETTE instead.