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
|
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
; For DEFINE-STRUCTURE macro
(define (make-a-package opens-thunk accesses-thunk tower
dir clauses name)
(make-package opens-thunk accesses-thunk
#t ;unstable
tower
dir
clauses
#f
name))
(define (loser . rest)
(error "init-defpackage! neglected"))
(define interface-of structure-interface)
(define *verify-later!* (lambda (thunk) #f))
(define (verify-later! thunk)
(*verify-later!* thunk))
(define (set-verify-later! proc)
(set! *verify-later!* proc))
(define (note-name! thing name)
(cond ((interface? thing)
(note-interface-name! thing name))
((structure? thing)
(note-structure-name! thing name)))
thing)
|
