1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
;----------------------------------------------------------------------------;
; ;
; AKCL initialisation for speed. ;
; ;
; FILE: hol-init.ml ;
; ;
; AUTHOR: John Van Tassel ;
; ADDRESS: University of Cambridge Computer Laboratory ;
; New Museums Site ;
; Pembroke Street ;
; Cambridge CB2 3QG ;
; ENGLAND ;
; E-MAIL: jvt@cl.cam.ac.uk ;
; TEL. +44 223 334729 ;
; ;
;----------------------------------------------------------------------------;
#+akcl
#+sun (progn ()
(allocate 'cons 900)
(allocate 'string 100)
(system:allocate-relocatable-pages 100)
(system:set-hole-size 2048))
#+mips (progn ()
(allocate 'cons 2048)
(allocate 'string 100)
(system:allocate-relocatable-pages 100)
(system:set-hole-size 2048))
#+hp9000-800 (progn ()
(allocate 'cons 2024)
(allocate 'string 100)
(system:allocate-relocatable-pages 100)
(system:set-hole-size 2048))
#-(or sun mips hp9000-800) ()
#-akcl ()
|
