Test case is:
,config (define-structure foo (export)
(open scheme
finite-types)
(optimize auto-integrate)
(begin
(define-enumerated-type afs-permission :afs-permission
afs-permission?
the-afs-permissions
afs-permission-name
afs-permission-index
(read))))
> ,config (define-structure foo (export)
(open scheme
finite-types)
(optimize auto-integrate)
(begin
(define-enumerated-type afs-permission :afs-permission
afs-permission?
the-afs-permissions
afs-permission-name
afs-permission-index
(read))))
> ,in foo the-afs-permissions
Load structure foo (y/n)? y
[foo
Analyzing...
Calls will be compiled in line: (#{Generated maker 1408} afs-permission-index afs-permission-name)
]
'#(#{Afs-permission #{Generated name 1408}})
> ,inspect
[0] '#{Afs-permission #{Generated name 1408}}
inspect: 0
'#{Afs-permission #{Generated name 1408}}
[0: name] '#{Generated name 1408}
[1: index] '#{Generated index 1408}
|
||
|---|---|---|
| build | ||
| c | ||
| cig | ||
| doc | ||
| emacs | ||
| ps-compiler | ||
| scheme | ||
| scsh | ||
| .gitignore | ||
| COPYING | ||
| CVS_README | ||
| INSTALL | ||
| Makefile.in | ||
| README | ||
| README.s48 | ||
| RELEASE | ||
| TODO | ||
| Thanks | ||
| autogen.sh | ||
| config.guess | ||
| config.sub | ||
| configure.in | ||
| gdbinit | ||
| install-sh | ||
| scsh-config.in | ||
README
-*- Mode: Text; -*- Copyright (c) 1994 Brian D. Carlstrom See file COPYING for copying information. Please report bugs to scsh-bugs@zurich.ai.mit.edu, and include the version number in your message. Installation instructions in file INSTALL. A scsh manual is in directory doc/scsh-manual/. A scsh paper is in directory doc/scsh-paper/. A scsh quick reference is in file doc/cheat.txt. Send mail to scsh-request@zurich.ai.mit.edu to be put on a mailing list for announcements, discussion, bug reports, and bug fixes.