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
38
39
40
41
42
43
44
45
46
47
48
49
50
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; HOL 88 Version 2.0 ;;;
;;; ;;;
;;; FILE NAME: f-site.l ;;;
;;; ;;;
;;; DESCRIPTION: Site dependent information ;;;
;;; ;;;
;;; USES FILES: f-franz.l (or f-cl.l), f-constants.l ;;;
;;; ;;;
;;; University of Cambridge ;;;
;;; Hardware Verification Group ;;;
;;; Computer Laboratory ;;;
;;; New Museums Site ;;;
;;; Pembroke Street ;;;
;;; Cambridge CB2 3QG ;;;
;;; England ;;;
;;; ;;;
;;; COPYRIGHT: University of Edinburgh ;;;
;;; COPYRIGHT: University of Cambridge ;;;
;;; COPYRIGHT: INRIA ;;;
;;; ;;;
;;; REVISION HISTORY: (none) ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(eval-when (compile)
#+franz (include "lisp/f-franz")
(include "lisp/f-constants"))
(setq %build-date (date))
;;; Actual version and system name set in Makefile
(setq %version "<version number>")
(setq %system-name "<system name>")
;;; banner changed, TFM 88.10.08
;;; This is the banner for hol-lcf and basic-hol
(defun banner ()
(llterpri)
(llprinc %system-name)
(llprinc " version ")
(llprinc %version)
(llprinc " created ")
(llprinc %build-date)
(llterpri))
|
