(%{DSK%}<LISPFILES>DOC>EVALFORM.SKETCH;1  ((.06400001  52.0 NIL)  (TEXTBOX  (104.0  352.0  104.0  64.0
)  (
"(RETURN (PROG1 (SPREADAPPLY* (PROG1 (SETQ TEMP \EVALHOOK) (SETQ \EVALHOOK)) *FORM*) (SETQ \EVALHOOK TEMP)))"
)  1.0  (CENTER CENTER)  (HELVETICA 5)  ((-91.0  380.0  495.0  7.0)) NIL 1))  ((0.0  4.0 NIL)  (WIRE  
((96.0 .  376.0)  (104.0 .  376.0)) 1 NIL NIL))  ((.038  43.0 NIL)  (GROUP  (117.0  301.0  86.0  38.0)
  (((.05  7.0 NIL)  (TEXT  (160.0 .  320.0)  ("(fetch "  "(LITATOM CCODEP) "  "of TEMP)")  1.0  (
CENTER BASELINE)  (HELVETICA 5)  ((146.0  326.0  28.0  7.0)  (122.0  319.0  77.0  7.0)  (142.0  312.0 
 36.0  7.0)) NIL))  ((0.0  40.0 NIL)  (CLOSEDWIRE  ((120.0 .  336.0)  (120.0 .  304.0)  (200.0 .  
304.0)  (192.0 .  320.0)  (200.0 .  336.0)) 1 NIL)))  (160.0 .  320.0)))  ((.054  43.0 NIL)  (GROUP  (
13.0  325.0  86.0  54.0)  (((.05  7.0 NIL)  (TEXT  (48.0 .  352.0)  ("(AND "  "\EVALHOOK "  
"(NOT TEMP))")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((37.0  358.0  22.0  7.0)  (23.0  351.0  50.0  
7.0)  (23.0  344.0  50.0  7.0)) NIL))  ((0.0  40.0 NIL)  (CLOSEDWIRE  ((16.0 .  376.0)  (96.0 .  376.0
)  (80.0 .  352.0)  (96.0 .  328.0)  (16.0 .  328.0)) 1 NIL)))  (56.0 .  352.0)))  ((.038  47.0 NIL)  
(GROUP  (13.0  277.0  94.0  38.0)  (((.05  7.0 NIL)  (TEXT  (48.0 .  296.0)  ("LITATOM??"  
"(SETQ TEMP "  "(CAR *FORM*))")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((27.0  302.0  42.0  7.0)  (
22.0  295.0  53.0  7.0)  (20.0  288.0  56.0  7.0)) NIL))  ((0.0  44.0 NIL)  (CLOSEDWIRE  ((16.0 .  
312.0)  (104.0 .  312.0)  (96.0 .  296.0)  (104.0 .  280.0)  (16.0 .  280.0)) 1 NIL)))  (64.0 .  296.0
)))  ((.054  35.0 NIL)  (GROUP  (213.0  317.0  54.0  70.0)  (((.05  7.0 NIL)  (TEXT  (240.0 .  352.0) 
 ("(fetch "  "(LITATOM "  "ARGTYPE) "  "of TEMP)")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((226.0  
361.0  28.0  7.0)  (220.0  354.0  41.0  7.0)  (219.0  347.0  43.0  7.0)  (222.0  340.0  36.0  7.0)) 
NIL))  ((0.0  32.0 NIL)  (CLOSEDWIRE  ((216.0 .  384.0)  (216.0 .  320.0)  (264.0 .  320.0)  (256.0 . 
 336.0)  (264.0 .  352.0)  (256.0 .  368.0)  (264.0 .  384.0)) 1 NIL)))  (240.0 .  352.0)))  ((0.0  
8.0 NIL)  (WIRE  ((104.0 .  312.0)  (120.0 .  312.0)) 1 NIL NIL))  ((0.0  8.0 NIL)  (WIRE  ((200.0 .  
336.0)  (216.0 .  336.0)) 1 NIL NIL))  ((.016  28.0 NIL)  (TEXTBOX  (272.0  376.0  56.0  16.0)  (
"(GO NLSPREAD)")  1.0  (CENTER CENTER)  (HELVETICA 5)  ((271.0  380.0  58.0  7.0)) NIL 1))  ((.016  
28.0 NIL)  (TEXTBOX  (272.0  344.0  56.0  16.0)  ("(GO NLNOSPREAD)")  1.0  (CENTER CENTER)  (HELVETICA
 5)  ((266.0  348.0  68.0  7.0)) NIL 1))  ((.016  28.0 NIL)  (TEXTBOX  (272.0  312.0  56.0  16.0)  (
"(GO EVLAM)")  1.0  (CENTER CENTER)  (HELVETICA 5)  ((278.0  316.0  45.0  7.0)) NIL 1))  ((0.0  4.0 
NIL)  (WIRE  ((264.0 .  384.0)  (272.0 .  384.0)) 1 NIL NIL))  ((0.0  4.0 NIL)  (WIRE  ((264.0 .  
352.0)  (272.0 .  352.0)) 1 NIL NIL))  ((0.0  4.0 NIL)  (WIRE  ((264.0 .  320.0)  (272.0 .  320.0)) 1 
NIL NIL))  ((.05  7.0 NIL)  (TEXT  (264.0 .  392.0)  ("1")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((
263.0  391.0  3.0  7.0)) NIL))  ((.05  7.0 NIL)  (TEXT  (264.0 .  360.0)  ("3")  1.0  (CENTER BASELINE
)  (HELVETICA 5)  ((262.0  359.0  4.0  7.0)) NIL))  ((.05  7.0 NIL)  (TEXT  (264.0 .  328.0)  ("T")  
1.0  (CENTER BASELINE)  (HELVETICA 5)  ((261.0  327.0  6.0  7.0)) NIL))  ((.032  52.0 NIL)  (TEXTBOX  
(120.0  264.0  104.0  32.0)  ("(SETQ TEMP (fetch (LITATOM DEFPOINTER) of TEMP))")  1.0  (CENTER CENTER
)  (HELVETICA 5)  ((66.0  276.0  213.0  7.0)) NIL 1))  ((0.0  8.0 NIL)  (WIRE  ((104.0 .  280.0)  (
120.0 .  280.0)) 1 NIL NIL))  ((.038  27.0 NIL)  (GROUP  (13.0  213.0  54.0  38.0)  (((0.0  24.0 NIL) 
 (CLOSEDWIRE  ((16.0 .  248.0)  (16.0 .  216.0)  (64.0 .  216.0)  (56.0 .  232.0)  (64.0 .  248.0)) 1 
NIL))  ((.05  7.0 NIL)  (TEXT  (40.0 .  232.0)  ("(NOT "  "(LISTP "  "TEMP))")  1.0  (CENTER BASELINE)
  (HELVETICA 5)  ((29.0  238.0  23.0  7.0)  (26.0  231.0  29.0  7.0)  (27.0  224.0  27.0  7.0)) NIL)))
  (40.0 .  232.0)))  ((.016  28.0 NIL)  (TEXTBOX  (72.0  240.0  56.0  16.0)  ("(GO FAULT)")  1.0  (
CENTER CENTER)  (HELVETICA 5)  ((78.0  244.0  44.0  7.0)) NIL 1))  ((.054  51.0 NIL)  (GROUP  (69.0  
133.0  54.0  102.0)  (((0.0  48.0 NIL)  (CLOSEDWIRE  ((72.0 .  232.0)  (72.0 .  136.0)  (120.0 .  
136.0)  (104.0 .  152.0)  (120.0 .  168.0)  (104.0 .  184.0)  (120.0 .  200.0)  (104.0 .  216.0)  (
120.0 .  232.0)) 1 NIL))  ((.05  7.0 NIL)  (TEXT  (88.0 .  200.0)  ("(CAR "  "TEMP)")  1.0  (CENTER 
BASELINE)  (HELVETICA 5)  ((77.0  202.0  22.0  7.0)  (76.0  195.0  24.0  7.0)) NIL)))  (96.0 .  184.0)
))  ((.016  28.0 NIL)  (TEXTBOX  (160.0  224.0  56.0  16.0)  ("(GO EVLAM)")  1.0  (CENTER CENTER)  (
HELVETICA 5)  ((166.0  228.0  45.0  7.0)) NIL 1))  ((.016  28.0 NIL)  (TEXTBOX  (160.0  160.0  56.0  
16.0)  ("(GO EVLAM)")  1.0  (CENTER CENTER)  (HELVETICA 5)  ((166.0  164.0  45.0  7.0)) NIL 1))  ((
.016  28.0 NIL)  (TEXTBOX  (160.0  128.0  56.0  16.0)  ("(GO FAULT)")  1.0  (CENTER CENTER)  (
HELVETICA 5)  ((166.0  132.0  44.0  7.0)) NIL 1))  ((.016  28.0 NIL)  (TEXTBOX  (256.0  176.0  56.0  
16.0)  ("(GO NLNOSPREAD)")  1.0  (CENTER CENTER)  (HELVETICA 5)  ((250.0  180.0  68.0  7.0)) NIL 1))  
((.016  28.0 NIL)  (TEXTBOX  (256.0  208.0  56.0  16.0)  ("(GO NLSPREAD)")  1.0  (CENTER CENTER)  (
HELVETICA 5)  ((255.0  212.0  58.0  7.0)) NIL 1))  ((0.0  20.0 NIL)  (WIRE  ((160.0 .  232.0)  (120.0
 .  232.0)) 1 NIL NIL))  ((0.0  20.0 NIL)  (WIRE  ((120.0 .  200.0)  (160.0 .  200.0)) 1 NIL NIL))  ((
0.0  20.0 NIL)  (WIRE  ((120.0 .  168.0)  (160.0 .  168.0)) 1 NIL NIL))  ((0.0  20.0 NIL)  (WIRE  ((
120.0 .  136.0)  (160.0 .  136.0)) 1 NIL NIL))  ((0.0  4.0 NIL)  (WIRE  ((64.0 .  248.0)  (72.0 .  
248.0)) 1 NIL NIL))  ((0.0  4.0 NIL)  (WIRE  ((64.0 .  216.0)  (72.0 .  216.0)) 1 NIL NIL))  ((.05  
7.0 NIL)  (TEXT  (152.0 .  240.0)  ("LAMBDA ")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((135.0  239.0 
 34.0  7.0)) NIL))  ((.05  7.0 NIL)  (TEXT  (136.0 .  208.0)  ("NLAMBDA ")  1.0  (CENTER BASELINE)  (
HELVETICA 5)  ((117.0  207.0  39.0  7.0)) NIL))  ((.05  7.0 NIL)  (TEXT  (136.0 .  176.0)  (
"OPENLAMBDA ")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((110.0  175.0  53.0  7.0)) NIL))  ((.05  7.0 
NIL)  (TEXT  (136.0 .  144.0)  ("T")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((133.0  143.0  6.0  7.0)
) NIL))  ((.038  47.0 NIL)  (GROUP  (157.0  181.0  94.0  38.0)  (((.05  7.0 NIL)  (TEXT  (200.0 .  
200.0)  ("(OR (LISTP "  "(SETQ TEMP "  "(CADR TEMP))) "  "(NULL TEMP))")  1.0  (CENTER BASELINE)  (
HELVETICA 5)  ((177.0  209.0  46.0  7.0)  (174.0  202.0  53.0  7.0)  (170.0  195.0  61.0  7.0)  (174.0
  188.0  52.0  7.0)) NIL))  ((0.0  44.0 NIL)  (CLOSEDWIRE  ((160.0 .  216.0)  (160.0 .  184.0)  (248.0
 .  184.0)  (240.0 .  200.0)  (248.0 .  216.0)) 1 NIL)))  (208.0 .  200.0)))  ((0.0  4.0 NIL)  (WIRE  
((248.0 .  216.0)  (256.0 .  216.0)) 1 NIL NIL))  ((0.0  4.0 NIL)  (WIRE  ((248.0 .  184.0)  (256.0 . 
 184.0)) 1 NIL NIL))  ((0.0  72.0 NIL)  (WIRE  ((16.0 .  352.0)  (16.0 .  208.0)) 1 NIL NIL))  ((.032 
 76.0 NIL)  (TEXTBOX  (16.0  72.0  152.0  32.0)  ("((*ARGVAL* 0) (*TAIL* *FORM*) 
"  "(*FN*"  "(CAR *FORM*)))")  1.0  (CENTER CENTER)  (HELVETICA 5)  ((27.0  91.0  131.0  7.0)  (82.0  
84.0  20.0  7.0)  (63.0  77.0  59.0  7.0)) NIL 1))  ((.016  48.0 NIL)  (TEXTBOX  (16.0  48.0  96.0  
16.0)  ("(RETURN (.EVALFORM.))")  1.0  (CENTER CENTER)  (HELVETICA 5)  ((20.0  52.0  89.0  7.0)) NIL 1
))  ((0.0  16.0 NIL)  (WIRE  ((16.0 .  88.0)  (16.0 .  56.0)) 1 NIL NIL))  ((.05  7.0 NIL)  (TEXT  (
16.0 .  112.0)  ("EVLAM")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((4.0  111.0  25.0  7.0)) NIL))  ((
.032  68.0 NIL)  (TEXTBOX  (216.0  72.0  136.0  32.0)  (
"(RETURN (SPREADAPPLY (CAR *FORM*) (CDR *FORM*)))")  1.0  (CENTER CENTER)  (HELVETICA 5)  ((177.0  
84.0  214.0  7.0)) NIL 1))  ((.05  7.0 NIL)  (TEXT  (208.0 .  112.0)  ("NLSPREAD ")  1.0  (CENTER 
BASELINE)  (HELVETICA 5)  ((187.0  111.0  42.0  7.0)) NIL))  ((.032  68.0 NIL)  (TEXTBOX  (216.0  24.0
  136.0  32.0)  ("(RETURN (SPREADAPPLY* (CAR *FORM*) (CDR *FORM*)))")  1.0  (CENTER CENTER)  (
HELVETICA 5)  ((175.0  36.0  218.0  7.0)) NIL 1))  ((.05  7.0 NIL)  (TEXT  (200.0 .  64.0)  (
"NLNOSPREAD ")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((174.0  63.0  52.0  7.0)) NIL))  ((.05  7.0 
NIL)  (TEXT  (40.0 .  320.0)  ("RETRY ")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((25.0  319.0  30.0  
7.0)) NIL))  ((.024  36.0 NIL)  (TEXTBOX  (16.0  -16.0  72.0  24.0)  ("CLISP PROCESSING")  1.0  (
CENTER CENTER)  (HELVETICA 5)  ((17.0  -8.0  71.0  7.0)) NIL 1))  ((.05  7.0 NIL)  (TEXT  (24.0 .  
16.0)  ("FAULT ")  1.0  (CENTER BASELINE)  (HELVETICA 5)  ((10.0  15.0  28.0  7.0)) NIL))  ((.032  
28.0 NIL)  (TEXTBOX  (112.0  -40.0  56.0  32.0)  ("(RETURN (FAULTEVAL *FORM*))")  1.0  (CENTER CENTER)
  (HELVETICA 5)  ((80.0  -28.0  121.0  7.0)) NIL 1))  ((.016  28.0 NIL)  (TEXTBOX  (112.0  0.0  56.0  
16.0)  ("(GO RETRY)")  1.0  (CENTER CENTER)  (HELVETICA 5)  ((117.0  4.0  46.0  7.0)) NIL 1))  ((0.0  
12.0 NIL)  (WIRE  ((88.0 .  0.0)  (112.0 .  8.0)) 1 NIL NIL))  ((0.0  12.0 NIL)  (WIRE  ((88.0 .  0.0)
  (112.0 .  -24.0)) 1 NIL NIL)))
(0 0 489.0 425.0)
1.0
8.0
#š
SKIO.GETFN.2#š
z¸