/[cmucl]/src/code/exports.lisp
ViewVC logotype

Contents of /src/code/exports.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.305 - (show annotations)
Fri Jun 10 17:38:27 2011 UTC (2 years, 10 months ago) by rtoy
Branch: MAIN
CVS Tags: GIT-CONVERSION, snapshot-2011-09, snapshot-2011-07, HEAD
Changes since 1.304: +3 -2 lines
Add function to load all unicode data into memory.

This makes it easy to make an executable image that doesn't need
unidata.bin around.  (Should we do this for normal cores?  It seems to
add about 1 MB to the core size.)

code/unidata.lisp:
o Add LOAD-ALL-UNICODE-DATA to load all unicode data.
o Add UNICODE-DATA-LOADED-P to check that unicode data has been
  loaded.

code/print.lisp:
o If unicode data is loaded, don't check for existence of
  *unidata-path*, because we don't need it.

code/exports.lisp:
o Export LOAD-ALL-UNICODE-DATA.

general-info/release-20c.txt:
o Update info
1 ;;; -*- Log: C.Log -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the CMU Common Lisp project at
5 ;;; Carnegie Mellon University, and has been placed in the public domain.
6 ;;;
7 (ext:file-comment
8 "$Header: /tiger/var/lib/cvsroots/cmucl/src/code/exports.lisp,v 1.305 2011/06/10 17:38:27 rtoy Exp $")
9 ;;;
10 ;;; **********************************************************************
11 ;;;
12 ;;; All the stuff necessary to export various symbols from various packages.
13 ;;;
14
15 (in-package "LISP")
16
17 (intl:textdomain "cmucl")
18
19 (if (find-package "PCL")
20 (rename-package "PCL" "PCL" 'nil)
21 (make-package "PCL" :nicknames 'nil :use nil))
22 (if (find-package "CLOS-MOP")
23 (rename-package "CLOS-MOP" "CLOS-MOP" 'nil)
24 (make-package "CLOS-MOP" :nicknames 'nil :use nil))
25 (if (find-package "C-CALL")
26 (rename-package "C-CALL" "C-CALL" 'nil)
27 (make-package "C-CALL" :nicknames 'nil :use nil))
28 (if (find-package "INSPECT")
29 (rename-package "INSPECT" "INSPECT" 'nil)
30 (make-package "INSPECT" :nicknames 'nil :use nil))
31 (if (find-package "BIGNUM")
32 (rename-package "BIGNUM" "BIGNUM" 'nil)
33 (make-package "BIGNUM" :nicknames 'nil :use nil))
34 (if (find-package "UNIX")
35 (rename-package "UNIX" "UNIX" 'nil)
36 (make-package "UNIX" :nicknames 'nil :use nil))
37 (if (find-package "FORMAT")
38 (rename-package "FORMAT" "FORMAT" 'nil)
39 (make-package "FORMAT" :nicknames 'nil :use nil))
40 (if (find-package "LISP")
41 (rename-package "LISP" "LISP")
42 (make-package "LISP" :nicknames 'nil :use nil))
43 (if (find-package "COMMON-LISP")
44 (rename-package "COMMON-LISP" "COMMON-LISP" '("CL"))
45 (make-package "COMMON-LISP" :nicknames '("CL") :use nil))
46 (if (find-package "EVAL")
47 (rename-package "EVAL" "EVAL" 'nil)
48 (make-package "EVAL" :nicknames 'nil :use nil))
49 #+pmax
50 (if (find-package "PMAX")
51 (rename-package "PMAX" "PMAX" '("VM"))
52 (make-package "PMAX" :nicknames '("VM") :use nil))
53 #+sparc
54 (if (find-package "SPARC")
55 (rename-package "SPARC" "SPARC" '("VM"))
56 (make-package "SPARC" :nicknames '("VM") :use nil))
57 #+ibmrt
58 (if (find-package "RT")
59 (rename-package "RT" "RT" '("VM"))
60 (make-package "RT" :nicknames '("VM") :use nil))
61 #+x86
62 (if (find-package "X86")
63 (rename-package "X86" "X86" '("VM"))
64 (make-package "X86" :nicknames '("VM") :use nil))
65 #+amd64
66 (if (find-package "AMD64")
67 (rename-package "AMD64" "AMD64" '("VM"))
68 (make-package "AMD64" :nicknames '("VM") :use nil))
69 #+hppa
70 (if (find-package "HPPA")
71 (rename-package "HPPA" "HPPA" '("VM"))
72 (make-package "HPPA" :nicknames '("VM") :use nil))
73 #+alpha
74 (if (find-package "ALPHA")
75 (rename-package "ALPHA" "ALPHA" '("VM"))
76 (make-package "ALPHA" :nicknames '("VM") :use nil))
77 #+sgi
78 (if (find-package "SGI")
79 (rename-package "SGI" "SGI" '("VM"))
80 (make-package "SGI" :nicknames '("VM") :use nil))
81 #+ppc
82 (if (find-package "PPC")
83 (rename-package "PPC" "PPC" '("VM"))
84 (make-package "PPC" :nicknames '("VM")))
85 (if (find-package "CONDITIONS")
86 (rename-package "CONDITIONS" "CONDITIONS" 'nil)
87 (make-package "CONDITIONS" :nicknames 'nil :use nil))
88 (if (find-package "DISASSEM")
89 (rename-package "DISASSEM" "DISASSEM" 'nil)
90 (make-package "DISASSEM" :nicknames 'nil :use nil))
91 (if (find-package "DEBUG")
92 (rename-package "DEBUG" "DEBUG" 'nil)
93 (make-package "DEBUG" :nicknames 'nil :use nil))
94 (if (find-package "EXTENSIONS")
95 (rename-package "EXTENSIONS" "EXTENSIONS" '("EXT"))
96 (make-package "EXTENSIONS" :nicknames '("EXT") :use nil))
97 (if (find-package "LOOP")
98 (rename-package "LOOP" "LOOP" 'nil)
99 (make-package "LOOP" :nicknames 'nil :use nil))
100 (if (find-package "DEBUG-INTERNALS")
101 (rename-package "DEBUG-INTERNALS" "DEBUG-INTERNALS" '("DI"))
102 (make-package "DEBUG-INTERNALS" :nicknames '("DI") :use nil))
103 (if (find-package "C")
104 (rename-package "C" "C" '("OLD-C"))
105 (make-package "C" :nicknames '("OLD-C") :use nil))
106 (if (find-package "XREF")
107 (rename-package "XREF" "XREF" 'nil))
108 (if (find-package "WIRE")
109 (rename-package "WIRE" "WIRE" 'nil)
110 (make-package "WIRE" :nicknames 'nil :use nil))
111 (if (find-package "PRETTY-PRINT")
112 (rename-package "PRETTY-PRINT" "PRETTY-PRINT" '("PP"))
113 (make-package "PRETTY-PRINT" :nicknames '("PP") :use nil))
114 (if (find-package "SYSTEM")
115 (rename-package "SYSTEM" "SYSTEM" '("SYS"))
116 (make-package "SYSTEM" :nicknames '("SYS") :use nil))
117 (if (find-package "ALIEN")
118 (rename-package "ALIEN" "ALIEN" 'nil)
119 (make-package "ALIEN" :nicknames 'nil :use nil))
120 (if (find-package "ALIEN-INTERNALS")
121 (rename-package "ALIEN-INTERNALS" "ALIEN-INTERNALS" 'nil)
122 (make-package "ALIEN-INTERNALS" :nicknames 'nil :use nil))
123 (if (find-package "PROFILE")
124 (rename-package "PROFILE" "PROFILE" 'nil)
125 (make-package "PROFILE" :nicknames 'nil :use nil))
126 (if (find-package "COMMON-LISP-USER")
127 (rename-package "COMMON-LISP-USER" "COMMON-LISP-USER" '("CL-USER"))
128 (make-package "COMMON-LISP-USER" :nicknames '("CL-USER") :use nil))
129 (if (find-package "KERNEL")
130 (rename-package "KERNEL" "KERNEL" 'nil)
131 (make-package "KERNEL" :nicknames 'nil :use nil))
132 (if (find-package "NEW-ASSEM")
133 (rename-package "NEW-ASSEM" "NEW-ASSEM" 'nil)
134 (make-package "NEW-ASSEM" :nicknames 'nil :use nil))
135 (if (find-package "MULTIPROCESSING")
136 (rename-package "MULTIPROCESSING" "MULTIPROCESSING" 'nil)
137 (make-package "MULTIPROCESSING" :nicknames '("MP") :use nil))
138
139 (use-package '("SYSTEM" "ALIEN-INTERNALS" "ALIEN" "LISP") "C-CALL")
140 (use-package '("KERNEL" "EXTENSIONS" "LISP") "INSPECT")
141 (use-package '("LISP" "KERNEL") "BIGNUM")
142 (use-package '("LISP") "UNIX")
143 (use-package '("KERNEL" "LISP" "EXTENSIONS") "FORMAT")
144 (use-package '("EXTENSIONS" "SYSTEM" "DEBUG" "KERNEL" "BIGNUM") "LISP")
145 (use-package '("LISP" "KERNEL") "EVAL")
146 (use-package
147 '("C-CALL" "ALIEN-INTERNALS" "ALIEN" "BIGNUM" "LISP" "KERNEL" "EXTENSIONS"
148 "SYSTEM" "C")
149 "VM")
150 (use-package '("EXTENSIONS" "LISP") "CONDITIONS")
151 (use-package '("LISP") "DISASSEM")
152 (use-package '("EXTENSIONS" "LISP" "SYSTEM") "DEBUG")
153 (use-package '("C-CALL" "ALIEN" "COMMON-LISP" "SYSTEM") "EXTENSIONS")
154 (use-package '("LISP") "LOOP")
155 (use-package '("LISP" "SYSTEM" "EXTENSIONS" "KERNEL") "DEBUG-INTERNALS")
156 (use-package
157 '("ALIEN-INTERNALS" "ALIEN" "COMMON-LISP" "EXTENSIONS" "KERNEL"
158 "SYSTEM" "BIGNUM")
159 "C")
160 (use-package '("LISP") "WIRE")
161 (use-package '("KERNEL" "EXTENSIONS" "LISP") "PRETTY-PRINT")
162 (use-package '("EXTENSIONS" "LISP") "SYSTEM")
163 (use-package '("SYSTEM" "EXTENSIONS" "LISP") "ALIEN")
164 (use-package '("LISP") "ALIEN-INTERNALS")
165 (use-package '("COMMON-LISP") "PROFILE")
166 (use-package '("EXTENSIONS" "COMMON-LISP") "COMMON-LISP-USER")
167 (use-package '("ALIEN-INTERNALS" "LISP" "EXTENSIONS" "SYSTEM" "BIGNUM")
168 "KERNEL")
169 (use-package '("LISP") "NEW-ASSEM")
170
171 (defpackage "ANSI-LOOP")
172
173 (defpackage "C-CALL"
174 (:import-from "COMMON-LISP" "CHAR" "FLOAT")
175 (:export "C-STRING" "CHAR" "DOUBLE" "FLOAT" "INT" "LONG" "SHORT"
176 "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT"
177 "LONG-LONG" "UNSIGNED-LONG-LONG"
178 "VOID"))
179
180 (defpackage "INSPECT"
181 (:export "*INTERFACE-STYLE*" "REMOVE-ALL-DISPLAYS"
182 "REMOVE-OBJECT-DISPLAY" "SHOW-OBJECT"))
183
184 (defpackage "BIGNUM"
185 (:export "%ADD-WITH-CARRY" "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
186 "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-SET" "%BIGNUM-SET-LENGTH"
187 "%DIGIT-0-OR-PLUSP" "%DIGIT-LOGICAL-SHIFT-RIGHT"
188 "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT" "%FLOOR"
189 "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR" "%MULTIPLY"
190 "%MULTIPLY-AND-ADD" "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS"
191 "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT" "BIGNUM-COMPARE"
192 "BIGNUM-DEPOSIT-BYTE" "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD"
193 "BIGNUM-INDEX" "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE"
194 "BIGNUM-LOGBITP" "BIGNUM-LOGCOUNT"
195 "BIGNUM-LOGICAL-AND" "BIGNUM-LOGICAL-IOR"
196 "BIGNUM-LOGICAL-NOT" "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
197 "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE"
198 "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM"
199 "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS"
200 "NEGATE-BIGNUM" "SUBTRACT-BIGNUM"))
201
202 (defpackage "UNIX"
203 (:export "CADDR-T" "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN"
204 "DADDR-T" "DEV-T" "DIRECT" "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD"
205 "F-GETFD" "F-GETFL" "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN"
206 "FSFILCNT-T" "FSBLKCNT-T" "BLKCNT-T"
207 "FAPPEND" "FASYNC" "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC"
208 "F_TEST" "F_TLOCK" "UNIX-LOCKF" "F_LOCK" "F_ULOCK"
209 "F_OK" "GET-UNIX-ERROR-MSG" "GID-T" "INO-T" "IT-INTERVAL"
210 "IT-VALUE" "ITIMERVAL" "UNIX-SETITIMER" "UNIX-GETITIMER"
211 "BLKCNT-T" "FSBLKCNT-T" "FSFILCNT-T"
212 "F_TEST" "F_TLOCK" "F_LOCK" "F_ULOCK" "UNIX-LOCKF"
213 "PROT_READ" "PROT_WRITE" "PROT_EXEC" "PROT_NONE"
214 "MAP_SHARED" "MAP_PRIVATE" "MAP_FIXED" "MAP_ANONYMOUS"
215 "MS_ASYNC" "MS_SYNC" "MS_INVALIDATE"
216 "UNIX-MMAP" "UNIX-MUNMAP" "UNIX-MSYNC" "UNIX-MPROTECT"
217 "KBDCGET" "KBDCRESET" "KBDCRST" "KBDCSET"
218 "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET" "L_INCR" "L_SET"
219 "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL" "O_RDONLY" "O_RDWR"
220 "O_TRUNC" "O_WRONLY" "READGRP" "READOTH" "READOWN" "RLIM-CUR"
221 "RLIM-MAX" "RLIMIT" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
222 "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND"
223 "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK"
224 "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
225 "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT"
226 "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
227 "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC"
228 "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
229 "SG-OSPEED" "SGTTYB" "SIGCONTEXT" "SIZE-T" "ST-ATIME" "ST-BLKSIZE"
230 "ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME"
231 "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "SWBLK-T" "T-BRKC"
232 "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC"
233 "T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCHARS"
234 "TERMINAL-SPEEDS" "TIME-T" "TIMEVAL" "TIMEZONE" "TIOCFLUSH"
235 "TIOCGETC" "TIOCGETP" "TIOCGLTC" "TIOCGPGRP" "TIOCGWINSZ"
236 "TIOCNOTTY" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TIOCSPGRP"
237 "TIOCSWINSZ" "TTY-CBREAK" "TTY-CRMOD" "TTY-LCASE"
238 "TTY-RAW" "TTY-TANDEM" "TV-SEC" "TV-USEC" "TZ-DSTTIME"
239 "TZ-MINUTESWEST" "UID-T" "UNIX-ACCEPT" "UNIX-ACCESS" "UNIX-BIND"
240 "UNIX-CHDIR" "UNIX-CHMOD" "UNIX-CHOWN" "UNIX-CLOSE" "UNIX-CONNECT"
241 "UNIX-CREAT" "UNIX-CURRENT-DIRECTORY" "UNIX-DUP" "UNIX-DUP2"
242 "UNIX-ERRNO" "UNIX-EXECVE" "UNIX-EXIT" "UNIX-FCHMOD" "UNIX-FCHOWN"
243 "UNIX-FCNTL" "UNIX-FD" "UNIX-FILE-MODE" "UNIX-FORK" "UNIX-FSTAT"
244 "UNIX-FSYNC" "UNIX-FTRUNCATE" "UNIX-GETDTABLESIZE" "UNIX-GETEGID"
245 "UNIX-GETGID" "UNIX-GETHOSTID" "UNIX-GETHOSTNAME"
246 "UNIX-GETPAGESIZE" "UNIX-GETPEERNAME" "UNIX-GETPGRP"
247 "UNIX-GETPID" "UNIX-GETPPID" "UNIX-GETRUSAGE" "UNIX-GETSOCKNAME"
248 "UNIX-GETSOCKOPT" "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID"
249 "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LINK" "UNIX-LISTEN" "UNIX-LSEEK"
250 "UNIX-LSTAT" "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID"
251 "UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-RECV" "UNIX-RENAME"
252 "UNIX-RMDIR" "UNIX-SCHED-YIELD" "UNIX-SELECT"
253 "UNIX-SEND" "UNIX-SETPGID" "UNIX-SETPGRP"
254 "UNIX-SETREGID" "UNIX-SETREUID" "UNIX-SETSOCKOPT" "UNIX-SOCKET"
255 "UNIX-SETUID" "UNIX-SETGID"
256 "UNIX-STAT" "UNIX-SYMLINK" "UNIX-SYNC"
257 "UNIX-TIMES" "UNIX-TRUNCATE" "UNIX-TTYNAME" "UNIX-UID"
258 "UNIX-UNAME" "UNIX-UNLINK" "UNIX-UTIMES" "UNIX-WRITE" "WINSIZE"
259 "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
260 "WS-YPIXEL" "W_OK" "X_OK" "SIGSYS" "TCSETPGRP" "FD-ZERO"
261 "SIGEMSG" "SIGQUIT" "SIGCHLD" "SIGSEGV" "FD-CLR" "SIGUSR2"
262 "EALREADY" "SIGPIPE" "EACCES" "SIGXCPU" "EOPNOTSUPP"
263 "SIGFPE" "SIGHUP" "ENOTSOCK" "OPEN-DIR" "SIGMASK" "EINTR"
264 "SIGCONT" "UNIX-RESOLVE-LINKS" "SIGKILL" "EMSGSIZE" "ERANGE"
265 "EPROTOTYPE" "UNIX-SIGNAL-NUMBER" "EPFNOSUPPORT" "SIGILL"
266 "EDOM" "UNIX-SIGPAUSE" "EDQUOT" "FD-SETSIZE" "SIGTSTP"
267 "EAFNOSUPPORT" "TCGETPGRP" "EMFILE" "ECONNRESET"
268 "EADDRNOTAVAIL" "SIGALRM" "ENETDOWN" "EVICEOP"
269 "UNIX-FAST-GETRUSAGE" "EPERM" "SIGINT" "EXDEV" "EDEADLK"
270 "ENOSPC" "ECONNREFUSED" "SIGWINCH" "ENOPROTOOPT" "ESRCH"
271 "EUSERS" "SIGVTALRM" "ENOTCONN" "ESUCCESS" "EPIPE"
272 "UNIX-SIMPLIFY-PATHNAME" "EISCONN" "FD-ISSET" "SIGMSG"
273 "ESHUTDOWN" "EBUSY" "SIGTERM" "ENAMETOOLONG" "EMLINK"
274 "EADDRINUSE" "SIGBUS" "ERESTART" "TTY-PROCESS-GROUP"
275 "UNIX-SIGNAL-NAME" "ETIMEDOUT" "ECHILD" "EFBIG" "SIGTRAP"
276 "UNIX-KILLPG" "ENOTBLK" "SIGIOT" "SIGUSR1" "ECONNABORTED"
277 "EHOSTUNREACH" "EBADF" "EINVAL" "FD-SET" "CLOSE-DIR" "EISDIR"
278 "SIGTTIN" "UNIX-KILL" "ENOTDIR" "EHOSTDOWN" "E2BIG" "ESPIPE"
279 "UNIX-FAST-SELECT" "ENXIO" "ENOTTY" "ELOOP" "LTCHARS"
280 "UNIX-SIGNAL-DESCRIPTION" "SIGXFSZ" "EINPROGRESS" "ENOENT"
281 "EPROTONOSUPPORT" "UNIX-SIGBLOCK" "SIGIO" "ENOMEM" "SIGEMT"
282 "EFAULT" "ENODEV" "EIO" "EVICEERR" "ETXTBSY" "EWOULDBLOCK"
283 "EAGAIN" "EDESTADDRREQ" "ENOEXEC" "ENETUNREACH" "ENOTEMPTY"
284 "READ-DIR" "UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY" "ENFILE"
285 "SIGTTOU" "EEXIST" "SIGPROF" "SIGSTOP" "ENETRESET" "SIGURG"
286 "ENOBUFS" "EPROCLIM" "EROFS" "ETOOMANYREFS" "UNIX-FILE-KIND"
287 "ELOCAL" "UNIX-SIGSETMASK" "EREMOTE" "ESOCKTNOSUPPORT"
288 "TIOCSIGSEND" "SIGWAITING" "SIGABRT"
289 "C-IFLAG" "UNIX-TCGETATTR" "C-LFLAG" "C-OFLAG" "C-CFLAG"
290 "TCSAFLUSH" "C-CC" "C-ISPEED" "C-OSPEED" "SIOCSPGRP" "TERMIOS"
291 "UNIX-TCSETATTR" "O_NDELAY" "O_NOCTTY"
292 "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH"
293 "TCIOFLUSH" "UNIX-CFGETOSPEED" "UNIX-CFSETOSPEED"
294 "UNIX-CFGETISPEED" "UNIX-CFSETISPEED"
295 "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK"
296 "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL"
297 "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK"
298 "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL"
299 "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG"
300 "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK"
301 "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL"
302 "TTY-ECHOPRT" "TTY-ECHOKE" "TTY-DEFECHO" "TTY-FLUSHO"
303 "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD"
304 "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR"
305 "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD"
306 "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME"
307 "VSUSP" "VSTART" "VSTOP" "VDSUSP" "UNIX-TCSENDBREAK"
308 "UNIX-TCDRAIN" "UNIX-TCFLUSH" "UNIX-TCFLOW"
309 "UNIX-GETENV" "UNIX-SETENV" "UNIX-PUTENV" "UNIX-UNSETENV"
310
311 #+(or svr4 bsd linux) "O_NDELAY"
312 "CHECK"
313
314 "UNIX-RECVFROM" "UNIX-SENDTO" "UNIX-SHUTDOWN"
315 "UNIX-OPENPTY")
316 #+(or svr4 linux)
317 (:export "EADDRINUSE" "EADDRNOTAVAIL" "EADV" "EAFNOSUPPORT"
318 "EALREADY" "EBADE" "EBADFD" "EBADMSG" "EBADR" "EBADRQC"
319 "EBADSLT" "EBFONT" #+svr4 "ECANCELED" "ECHRNG" "ECOMM"
320 "ECONNABORTED" "ECONNREFUSED" "ECONNRESET" "EDEADLK"
321 "EDEADLOCK" "EDESTADDRREQ" #+linux "EDOTDOT" #+linux "EDQUOT"
322 "EHOSTDOWN" "EHOSTUNREACH" "EIDRM" "EILSEQ" "EINPROGRESS"
323 "EISCONN" #+linux "EISNAM" "EL2HLT" "EL2NSYNC" "EL3HLT"
324 "EL3RST" "ELIBACC" "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN"
325 "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP" "ENAMETOOLONG"
326 #+linux "ENAVAIL" "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO"
327 "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK" "ENOLINK" "ENOMSG" "ENONET"
328 "ENOPKG" "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS" "ENOTCONN"
329 "ENOTEMPTY" #+linux "ENOTNAM" "ENOTSOCK" #+svr4 "ENOTSUP"
330 "ENOTUNIQ" "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT" "EPROTO"
331 "EPROTONOSUPPORT" "EPROTOTYPE" "EREMCHG" "EREMOTE"
332 #+linux "EREMOTEIO" "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT"
333 "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME" "ETIMEDOUT" "ETOOMANYREFS"
334 #+linux "EUCLEAN" "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL"
335 "UTSNAME"
336 #+linux "SIGSTKFLT"
337 "UNIX-GETPWNAM" "UNIX-GETPWUID" "UNIX-GETGRNAM" "UNIX-GETGRGID"
338 "USER-INFO" "USER-INFO-NAME" "USER-INFO-PASSWORD" "USER-INFO-UID"
339 "USER-INFO-GID" "USER-INFO-GECOS" "USER-INFO-DIR" "USER-INFO-SHELL"
340 "GROUP-INFO" "GROUP-INFO-NAME" "GROUP-INFO-GID" "GROUP-INFO-MEMBERS")
341 #+freebsd
342 (:export "GROUP-INFO"
343 "GROUP-INFO-GID"
344 "GROUP-INFO-MEMBERS"
345 "GROUP-INFO-NAME"
346 "UNIX-GETGRGID"
347 "UNIX-GETGRNAM"
348 "UNIX-GETPWNAM"
349 "UNIX-GETPWUID"
350 "USER-INFO"
351 "USER-INFO-DIR"
352 "USER-INFO-GECOS"
353 "USER-INFO-GID"
354 "USER-INFO-NAME"
355 "USER-INFO-PASSWORD"
356 "USER-INFO-SHELL"
357 "USER-INFO-UID")
358 #+ppc
359 (:export "UNIX-GETPWUID"
360 "USER-INFO"
361 "USER-INFO-SHELL"
362 "USER-INFO-GECOS"
363 "UNIX-GETPWNAM"
364 "GROUP-INFO-NAME"
365 "GROUP-INFO-MEMBERS"
366 "USER-INFO-NAME"
367 "USER-INFO-PASSWORD"
368 "GROUP-INFO"
369 "USER-INFO-UID"
370 "USER-INFO-DIR"
371 "USER-INFO-GID"
372 "GROUP-INFO-GID"
373 "UNIX-GETGRNAM"
374 "UNIX-GETGRGID")
375 #+(and solaris svr4)
376 (:export "UNIX-SYSINFO"
377 "SI-SYSNAME" "SI-HOSTNAME" "SI-RELEASE" "SI-VERSION" "SI-MACHINE"
378 "SI-ARCHITECTURE" "SI-HW-SERIAL" "SI-HW-PROVIDER" "SI-SRPC-DOMAIN"
379 "SI-PLATFORM" "SI-ISALIST" "SI-DHCP-CACHE"
380
381 "UNIX-GETRLIMIT"
382 "RLIMIT_CPU" "RLIMIT_FSIZE" "RLIMIT_DATA" "RLIMIT_STACK" "RLIMIT_CORE"
383 "RLIMIT_AS" "RLIMIT_VMEM" "RLIMIT_NOFILE")
384 ;; Should this be conditionalized on glibc2? These come from
385 ;; unix-glibc2.lisp.
386 #+(and darwin x86)
387 (:export "GROUP-INFO" "UNIX-GETPWUID" "USER-INFO-DIR" "UNIX-GETPWNAM"
388 "USER-INFO-SHELL" "USER-INFO-PASSWORD" "USER-INFO-UID"
389 "GROUP-INFO-GID" "USER-INFO" "USER-INFO-NAME" "USER-INFO-GID"
390 "GROUP-INFO-MEMBERS" "UNIX-GETGRGID" "USER-INFO-GECOS"
391 "GROUP-INFO-NAME"
392 "UNIX-GETGRNAM"
393
394 "UNIX-GETRLIMIT"
395 "RLIMIT_CPU" "RLIMIT_FSIZE" "RLIMIT_DATA" "RLIMIT_STACK" "RLIMIT_CORE"
396 "RLIMIT_AS" "RLIMIT_RSS" "RLIMIT_MEMLOCK" "RLIMIT_NPROC" "RLIMIT_NOFILE"))
397
398 (defpackage "FORMAT")
399
400 (defpackage "COMMON-LISP"
401 (:nicknames "CL")
402 ;;
403 ;; It might be nicer if these symbols were from CL, but it's not
404 ;; required, and moving them from EXT probably requires additional
405 ;; magic, so I didn't do it. -- 2003-06-16, gerd.
406 (:import-from "EXTENSIONS" "DEBUG" "FLOATING-POINT-INEXACT")
407 (:export
408 "&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY" "&OPTIONAL" "&REST"
409 "&WHOLE" "*" "**" "***" "*BREAK-ON-SIGNALS*" "*COMPILE-FILE-PATHNAME*"
410 "*COMPILE-FILE-TRUENAME*" "*COMPILE-PRINT*" "*COMPILE-VERBOSE*" "*DEBUG-IO*"
411 "*DEBUGGER-HOOK*" "*DEFAULT-PATHNAME-DEFAULTS*" "*ERROR-OUTPUT*" "*FEATURES*"
412 "*GENSYM-COUNTER*" "*LOAD-PATHNAME*" "*LOAD-PRINT*" "*LOAD-TRUENAME*"
413 "*LOAD-VERBOSE*" "*MACROEXPAND-HOOK*" "*MODULES*" "*PACKAGE*" "*PRINT-ARRAY*"
414 "*PRINT-BASE*" "*PRINT-CASE*" "*PRINT-CIRCLE*" "*PRINT-ESCAPE*"
415 "*PRINT-GENSYM*" "*PRINT-LENGTH*" "*PRINT-LEVEL*" "*PRINT-LINES*"
416 "*PRINT-MISER-WIDTH*" "*PRINT-PPRINT-DISPATCH*" "*PRINT-PRETTY*"
417 "*PRINT-RADIX*" "*PRINT-READABLY*" "*PRINT-RIGHT-MARGIN*" "*QUERY-IO*"
418 "*RANDOM-STATE*" "*READ-BASE*" "*READ-DEFAULT-FLOAT-FORMAT*" "*READ-EVAL*"
419 "*READ-SUPPRESS*" "*READTABLE*" "*STANDARD-INPUT*" "*STANDARD-OUTPUT*"
420 "*TERMINAL-IO*" "*TRACE-OUTPUT*" "+" "++" "+++" "-" "/" "//" "///" "/=" "1+"
421 "1-" "<" "<=" "=" ">" ">=" "ABORT" "ABS" "ACONS" "ACOS" "ACOSH" "ADD-METHOD"
422 "ADJOIN" "ADJUST-ARRAY" "ADJUSTABLE-ARRAY-P" "ALLOCATE-INSTANCE"
423 "ALPHA-CHAR-P" "ALPHANUMERICP" "AND" "APPEND" "APPLY" "APROPOS" "APROPOS-LIST"
424 "AREF" "ARITHMETIC-ERROR" "ARITHMETIC-ERROR-OPERANDS"
425 "ARITHMETIC-ERROR-OPERATION" "ARRAY" "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT"
426 "ARRAY-DIMENSIONS" "ARRAY-DISPLACEMENT" "ARRAY-ELEMENT-TYPE"
427 "ARRAY-HAS-FILL-POINTER-P" "ARRAY-IN-BOUNDS-P" "ARRAY-RANK" "ARRAY-RANK-LIMIT"
428 "ARRAY-ROW-MAJOR-INDEX" "ARRAY-TOTAL-SIZE" "ARRAY-TOTAL-SIZE-LIMIT" "ARRAYP"
429 "ASH" "ASIN" "ASINH" "ASSERT" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH"
430 "ATOM" "BASE-CHAR" "BASE-STRING" "BIGNUM" "BIT" "BIT-AND" "BIT-ANDC1"
431 "BIT-ANDC2" "BIT-EQV" "BIT-IOR" "BIT-NAND" "BIT-NOR" "BIT-NOT" "BIT-ORC1"
432 "BIT-ORC2" "BIT-VECTOR" "BIT-VECTOR-P" "BIT-XOR" "BLOCK" "BOOLE" "BOOLE-1"
433 "BOOLE-2" "BOOLE-AND" "BOOLE-ANDC1" "BOOLE-ANDC2" "BOOLE-C1" "BOOLE-C2"
434 "BOOLE-CLR" "BOOLE-EQV" "BOOLE-IOR" "BOOLE-NAND" "BOOLE-NOR" "BOOLE-ORC1"
435 "BOOLE-ORC2" "BOOLE-SET" "BOOLE-XOR" "BOOLEAN" "BOTH-CASE-P" "BOUNDP" "BREAK"
436 "BROADCAST-STREAM" "BROADCAST-STREAM-STREAMS" "BUILT-IN-CLASS" "BUTLAST"
437 "BYTE" "BYTE-POSITION" "BYTE-SIZE" "CAAAAR" "CAAADR" "CAAAR" "CAADAR" "CAADDR"
438 "CAADR" "CAAR" "CADAAR" "CADADR" "CADAR" "CADDAR" "CADDDR" "CADDR" "CADR"
439 "CALL-ARGUMENTS-LIMIT" "CALL-METHOD" "CALL-NEXT-METHOD" "CAR" "CASE" "CATCH"
440 "CCASE" "CDAAAR" "CDAADR" "CDAAR" "CDADAR" "CDADDR" "CDADR" "CDAR" "CDDAAR"
441 "CDDADR" "CDDAR" "CDDDAR" "CDDDDR" "CDDDR" "CDDR" "CDR" "CEILING" "CELL-ERROR"
442 "CELL-ERROR-NAME" "CERROR" "CHANGE-CLASS" "CHAR" "CHAR-CODE" "CHAR-CODE-LIMIT"
443 "CHAR-DOWNCASE" "CHAR-EQUAL" "CHAR-GREATERP" "CHAR-INT" "CHAR-LESSP"
444 "CHAR-NAME" "CHAR-NOT-EQUAL" "CHAR-NOT-GREATERP" "CHAR-NOT-LESSP"
445 "CHAR-UPCASE" "CHAR/=" "CHAR<" "CHAR<=" "CHAR=" "CHAR>" "CHAR>=" "CHARACTER"
446 "CHARACTERP" "CHECK-TYPE" "CIS" "CLASS" "CLASS-NAME" "CLASS-OF" "CLEAR-INPUT"
447 "CLEAR-OUTPUT" "CLOSE" "CLRHASH" "CODE-CHAR" "COERCE" "COMPILATION-SPEED"
448 "COMPILE" "COMPILE-FILE" "COMPILE-FILE-PATHNAME" "COMPILED-FUNCTION"
449 "COMPILED-FUNCTION-P" "COMPILER-MACRO" "COMPILER-MACRO-FUNCTION" "COMPLEMENT"
450 "COMPLEX" "COMPLEXP" "COMPUTE-APPLICABLE-METHODS" "COMPUTE-RESTARTS"
451 "CONCATENATE" "CONCATENATED-STREAM" "CONCATENATED-STREAM-STREAMS" "COND"
452 "CONDITION" "CONJUGATE" "CONS" "CONSP" "CONSTANTLY" "CONSTANTP" "CONTINUE"
453 "CONTROL-ERROR" "COPY-ALIST" "COPY-LIST" "COPY-PPRINT-DISPATCH"
454 "COPY-READTABLE" "COPY-SEQ" "COPY-STRUCTURE" "COPY-SYMBOL" "COPY-TREE" "COS"
455 "COSH" "COUNT" "COUNT-IF" "COUNT-IF-NOT" "CTYPECASE" "DEBUG" "DECF" "DECLAIM"
456 "DECLARATION" "DECLARE" "DECODE-FLOAT" "DECODE-UNIVERSAL-TIME" "DEFCLASS"
457 "DEFCONSTANT" "DEFGENERIC" "DEFINE-COMPILER-MACRO" "DEFINE-CONDITION"
458 "DEFINE-METHOD-COMBINATION" "DEFINE-MODIFY-MACRO" "DEFINE-SETF-EXPANDER"
459 "DEFINE-SYMBOL-MACRO" "DEFMACRO" "DEFMETHOD" "DEFPACKAGE" "DEFPARAMETER"
460 "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR" "DELETE" "DELETE-DUPLICATES"
461 "DELETE-FILE" "DELETE-IF" "DELETE-IF-NOT" "DELETE-PACKAGE" "DENOMINATOR"
462 "DEPOSIT-FIELD" "DESCRIBE" "DESCRIBE-OBJECT" "DESTRUCTURING-BIND" "DIGIT-CHAR"
463 "DIGIT-CHAR-P" "DIRECTORY" "DIRECTORY-NAMESTRING" "DISASSEMBLE"
464 "DIVISION-BY-ZERO" "DO" "DO*" "DO-ALL-SYMBOLS" "DO-EXTERNAL-SYMBOLS"
465 "DO-SYMBOLS" "DOCUMENTATION" "DOLIST" "DOTIMES" "DOUBLE-FLOAT"
466 "DOUBLE-FLOAT-EPSILON" "DOUBLE-FLOAT-NEGATIVE-EPSILON" "DPB" "DRIBBLE"
467 "DYNAMIC-EXTENT" "ECASE" "ECHO-STREAM" "ECHO-STREAM-INPUT-STREAM"
468 "ECHO-STREAM-OUTPUT-STREAM" "ED" "EIGHTH" "ELT" "ENCODE-UNIVERSAL-TIME"
469 "END-OF-FILE" "ENDP" "ENOUGH-NAMESTRING" "ENSURE-DIRECTORIES-EXIST"
470 "ENSURE-GENERIC-FUNCTION" "EQ" "EQL" "EQUAL" "EQUALP" "ERROR" "ETYPECASE"
471 "EVAL" "EVAL-WHEN" "EVENP" "EVERY" "EXP" "EXPORT" "EXPT" "EXTENDED-CHAR"
472 "FBOUNDP" "FCEILING" "FDEFINITION" "FFLOOR" "FIFTH" "FILE-AUTHOR" "FILE-ERROR"
473 "FILE-ERROR-PATHNAME" "FILE-LENGTH" "FILE-NAMESTRING" "FILE-POSITION"
474 "FILE-STREAM" "FILE-STRING-LENGTH" "FILE-WRITE-DATE" "FILL" "FILL-POINTER"
475 "FIND" "FIND-ALL-SYMBOLS" "FIND-CLASS" "FIND-IF" "FIND-IF-NOT" "FIND-METHOD"
476 "FIND-PACKAGE" "FIND-RESTART" "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FIXNUM"
477 "FLET" "FLOAT" "FLOAT-DIGITS" "FLOAT-PRECISION" "FLOAT-RADIX" "FLOAT-SIGN"
478 "FLOATING-POINT-INEXACT" "FLOATING-POINT-INVALID-OPERATION"
479 "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW" "FLOATP" "FLOOR"
480 "FMAKUNBOUND" "FORCE-OUTPUT" "FORMAT" "FORMATTER" "FOURTH" "FRESH-LINE"
481 "FROUND" "FTRUNCATE" "FTYPE" "FUNCALL" "FUNCTION" "FUNCTION-KEYWORDS"
482 "FUNCTION-LAMBDA-EXPRESSION" "FUNCTIONP" "GCD" "GENERIC-FUNCTION" "GENSYM"
483 "GENTEMP" "GET" "GET-DECODED-TIME" "GET-DISPATCH-MACRO-CHARACTER"
484 "GET-INTERNAL-REAL-TIME" "GET-INTERNAL-RUN-TIME" "GET-MACRO-CHARACTER"
485 "GET-OUTPUT-STREAM-STRING" "GET-PROPERTIES" "GET-SETF-EXPANSION"
486 "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GO" "GRAPHIC-CHAR-P" "HANDLER-BIND"
487 "HANDLER-CASE" "HASH-TABLE" "HASH-TABLE-COUNT" "HASH-TABLE-P"
488 "HASH-TABLE-REHASH-SIZE" "HASH-TABLE-REHASH-THRESHOLD" "HASH-TABLE-SIZE"
489 "HASH-TABLE-TEST" "HOST-NAMESTRING" "IDENTITY" "IF" "IGNORABLE" "IGNORE"
490 "IGNORE-ERRORS" "IMAGPART" "IMPORT" "IN-PACKAGE" "INCF" "INITIALIZE-INSTANCE"
491 "INLINE" "INPUT-STREAM-P" "INSPECT" "INTEGER" "INTEGER-DECODE-FLOAT"
492 "INTEGER-LENGTH" "INTEGERP" "INTERACTIVE-STREAM-P" "INTERN"
493 "INTERNAL-TIME-UNITS-PER-SECOND" "INTERSECTION" "INVALID-METHOD-ERROR"
494 "INVOKE-DEBUGGER" "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "ISQRT"
495 "KEYWORD" "KEYWORDP" "LABELS" "LAMBDA" "LAMBDA-LIST-KEYWORDS"
496 "LAMBDA-PARAMETERS-LIMIT" "LAST" "LCM" "LDB" "LDB-TEST" "LDIFF"
497 "LEAST-NEGATIVE-DOUBLE-FLOAT" "LEAST-NEGATIVE-LONG-FLOAT"
498 "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT"
499 "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT"
500 "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" "LEAST-NEGATIVE-SHORT-FLOAT"
501 "LEAST-NEGATIVE-SINGLE-FLOAT" "LEAST-POSITIVE-DOUBLE-FLOAT"
502 "LEAST-POSITIVE-LONG-FLOAT" "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT"
503 "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT"
504 "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" "LEAST-POSITIVE-SHORT-FLOAT"
505 "LEAST-POSITIVE-SINGLE-FLOAT" "LENGTH" "LET" "LET*" "LISP-IMPLEMENTATION-TYPE"
506 "LISP-IMPLEMENTATION-VERSION" "LIST" "LIST*" "LIST-ALL-PACKAGES" "LIST-LENGTH"
507 "LISTEN" "LISTP" "LOAD" "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-VALUE"
508 "LOCALLY" "LOG" "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV"
509 "LOGICAL-PATHNAME" "LOGICAL-PATHNAME-TRANSLATIONS" "LOGIOR" "LOGNAND" "LOGNOR"
510 "LOGNOT" "LOGORC1" "LOGORC2" "LOGTEST" "LOGXOR" "LONG-FLOAT"
511 "LONG-FLOAT-EPSILON" "LONG-FLOAT-NEGATIVE-EPSILON" "LONG-SITE-NAME" "LOOP"
512 "LOOP-FINISH" "LOWER-CASE-P" "MACHINE-INSTANCE" "MACHINE-TYPE"
513 "MACHINE-VERSION" "MACRO-FUNCTION" "MACROEXPAND" "MACROEXPAND-1" "MACROLET"
514 "MAKE-ARRAY" "MAKE-BROADCAST-STREAM" "MAKE-CONCATENATED-STREAM"
515 "MAKE-CONDITION" "MAKE-DISPATCH-MACRO-CHARACTER" "MAKE-ECHO-STREAM"
516 "MAKE-HASH-TABLE" "MAKE-INSTANCE" "MAKE-INSTANCES-OBSOLETE" "MAKE-LIST"
517 "MAKE-LOAD-FORM" "MAKE-LOAD-FORM-SAVING-SLOTS" "MAKE-METHOD" "MAKE-PACKAGE"
518 "MAKE-PATHNAME" "MAKE-RANDOM-STATE" "MAKE-SEQUENCE" "MAKE-STRING"
519 "MAKE-STRING-INPUT-STREAM" "MAKE-STRING-OUTPUT-STREAM" "MAKE-SYMBOL"
520 "MAKE-SYNONYM-STREAM" "MAKE-TWO-WAY-STREAM" "MAKUNBOUND" "MAP" "MAP-INTO"
521 "MAPC" "MAPCAN" "MAPCAR" "MAPCON" "MAPHASH" "MAPL" "MAPLIST" "MASK-FIELD"
522 "MAX" "MEMBER" "MEMBER-IF" "MEMBER-IF-NOT" "MERGE" "MERGE-PATHNAMES" "METHOD"
523 "METHOD-COMBINATION" "METHOD-COMBINATION-ERROR" "METHOD-QUALIFIERS" "MIN"
524 "MINUSP" "MISMATCH" "MOD" "MOST-NEGATIVE-DOUBLE-FLOAT" "MOST-NEGATIVE-FIXNUM"
525 "MOST-NEGATIVE-LONG-FLOAT" "MOST-NEGATIVE-SHORT-FLOAT"
526 "MOST-NEGATIVE-SINGLE-FLOAT" "MOST-POSITIVE-DOUBLE-FLOAT"
527 "MOST-POSITIVE-FIXNUM" "MOST-POSITIVE-LONG-FLOAT" "MOST-POSITIVE-SHORT-FLOAT"
528 "MOST-POSITIVE-SINGLE-FLOAT" "MUFFLE-WARNING" "MULTIPLE-VALUE-BIND"
529 "MULTIPLE-VALUE-CALL" "MULTIPLE-VALUE-LIST" "MULTIPLE-VALUE-PROG1"
530 "MULTIPLE-VALUE-SETQ" "MULTIPLE-VALUES-LIMIT" "NAME-CHAR" "NAMESTRING"
531 "NBUTLAST" "NCONC" "NEXT-METHOD-P" "NIL" "NINTERSECTION" "NINTH"
532 "NO-APPLICABLE-METHOD" "NO-NEXT-METHOD" "NOT" "NOTANY" "NOTEVERY" "NOTINLINE"
533 "NRECONC" "NREVERSE" "NSET-DIFFERENCE" "NSET-EXCLUSIVE-OR"
534 "NSTRING-CAPITALIZE" "NSTRING-DOWNCASE" "NSTRING-UPCASE" "NSUBLIS" "NSUBST"
535 "NSUBST-IF" "NSUBST-IF-NOT" "NSUBSTITUTE" "NSUBSTITUTE-IF"
536 "NSUBSTITUTE-IF-NOT" "NTH" "NTH-VALUE" "NTHCDR" "NULL" "NUMBER" "NUMBERP"
537 "NUMERATOR" "NUNION" "ODDP" "OPEN" "OPEN-STREAM-P" "OPTIMIZE" "OR" "OTHERWISE"
538 "OUTPUT-STREAM-P" "PACKAGE" "PACKAGE-ERROR" "PACKAGE-ERROR-PACKAGE"
539 "PACKAGE-NAME" "PACKAGE-NICKNAMES" "PACKAGE-SHADOWING-SYMBOLS"
540 "PACKAGE-USE-LIST" "PACKAGE-USED-BY-LIST" "PACKAGEP" "PAIRLIS" "PARSE-ERROR"
541 "PARSE-INTEGER" "PARSE-NAMESTRING" "PATHNAME" "PATHNAME-DEVICE"
542 "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-MATCH-P" "PATHNAME-NAME"
543 "PATHNAME-TYPE" "PATHNAME-VERSION" "PATHNAMEP" "PEEK-CHAR" "PHASE" "PI"
544 "PLUSP" "POP" "POSITION" "POSITION-IF" "POSITION-IF-NOT" "PPRINT"
545 "PPRINT-DISPATCH" "PPRINT-EXIT-IF-LIST-EXHAUSTED" "PPRINT-FILL"
546 "PPRINT-INDENT" "PPRINT-LINEAR" "PPRINT-LOGICAL-BLOCK" "PPRINT-NEWLINE"
547 "PPRINT-POP" "PPRINT-TAB" "PPRINT-TABULAR" "PRIN1" "PRIN1-TO-STRING" "PRINC"
548 "PRINC-TO-STRING" "PRINT" "PRINT-NOT-READABLE" "PRINT-NOT-READABLE-OBJECT"
549 "PRINT-OBJECT" "PRINT-UNREADABLE-OBJECT" "PROBE-FILE" "PROCLAIM" "PROG"
550 "PROG*" "PROG1" "PROG2" "PROGN" "PROGRAM-ERROR" "PROGV" "PROVIDE" "PSETF"
551 "PSETQ" "PUSH" "PUSHNEW" "QUOTE" "RANDOM" "RANDOM-STATE" "RANDOM-STATE-P"
552 "RASSOC" "RASSOC-IF" "RASSOC-IF-NOT" "RATIO" "RATIONAL" "RATIONALIZE"
553 "RATIONALP" "READ" "READ-BYTE" "READ-CHAR" "READ-CHAR-NO-HANG"
554 "READ-DELIMITED-LIST" "READ-FROM-STRING" "READ-LINE"
555 "READ-PRESERVING-WHITESPACE" "READ-SEQUENCE" "READER-ERROR" "READTABLE"
556 "READTABLE-CASE" "READTABLEP" "REAL" "REALP" "REALPART" "REDUCE"
557 "REINITIALIZE-INSTANCE" "REM" "REMF" "REMHASH" "REMOVE" "REMOVE-DUPLICATES"
558 "REMOVE-IF" "REMOVE-IF-NOT" "REMOVE-METHOD" "REMPROP" "RENAME-FILE"
559 "RENAME-PACKAGE" "REPLACE" "REQUIRE" "REST" "RESTART" "RESTART-BIND"
560 "RESTART-CASE" "RESTART-NAME" "RETURN" "RETURN-FROM" "REVAPPEND" "REVERSE"
561 "ROOM" "ROTATEF" "ROUND" "ROW-MAJOR-AREF" "RPLACA" "RPLACD" "SAFETY"
562 "SATISFIES" "SBIT" "SCALE-FLOAT" "SCHAR" "SEARCH" "SECOND" "SEQUENCE"
563 "SERIOUS-CONDITION" "SET" "SET-DIFFERENCE" "SET-DISPATCH-MACRO-CHARACTER"
564 "SET-EXCLUSIVE-OR" "SET-MACRO-CHARACTER" "SET-PPRINT-DISPATCH"
565 "SET-SYNTAX-FROM-CHAR" "SETF" "SETQ" "SEVENTH" "SHADOW" "SHADOWING-IMPORT"
566 "SHARED-INITIALIZE" "SHIFTF" "SHORT-FLOAT" "SHORT-FLOAT-EPSILON"
567 "SHORT-FLOAT-NEGATIVE-EPSILON" "SHORT-SITE-NAME" "SIGNAL" "SIGNED-BYTE"
568 "SIGNUM" "SIMPLE-ARRAY" "SIMPLE-BASE-STRING" "SIMPLE-BIT-VECTOR"
569 "SIMPLE-BIT-VECTOR-P" "SIMPLE-CONDITION" "SIMPLE-CONDITION-FORMAT-ARGUMENTS"
570 "SIMPLE-CONDITION-FORMAT-CONTROL" "SIMPLE-ERROR" "SIMPLE-STRING"
571 "SIMPLE-STRING-P" "SIMPLE-TYPE-ERROR" "SIMPLE-VECTOR" "SIMPLE-VECTOR-P"
572 "SIMPLE-WARNING" "SIN" "SINGLE-FLOAT" "SINGLE-FLOAT-EPSILON"
573 "SINGLE-FLOAT-NEGATIVE-EPSILON" "SINH" "SIXTH" "SLEEP" "SLOT-BOUNDP"
574 "SLOT-EXISTS-P" "SLOT-MAKUNBOUND" "SLOT-MISSING" "SLOT-UNBOUND" "SLOT-VALUE"
575 "SOFTWARE-TYPE" "SOFTWARE-VERSION" "SOME" "SORT" "SPACE" "SPECIAL"
576 "SPECIAL-OPERATOR-P" "SPEED" "SQRT" "STABLE-SORT" "STANDARD" "STANDARD-CHAR"
577 "STANDARD-CHAR-P" "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION"
578 "STANDARD-METHOD" "STANDARD-OBJECT" "STEP" "STORAGE-CONDITION" "STORE-VALUE"
579 "STREAM" "STREAM-ELEMENT-TYPE" "STREAM-ERROR" "STREAM-ERROR-STREAM"
580 "STREAM-EXTERNAL-FORMAT" "STREAMP" "STRING" "STRING-CAPITALIZE"
581 "STRING-DOWNCASE" "STRING-EQUAL" "STRING-GREATERP" "STRING-LEFT-TRIM"
582 "STRING-LESSP" "STRING-NOT-EQUAL" "STRING-NOT-GREATERP" "STRING-NOT-LESSP"
583 "STRING-RIGHT-TRIM" "STRING-STREAM" "STRING-TRIM" "STRING-UPCASE" "STRING/="
584 "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP" "STRUCTURE"
585 "STRUCTURE-CLASS" "STRUCTURE-OBJECT" "STYLE-WARNING" "SUBLIS" "SUBSEQ"
586 "SUBSETP" "SUBST" "SUBST-IF" "SUBST-IF-NOT" "SUBSTITUTE" "SUBSTITUTE-IF"
587 "SUBSTITUTE-IF-NOT" "SUBTYPEP" "SVREF" "SXHASH" "SYMBOL" "SYMBOL-FUNCTION"
588 "SYMBOL-MACROLET" "SYMBOL-NAME" "SYMBOL-PACKAGE" "SYMBOL-PLIST" "SYMBOL-VALUE"
589 "SYMBOLP" "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "T" "TAGBODY" "TAILP" "TAN"
590 "TANH" "TENTH" "TERPRI" "THE" "THIRD" "THROW" "TIME" "TRACE"
591 "TRANSLATE-LOGICAL-PATHNAME" "TRANSLATE-PATHNAME" "TREE-EQUAL" "TRUENAME"
592 "TRUNCATE" "TWO-WAY-STREAM" "TWO-WAY-STREAM-INPUT-STREAM"
593 "TWO-WAY-STREAM-OUTPUT-STREAM" "TYPE" "TYPE-ERROR" "TYPE-ERROR-DATUM"
594 "TYPE-ERROR-EXPECTED-TYPE" "TYPE-OF" "TYPECASE" "TYPEP" "UNBOUND-SLOT"
595 "UNBOUND-SLOT-INSTANCE" "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "UNEXPORT"
596 "UNINTERN" "UNION" "UNLESS" "UNREAD-CHAR" "UNSIGNED-BYTE" "UNTRACE"
597 "UNUSE-PACKAGE" "UNWIND-PROTECT" "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
598 "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" "UPGRADED-ARRAY-ELEMENT-TYPE"
599 "UPGRADED-COMPLEX-PART-TYPE" "UPPER-CASE-P" "USE-PACKAGE" "USE-VALUE"
600 "USER-HOMEDIR-PATHNAME" "VALUES" "VALUES-LIST" "VARIABLE" "VECTOR"
601 "VECTOR-POP" "VECTOR-PUSH" "VECTOR-PUSH-EXTEND" "VECTORP" "WARN" "WARNING"
602 "WHEN" "WILD-PATHNAME-P" "WITH-ACCESSORS" "WITH-COMPILATION-UNIT"
603 "WITH-CONDITION-RESTARTS" "WITH-HASH-TABLE-ITERATOR" "WITH-INPUT-FROM-STRING"
604 "WITH-OPEN-FILE" "WITH-OPEN-STREAM" "WITH-OUTPUT-TO-STRING"
605 "WITH-PACKAGE-ITERATOR" "WITH-SIMPLE-RESTART" "WITH-SLOTS"
606 "WITH-STANDARD-IO-SYNTAX" "WRITE" "WRITE-BYTE" "WRITE-CHAR" "WRITE-LINE"
607 "WRITE-SEQUENCE" "WRITE-STRING" "WRITE-TO-STRING" "Y-OR-N-P" "YES-OR-NO-P"
608 "ZEROP"))
609
610 (defpackage "INTL"
611 (:use "COMMON-LISP")
612 (:export "*LOCALE-DIRECTORIES*" "DGETTEXT" "DNGETTEXT"
613 "GETTEXT" "INSTALL" "NGETTEXT" "READ-TRANSLATABLE-STRING" "SETLOCALE"
614 "TEXTDOMAIN" "TRANSLATION-ENABLE" "TRANSLATION-DISABLE"
615 "WITH-TEXTDOMAIN"))
616
617 (defpackage "LISP"
618 (:use "COMMON-LISP" "EXTENSIONS" "KERNEL" "SYSTEM" "DEBUG" "BIGNUM" "INTL")
619 (:shadowing-import-from
620 "COMMON-LISP" "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS" "STRUCTURE-CLASS"
621 "CLASS-OF" "FIND-CLASS")
622 (:export
623 "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS"
624 "STRUCTURE-CLASS" "CLASS-OF" "FIND-CLASS"
625
626 "&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY"
627 "&OPTIONAL" "&REST" "&WHOLE" "*" "**" "***"
628 "*BREAK-ON-SIGNALS*"
629 "*COMPILE-FILE-PATHNAME*" "*COMPILE-FILE-TRUENAME*"
630 "*COMPILE-PRINT*" "*COMPILE-VERBOSE*" "*DEBUG-IO*"
631 "*DEBUGGER-HOOK*" "*DEFAULT-PATHNAME-DEFAULTS*"
632 "*ERROR-OUTPUT*"
633 "*FEATURES*" "*GENSYM-COUNTER*" "*LOAD-PATHNAME*"
634 "*LOAD-PRINT*" "*LOAD-TRUENAME*" "*LOAD-VERBOSE*"
635 "*MACROEXPAND-HOOK*" "*MODULES*" "*PACKAGE*" "*PRINT-ARRAY*"
636 "*PRINT-BASE*" "*PRINT-CASE*" "*PRINT-CIRCLE*"
637 "*PRINT-ESCAPE*" "*PRINT-GENSYM*" "*PRINT-LENGTH*"
638 "*PRINT-LEVEL*" "*PRINT-LINES*" "*PRINT-MISER-WIDTH*"
639 "*PRINT-PPRINT-DISPATCH*" "*PRINT-PRETTY*" "*PRINT-RADIX*"
640 "*PRINT-READABLY*" "*PRINT-RIGHT-MARGIN*" "*QUERY-IO*"
641 "*RANDOM-STATE*" "*READ-BASE*" "*READ-DEFAULT-FLOAT-FORMAT*"
642 "*READ-EVAL*" "*READ-SUPPRESS*" "*READTABLE*"
643 "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" "*TERMINAL-IO*"
644 "*TRACE-OUTPUT*" "+" "++" "+++" "-" "/" "//" "///" "/=" "1+"
645 "1-" "<" "<=" "=" ">" ">=" "ABORT" "ABS" "ACONS" "ACOS"
646 "ACOSH" "ADJOIN" "ADJUST-ARRAY" "ADJUSTABLE-ARRAY-P"
647 "ALPHA-CHAR-P" "ALPHANUMERICP" "AND" "APPEND" "APPLY"
648 "APROPOS" "APROPOS-LIST" "AREF" "ARITHMETIC-ERROR"
649 "ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION"
650 "ARRAY" "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT"
651 "ARRAY-DIMENSIONS" "ARRAY-DISPLACEMENT" "ARRAY-ELEMENT-TYPE"
652 "ARRAY-HAS-FILL-POINTER-P" "ARRAY-IN-BOUNDS-P" "ARRAY-RANK"
653 "ARRAY-RANK-LIMIT" "ARRAY-ROW-MAJOR-INDEX" "ARRAY-TOTAL-SIZE"
654 "ARRAY-TOTAL-SIZE-LIMIT" "ARRAYP" "ASH" "ASIN" "ASINH"
655 "ASSERT" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH"
656 "ATOM" "BASE-CHAR" "BASE-STRING" "BIGNUM"
657 "BIT" "BIT-AND" "BIT-ANDC1" "BIT-ANDC2" "BIT-EQV" "BIT-IOR"
658 "BIT-NAND" "BIT-NOR" "BIT-NOT" "BIT-ORC1" "BIT-ORC2"
659 "BIT-VECTOR" "BIT-VECTOR-P" "BIT-XOR" "BLOCK" "BOOLE" "BOOLEAN"
660 "BOOLE-1" "BOOLE-2" "BOOLE-AND" "BOOLE-ANDC1" "BOOLE-ANDC2"
661 "BOOLE-C1" "BOOLE-C2" "BOOLE-CLR" "BOOLE-EQV" "BOOLE-IOR"
662 "BOOLE-NAND" "BOOLE-NOR" "BOOLE-ORC1" "BOOLE-ORC2" "BOOLE-SET"
663 "BOOLE-XOR" "BOTH-CASE-P" "BOUNDP" "BREAK" "BREF"
664 "BROADCAST-STREAM" "BROADCAST-STREAM-STREAMS" "BUFFER-COPY" "BUFFER-SAP"
665 "BUTLAST" "BYTE" "BYTE-POSITION" "BYTE-SIZE"
666 "CAAAAR" "CAAADR" "CAAAR" "CAADAR" "CAADDR" "CAADR" "CAAR"
667 "CADAAR" "CADADR" "CADAR" "CADDAR" "CADDDR" "CADDR" "CADR"
668 "CALL-ARGUMENTS-LIMIT" "CAR" "CASE"
669 "CATCH" "CCASE" "CDAAAR" "CDAADR" "CDAAR" "CDADAR" "CDADDR"
670 "CDADR" "CDAR" "CDDAAR" "CDDADR" "CDDAR" "CDDDAR" "CDDDDR"
671 "CDDDR" "CDDR" "CDR" "CEILING" "CELL-ERROR" "CERROR" "CHAR"
672 "CHAR-CODE" "CHAR-CODE-LIMIT" "CHAR-DOWNCASE"
673 "CHAR-EQUAL" "CHAR-GREATERP" "CHAR-INT" "CHAR-LESSP"
674 "CHAR-NAME" "CHAR-NOT-EQUAL" "CHAR-NOT-GREATERP"
675 "CHAR-NOT-LESSP" "CHAR-UPCASE" "CHAR/="
676 "CHAR<" "CHAR<=" "CHAR=" "CHAR>" "CHAR>=" "CHARACTER"
677 "CHARACTERP" "CHECK-TYPE" "CIS" "CLASS-NAME"
678 "CLEAR-INPUT" "CLEAR-OUTPUT"
679 "CLOSE" "CLRHASH" "CODE-CHAR" "COERCE"
680 "COMPILATION-SPEED" "COMPILE" "COMPILE-FILE"
681 "COMPILE-FILE-PATHNAME"
682 "COMPILED-FUNCTION" "COMPILED-FUNCTION-P"
683 "COMPILER-MACRO" "COMPILER-MACRO-FUNCTION"
684 "COMPLEMENT" "COMPLEX"
685 "COMPLEXP" "COMPUTE-RESTARTS" "CONCATENATE"
686 "CONCATENATED-STREAM" "CONCATENATED-STREAM-STREAMS"
687 "COND" "CONDITION"
688 "CONJUGATE" "CONS" "CONSP" "CONSTANTLY" "CONSTANTP" "CONTINUE"
689 "CONTROL-ERROR" "COPY-ALIST" "COPY-LIST"
690 "COPY-PPRINT-DISPATCH" "COPY-READTABLE" "COPY-SEQ"
691 "COPY-STRUCTURE"
692 "COPY-SYMBOL" "COPY-TREE" "COS" "COSH" "COUNT" "COUNT-IF"
693 "COUNT-IF-NOT" "CTYPECASE" "DEBUG" "DECF" "DECLAIM"
694 "DECLARATION" "DECLARE" "DECODE-FLOAT" "DECODE-UNIVERSAL-TIME"
695 "DEFCONSTANT" "DEFINE-COMPILER-MACRO" "DEFINE-CONDITION"
696 "DEFINE-MODIFY-MACRO" "DEFINE-SYMBOL-MACRO"
697 "DEFMACRO" "DEFPACKAGE"
698 "DEFPARAMETER" "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR"
699 "DELETE" "DELETE-DUPLICATES" "DELETE-FILE" "DELETE-IF"
700 "DELETE-IF-NOT" "DELETE-PACKAGE"
701 "DENOMINATOR" "DEPOSIT-FIELD" "DESCRIBE"
702 "DESTRUCTURING-BIND" "DIGIT-CHAR" "DIGIT-CHAR-P" "DIRECTORY"
703 "DIRECTORY-NAMESTRING" "DISASSEMBLE" "DIVISION-BY-ZERO" "DO" "DO*"
704 "DO-ALL-SYMBOLS" "DO-EXTERNAL-SYMBOLS" "DO-SYMBOLS"
705 "DOCUMENTATION" "DOLIST" "DOTIMES" "DOUBLE-FLOAT"
706 "DOUBLE-FLOAT-EPSILON" "DOUBLE-FLOAT-NEGATIVE-EPSILON" "DPB"
707 "DRIBBLE" "DYNAMIC-EXTENT"
708 "ECASE" "ECHO-STREAM" "ECHO-STREAM-INPUT-STREAM"
709 "ECHO-STREAM-OUTPUT-STREAM"
710 "ED" "EIGHTH" "ELT" "ENCODE-UNIVERSAL-TIME"
711 "END-OF-FILE" "ENDIAN-SWAP-VALUE" "ENDP" "ENOUGH-NAMESTRING"
712 "ENSURE-DIRECTORIES-EXIST" "EQ" "EQL" "EQUAL"
713 "EQUALP" "ERROR" "ETYPECASE" "EVAL" "EVAL-WHEN" "EVENP"
714 "EVERY" "EXP" "EXPORT" "EXPT" "EXTENDED-CHAR" "FBOUNDP" "FCEILING"
715 "FDEFINITION" "FFLOOR" "FIFTH" "FILE-AUTHOR" "FILE-ERROR"
716 "FILE-ERROR-PATHNAME" "FILE-LENGTH" "FILE-NAMESTRING"
717 "FILE-POSITION" "FILE-STREAM" "FILE-STRING-LENGTH"
718 "FILE-WRITE-DATE" "FILL" "FILL-POINTER" "FIND"
719 "FIND-ALL-SYMBOLS"
720 "FIND-IF" "FIND-IF-NOT" "FIND-PACKAGE"
721 "FIND-RESTART" "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FIXNUM"
722 "FLET" "FLOAT" "FLOAT-DIGITS" "FLOAT-PRECISION" "FLOAT-RADIX"
723 "FLOAT-SIGN" "FLOATING-POINT-INEXACT"
724 "FLOATING-POINT-INVALID-OPERATION"
725 "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW"
726 "FLOATP" "FLOOR" "FMAKUNBOUND" "FORCE-OUTPUT" "FORMAT" "FORMATTER"
727 "FOURTH" "FRESH-LINE" "FROUND" "FTRUNCATE" "FTYPE" "FUNCALL"
728 "FUNCTION" "FUNCTION-LAMBDA-EXPRESSION" "FUNCTIONP"
729 "GCD" "GENERIC-FUNCTION" "GENSYM"
730 "GENTEMP" "GET" "GET-DECODED-TIME" "GET-DISPATCH-MACRO-CHARACTER"
731 "GET-INTERNAL-REAL-TIME" "GET-INTERNAL-RUN-TIME"
732 "GET-MACRO-CHARACTER" "GET-OUTPUT-STREAM-STRING" "GET-PROPERTIES"
733 "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GO" "GRAPHIC-CHAR-P"
734 "HANDLER-BIND" "HANDLER-CASE" "HASH-TABLE" "HASH-TABLE-COUNT"
735 "HASH-TABLE-P" "HASH-TABLE-REHASH-THRESHOLD"
736 "HASH-TABLE-REHASH-SIZE" "HASH-TABLE-SIZE" "HASH-TABLE-TEST"
737 "HOST-NAMESTRING" "IDENTITY" "IF" "IGNORABLE"
738 "IGNORE" "IGNORE-ERRORS" "IMAGPART" "IMPORT" "IN-PACKAGE"
739 "INTERACTIVE-STREAM-P" "INCF"
740 "INLINE" "INPUT-STREAM-P" "INSPECT" "INTEGER"
741 "INTEGER-DECODE-FLOAT" "INTEGER-LENGTH" "INTEGERP" "INTERN"
742 "INTERNAL-TIME-UNITS-PER-SECOND" "INTERSECTION" "INVOKE-DEBUGGER"
743 "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "ISQRT" "KEYWORD"
744 "KEYWORDP" "LABELS" "LAMBDA" "LAMBDA-LIST-KEYWORDS"
745 "LAMBDA-PARAMETERS-LIMIT" "LAST" "LCM" "LDB" "LDB-TEST" "LDIFF"
746 "LEAST-NEGATIVE-DOUBLE-FLOAT" "LEAST-NEGATIVE-LONG-FLOAT"
747 "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT"
748 "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT"
749 "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT"
750 "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT"
751 "LEAST-NEGATIVE-SHORT-FLOAT" "LEAST-NEGATIVE-SINGLE-FLOAT"
752 "LEAST-POSITIVE-DOUBLE-FLOAT" "LEAST-POSITIVE-LONG-FLOAT"
753 "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT"
754 "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT"
755 "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT"
756 "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT"
757 "LEAST-POSITIVE-SHORT-FLOAT" "LEAST-POSITIVE-SINGLE-FLOAT"
758 "LENGTH" "LET" "LET*" "LISP-IMPLEMENTATION-TYPE"
759 "LISP-IMPLEMENTATION-VERSION" "LIST" "LIST*" "LIST-ALL-PACKAGES"
760 "LIST-LENGTH" "LISTEN" "LISTP" "LOAD"
761 "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-VALUE" "LOCALLY"
762 "LOG" "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV"
763 "LOGICAL-PATHNAME" "LOGICAL-PATHNAME-TRANSLATIONS"
764 "LOGIOR" "LOGNAND" "LOGNOR" "LOGNOT" "LOGORC1" "LOGORC2" "LOGTEST"
765 "LOGXOR" "LONG-FLOAT" "LONG-FLOAT-EPSILON"
766 "LONG-FLOAT-NEGATIVE-EPSILON" "LONG-SITE-NAME" "LOOP"
767 "LOOP-FINISH" "LOWER-CASE-P" "MACHINE-INSTANCE" "MACHINE-TYPE"
768 "MACHINE-VERSION" "MACRO-FUNCTION" "MACROEXPAND" "MACROEXPAND-1"
769 "MACROLET" "MAKE-ARRAY" "MAKE-BROADCAST-STREAM"
770 "MAKE-CONCATENATED-STREAM" "MAKE-CONDITION"
771 "MAKE-DISPATCH-MACRO-CHARACTER" "MAKE-ECHO-STREAM"
772 "MAKE-HASH-TABLE" "MAKE-LIST" "MAKE-PACKAGE" "MAKE-PATHNAME"
773 "MAKE-RANDOM-STATE" "MAKE-SEQUENCE" "MAKE-STRING"
774 "MAKE-STRING-INPUT-STREAM" "MAKE-STRING-OUTPUT-STREAM"
775 "MAKE-SYMBOL" "MAKE-SYNONYM-STREAM" "MAKE-TWO-WAY-STREAM"
776 "MAKUNBOUND" "MAP" "MAP-INTO" "MAPC" "MAPCAN" "MAPCAR" "MAPCON"
777 "MAPHASH" "MAPL" "MAPLIST" "MASK-FIELD" "MAX" "MEMBER" "MEMBER-IF"
778 "MEMBER-IF-NOT" "MERGE" "MERGE-PATHNAMES" "MIN" "MINUSP"
779 "MISMATCH" "MOD" "MOST-NEGATIVE-DOUBLE-FLOAT"
780 "MOST-NEGATIVE-FIXNUM" "MOST-NEGATIVE-LONG-FLOAT"
781 "MOST-NEGATIVE-SHORT-FLOAT" "MOST-NEGATIVE-SINGLE-FLOAT"
782 "MOST-POSITIVE-DOUBLE-FLOAT" "MOST-POSITIVE-FIXNUM"
783 "MOST-POSITIVE-LONG-FLOAT" "MOST-POSITIVE-SHORT-FLOAT"
784 "MOST-POSITIVE-SINGLE-FLOAT" "MUFFLE-WARNING"
785 "MULTIPLE-VALUE-BIND" "MULTIPLE-VALUE-CALL" "MULTIPLE-VALUE-LIST"
786 "MULTIPLE-VALUE-PROG1" "MULTIPLE-VALUE-SETQ"
787 "MULTIPLE-VALUES-LIMIT" "NAME-CHAR" "NAMESTRING" "NBUTLAST"
788 "NCONC" "NIL" "NINTERSECTION" "NINTH" "NOT" "NOTANY" "NOTEVERY"
789 "NOTINLINE" "NRECONC" "NREVERSE" "NSET-DIFFERENCE"
790 "NSET-EXCLUSIVE-OR" "NSTRING-CAPITALIZE" "NSTRING-DOWNCASE"
791 "NSTRING-UPCASE" "NSUBLIS" "NSUBST" "NSUBST-IF" "NSUBST-IF-NOT"
792 "NSUBSTITUTE" "NSUBSTITUTE-IF" "NSUBSTITUTE-IF-NOT" "NTH"
793 "NTH-VALUE" "NTHCDR" "NULL" "NUMBER" "NUMBERP" "NUMERATOR"
794 "NUNION" "ODDP" "OPEN" "OPEN-STREAM-P" "OPTIMIZE" "OR" "OTHERWISE"
795 "OUTPUT-STREAM-P" "PACKAGE" "PACKAGE-ERROR"
796 "PACKAGE-ERROR-PACKAGE" "PACKAGE-NAME" "PACKAGE-NICKNAMES"
797 "PACKAGE-SHADOWING-SYMBOLS" "PACKAGE-USE-LIST"
798 "PACKAGE-USED-BY-LIST" "PACKAGEP" "PAIRLIS" "PARSE-ERROR"
799 "PARSE-INTEGER" "PARSE-NAMESTRING" "PATHNAME" "PATHNAME-DEVICE"
800 "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-MATCH-P"
801 "PATHNAME-NAME" "PATHNAME-TYPE" "PATHNAME-VERSION" "PATHNAMEP"
802 "PEEK-CHAR" "PHASE" "PI" "PLUSP" "POP" "POSITION" "POSITION-IF"
803 "POSITION-IF-NOT" "PPRINT" "PPRINT-DISPATCH"
804 "PPRINT-EXIT-IF-LIST-EXHAUSTED" "PPRINT-FILL" "PPRINT-INDENT"
805 "PPRINT-LINEAR" "PPRINT-LOGICAL-BLOCK" "PPRINT-NEWLINE"
806 "PPRINT-POP" "PPRINT-TAB" "PPRINT-TABULAR" "PRIN1"
807 "PRIN1-TO-STRING" "PRINC" "PRINC-TO-STRING" "PRINT"
808 "PRINT-UNREADABLE-OBJECT" "PROBE-FILE" "PROCLAIM" "PROG" "PROG*"
809 "PROG1" "PROG2" "PROGN" "PROGRAM-ERROR" "PROGV" "PROVIDE" "PSETF"
810 "PSETQ" "PUSH" "PUSHNEW" "QUOTE" "RANDOM" "RANDOM-STATE"
811 "RANDOM-STATE-P" "RASSOC" "RASSOC-IF" "RASSOC-IF-NOT" "RATIO"
812 "RATIONAL" "RATIONALIZE" "RATIONALP" "READ" "READ-BYTE"
813 "READ-CHAR" "READ-CHAR-NO-HANG" "READ-DELIMITED-LIST"
814 "READ-FROM-STRING" "READ-LINE" "READ-PRESERVING-WHITESPACE"
815 "READ-SEQUENCE"
816 "READER-ERROR" "READTABLE" "READTABLE-CASE" "READTABLEP" "REAL"
817 "REALP" "REALPART" "REDUCE" "REM" "REMF" "REMHASH"
818 "REMOVE" "REMOVE-DUPLICATES" "REMOVE-IF" "REMOVE-IF-NOT"
819 "REMPROP" "RENAME-FILE" "RENAME-PACKAGE" "REPLACE" "REQUIRE"
820 "REST" "RESTART" "RESTART-BIND" "RESTART-CASE" "RESTART-NAME"
821 "RETURN" "RETURN-FROM" "REVAPPEND" "REVERSE" "ROOM" "ROTATEF"
822 "ROUND" "ROW-MAJOR-AREF" "RPLACA" "RPLACD" "SAFETY"
823 "SATISFIES" "SBIT" "SCALE-FLOAT" "SCHAR" "SEARCH" "SECOND"
824 "SEQUENCE" "SERIOUS-CONDITION" "SET"
825 "SET-DIFFERENCE" "SET-DISPATCH-MACRO-CHARACTER"
826 "SET-EXCLUSIVE-OR" "SET-MACRO-CHARACTER" "SET-PPRINT-DISPATCH"
827 "SET-SYNTAX-FROM-CHAR" "SETF" "SETQ" "SEVENTH" "SHADOW"
828 "SHADOWING-IMPORT" "SHIFTF" "SHORT-FLOAT"
829 "SHORT-FLOAT-EPSILON" "SHORT-FLOAT-NEGATIVE-EPSILON"
830 "SHORT-SITE-NAME" "SIGNAL" "SIGNED-BYTE" "SIGNUM"
831 "SIMPLE-ARRAY" "SIMPLE-BASE-STRING" "SIMPLE-BIT-VECTOR"
832 "SIMPLE-BIT-VECTOR-P" "SIMPLE-CONDITION"
833 "SIMPLE-CONDITION-FORMAT-ARGUMENTS"
834 "SIMPLE-CONDITION-FORMAT-CONTROL"
835 "SIMPLE-ERROR"
836 "SIMPLE-STRING" "SIMPLE-STRING-P" "SIMPLE-TYPE-ERROR"
837 "SIMPLE-VECTOR" "SIMPLE-VECTOR-P" "SIMPLE-WARNING" "SIN"
838 "SINGLE-FLOAT" "SINGLE-FLOAT-EPSILON"
839 "SINGLE-FLOAT-NEGATIVE-EPSILON" "SINH" "SIXTH" "SLEEP"
840 "SOFTWARE-TYPE" "SOFTWARE-VERSION" "SOME" "SORT" "SPACE"
841 "SPECIAL" "SPECIAL-OPERATOR-P" "SPEED" "SQRT" "STABLE-SORT"
842 "STANDARD-CHAR" "STANDARD-CHAR-P" "STEP"
843 "STORAGE-CONDITION" "STORE-VALUE" "STREAM"
844 "STREAM-ELEMENT-TYPE" "STREAM-ERROR" "STREAM-ERROR-STREAM"
845 "STREAM-EXTERNAL-FORMAT"
846 "STREAMP" "STRING" "STRING-CAPITALIZE"
847 "STRING-DOWNCASE" "STRING-EQUAL"
848 "STRING-GREATERP" "STRING-LEFT-TRIM" "STRING-LESSP"
849 "STRING-NOT-EQUAL" "STRING-NOT-GREATERP" "STRING-NOT-LESSP"
850 "STRING-RIGHT-TRIM" "STRING-STREAM"
851 "STRING-TRIM" "STRING-UPCASE" "STRING/="
852 "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP"
853 "STRUCTURE" "STRUCTURE-OBJECT"
854 "SUBLIS" "SUBSEQ" "SUBSETP" "SUBST" "SUBST-IF"
855 "SUBST-IF-NOT" "SUBSTITUTE" "SUBSTITUTE-IF"
856 "SUBSTITUTE-IF-NOT" "SUBTYPEP" "SVREF" "SXHASH" "SYMBOL"
857 "SYMBOL-FUNCTION" "SYMBOL-MACROLET" "SYMBOL-NAME"
858 "SYMBOL-PACKAGE" "SYMBOL-PLIST" "SYMBOL-VALUE" "SYMBOLP"
859 "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "T"
860 "TAGBODY" "TAILP" "TAN" "TANH" "TENTH" "TERPRI" "THE" "THIRD"
861 "THROW" "TIME" "TRACE" "TRANSLATE-LOGICAL-PATHNAME"
862 "TRANSLATE-PATHNAME" "TREE-EQUAL"
863 "TRUENAME" "TRUNCATE" "TWO-WAY-STREAM"
864 "TWO-WAY-STREAM-INPUT-STREAM" "TWO-WAY-STREAM-OUTPUT-STREAM"
865 "TYPE" "TYPE-ERROR" "TYPE-ERROR-DATUM"
866 "TYPE-ERROR-EXPECTED-TYPE" "TYPE-OF" "TYPECASE" "TYPEP"
867 "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "UNEXPORT" "UNINTERN"
868 "UNION" "UNLESS" "UNREAD-CHAR" "UNSIGNED-BYTE" "UNTRACE"
869 "UNUSE-PACKAGE" "UNWIND-PROTECT" "UPGRADED-ARRAY-ELEMENT-TYPE"
870 "UPGRADED-COMPLEX-PART-TYPE" "UPPER-CASE-P"
871 "USE-PACKAGE" "USE-VALUE" "USER-HOMEDIR-PATHNAME" "VALUES"
872 "VALUES-LIST" "VARIABLE" "VECTOR" "VECTOR-ELT-WIDTH" "VECTOR-POP" "VECTOR-PUSH"
873 "VECTOR-PUSH-EXTEND" "VECTORP" "WARN" "WARNING" "WHEN"
874 "WILD-PATHNAME-P" "WITH-COMPILATION-UNIT"
875 "WITH-CONDITION-RESTARTS"
876 "WITH-HASH-TABLE-ITERATOR" "WITH-INPUT-FROM-STRING"
877 "WITH-OPEN-FILE" "WITH-OPEN-STREAM" "WITH-OUTPUT-TO-STRING"
878 "WITH-PACKAGE-ITERATOR" "WITH-SIMPLE-RESTART"
879 "WITH-STANDARD-IO-SYNTAX" "WRITE" "WRITE-BYTE" "WRITE-CHAR"
880 "WRITE-LINE" "WRITE-STRING" "WRITE-TO-STRING"
881 "WRITE-SEQUENCE" "Y-OR-N-P" "YES-OR-NO-P" "ZEROP"
882
883 "ADD-METHOD" "ALLOCATE-INSTANCE" "CALL-METHOD"
884 "CALL-NEXT-METHOD" "CHANGE-CLASS"
885 "COMPUTE-APPLICABLE-METHODS" "DEFCLASS" "DEFGENERIC"
886 "DEFINE-METHOD-COMBINATION" "DEFMETHOD" "DESCRIBE-OBJECT"
887 "ENSURE-GENERIC-FUNCTION"
888 "FIND-METHOD" "FUNCTION-KEYWORDS"
889 "INITIALIZE-INSTANCE" "INVALID-METHOD-ERROR"
890 "MAKE-INSTANCE" "MAKE-INSTANCES-OBSOLETE"
891 "METHOD-COMBINATION-ERROR" "METHOD-QUALIFIERS" "NEXT-METHOD-P"
892 "NO-APPLICABLE-METHOD" "NO-NEXT-METHOD" "PRINT-OBJECT"
893 "REINITIALIZE-INSTANCE" "REMOVE-METHOD" "SHARED-INITIALIZE"
894 "SLOT-BOUNDP" "SLOT-EXISTS-P" "SLOT-MAKUNBOUND" "SLOT-MISSING"
895 "SLOT-UNBOUND" "SLOT-VALUE" "STANDARD"
896 "STANDARD-GENERIC-FUNCTION" "STANDARD-METHOD" "STANDARD-OBJECT"
897 "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
898 "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" "WITH-ACCESSORS" "WITH-SLOTS"
899 "MAKE-METHOD" "UNBOUND-SLOT" "UNBOUND-SLOT-INSTANCE"
900 "CELL-ERROR-NAME"
901 "GET-SETF-EXPANSION" "STYLE-WARNING"
902 "PRINT-NOT-READABLE-OBJECT"
903 "DEFINE-SETF-EXPANDER" "PRINT-NOT-READABLE" "METHOD"
904 "METHOD-COMBINATION"
905 "MAKE-LOAD-FORM" "MAKE-LOAD-FORM-SAVING-SLOTS"
906 "CHAR-TITLECASE" "TITLE-CASE-P"
907 "GLYPH" "SGLYPH"
908 "STRING-TO-NFC"
909 "CODEPOINT-LIMIT" "CODEPOINT")
910 #+unicode
911 (:export "STRING-TO-NFC" "STRING-TO-NFD"
912 "STRING-TO-NFKC" "STRING-TO-NFKD"
913 "UNICODE-COMPLETE" "UNICODE-COMPLETE-NAME"
914 "LOAD-ALL-UNICODE-DATA"))
915
916 (defpackage "EVAL"
917 (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*"
918 "*INTERPRETED-FUNCTION-CACHE-MINIMUM-SIZE*"
919 "*INTERPRETED-FUNCTION-CACHE-THRESHOLD*"
920 "FLUSH-INTERPRETED-FUNCTION-CACHE" "INTERNAL-EVAL"
921 "INTERPRETED-FUNCTION"
922 "INTERPRETED-FUNCTION-ARGLIST" "INTERPRETED-FUNCTION-CLOSURE"
923 "INTERPRETED-FUNCTION-LAMBDA-EXPRESSION"
924 "INTERPRETED-FUNCTION-NAME" "INTERPRETED-FUNCTION-P"
925 "INTERPRETED-FUNCTION-TYPE" "MAKE-INTERPRETED-FUNCTION"
926 "TRACE-EVAL"))
927 (dolist
928 (name
929 '("%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT" "%RPLACA" "%RPLACD"
930 "%SBITSET" "%SCHARSET" "%SET-FDEFINITION"
931 "%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF" "%SETELT" "%SETNTH"
932 "%SP-STRING-COMPARE" "%SVSET" "%TYPEP" "*READ-ONLY-SPACE-FREE-POINTER*"
933 "*STATIC-SPACE-FREE-POINTER*" "CURRENT-DYNAMIC-SPACE-START"
934 "DYNAMIC-0-SPACE-START" "DYNAMIC-1-SPACE-START" "FIXNUM"
935 "READ-ONLY-SPACE-START" "SHORT-FLOAT-P" "STATIC-SPACE-START"
936 "STRING/=*" "STRING<*" "STRING<=*" "STRING=*" "STRING>*" "STRING>=*"))
937 (intern name "LISP"))
938 (dolist (name '("%PRIMITIVE" "%STANDARD-CHAR-P"))
939 (intern name "SYSTEM"))
940 (intern "BIGNUM-TYPE" "BIGNUM")
941 (dolist
942 (name
943 '("%SP-SET-DEFINITION" "%SP-SET-PLIST" "ARRAY-HEADER-P" "BASE-CHAR-P"
944 "DOUBLE-FLOAT-P" "LONG-FLOAT-P" "SIMPLE-ARRAY-P" "SINGLE-FLOAT-P"
945 "DOUBLE-DOUBLE-FLOAT-P"
946 "DOUBLE-DOUBLE-FLOAT"))
947 (intern name "KERNEL"))
948
949 (defpackage #+pmax "PMAX"
950 #+sparc "SPARC"
951 #+ibmrt "RT"
952 #+x86 "X86"
953 #+amd64 "AMD64"
954 #+hppa "HPPA"
955 #+alpha "ALPHA"
956 #+sgi "SGI"
957 #+ppc "PPC"
958 (:nicknames "VM" #+(or pmax sgi) "MIPS")
959 (:import-from "LISP" "%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET"
960 "%PUT" "%RPLACA" "%RPLACD" "%SBITSET" "%SCHARSET"
961 "%SET-FDEFINITION" "%SET-FILL-POINTER"
962 "%SET-ROW-MAJOR-AREF" "%SETELT" "%SETNTH" "%SP-STRING-COMPARE"
963 "%SVSET" "%TYPEP" "*READ-ONLY-SPACE-FREE-POINTER*"
964 "*STATIC-SPACE-FREE-POINTER*" "CURRENT-DYNAMIC-SPACE-START"
965 "DYNAMIC-0-SPACE-START" "DYNAMIC-1-SPACE-START" "FIXNUM"
966 "READ-ONLY-SPACE-START" "SHORT-FLOAT-P" "STATIC-SPACE-START"
967 "STRING/=*" "STRING<*" "STRING<=*" "STRING=*"
968 "STRING>*" "STRING>=*")
969 (:shadowing-import-from "KERNEL" "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS"
970 "STRUCTURE-CLASS" "FIND-CLASS" "CLASS-OF")
971 (:export "*ASSEMBLY-UNIT-LENGTH*" "*PRIMITIVE-OBJECTS*"
972 "AFTER-BREAKPOINT-TRAP"
973 "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
974 "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
975 "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT"
976 "ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG" "BASE-CHAR-REG-SC-NUMBER"
977 "BASE-CHAR-STACK-SC-NUMBER" "BASE-CHAR-TYPE"
978 "BIGNUM-DIGITS-OFFSET" "BIGNUM-TYPE" "BINDING-SIZE"
979 "BINDING-SYMBOL-SLOT" "BINDING-VALUE-SLOT" "BREAKPOINT-TRAP"
980 "BYTE-CODE-CLOSURE-TYPE" "BYTE-CODE-FUNCTION-TYPE"
981 "BYTE-BITS" "BYTE-REG-SC-NUMBER"
982 "CATCH-BLOCK-CURRENT-CODE-SLOT"
983 "CATCH-BLOCK-CURRENT-CONT-SLOT" "CATCH-BLOCK-CURRENT-UWP-SLOT"
984 "CATCH-BLOCK-ENTRY-PC-SLOT" "CATCH-BLOCK-PREVIOUS-CATCH-SLOT"
985 "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE" "CATCH-BLOCK-SIZE-SLOT"
986 "CATCH-BLOCK-TAG-SLOT" "CERROR-TRAP"
987 "CLOSURE-FUNCTION-HEADER-TYPE" "CLOSURE-FUNCTION-SLOT"
988 "CLOSURE-HEADER-TYPE" "CLOSURE-INFO-OFFSET" "CODE-BREAKDOWN"
989 "CODE-CODE-SIZE-SLOT" "CODE-CONSTANTS-OFFSET"
990 "CODE-DEBUG-INFO-SLOT" "CODE-ENTRY-POINTS-SLOT" "CODE-HEADER-TYPE"
991 "CODE-TRACE-TABLE-OFFSET-SLOT" "COMPLEX-ARRAY-TYPE"
992 "COMPLEX-BIT-VECTOR-TYPE" "COMPLEX-DOUBLE-FLOAT-FILLER-SLOT"
993 "COMPLEX-DOUBLE-FLOAT-IMAG-SLOT" "COMPLEX-DOUBLE-FLOAT-REAL-SLOT"
994 "COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-TYPE"
995 "COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER"
996 "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT"
997 "COMPLEX-LONG-FLOAT-IMAG-SLOT" "COMPLEX-LONG-FLOAT-REAL-SLOT"
998 "COMPLEX-LONG-FLOAT-SIZE" "COMPLEX-LONG-FLOAT-TYPE"
999 "COMPLEX-LONG-REG-SC-NUMBER" "COMPLEX-LONG-STACK-SC-NUMBER"
1000 "COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
1001 "COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-TYPE"
1002 "COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
1003 "COMPLEX-SIZE" "COMPLEX-STRING-TYPE" "COMPLEX-TYPE"
1004 "COMPLEX-VECTOR-TYPE" "CONS-CAR-SLOT" "CONS-CDR-SLOT" "CONS-SIZE"
1005 "CONSTANT-SC-NUMBER" "CONTROL-STACK-FORK" "CONTROL-STACK-RESUME"
1006 "CONTROL-STACK-RETURN" "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
1007 "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
1008 "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
1009 "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
1010 "DOUBLE-FLOAT-DIGITS" "DOUBLE-FLOAT-EXPONENT-BYTE"
1011 "DOUBLE-FLOAT-FILLER-SLOT" "DOUBLE-FLOAT-HIDDEN-BIT"
1012 "DOUBLE-FLOAT-NORMAL-EXPONENT-MAX"
1013 "DOUBLE-FLOAT-NORMAL-EXPONENT-MIN" "DOUBLE-FLOAT-SIGNIFICAND-BYTE"
1014 "DOUBLE-FLOAT-SIZE" "DOUBLE-FLOAT-TRAPPING-NAN-BIT"
1015 "DOUBLE-FLOAT-TYPE" "DOUBLE-FLOAT-VALUE-SLOT"
1016 "DOUBLE-INT-CARG-REG-SC-NUMBER" "DOUBLE-REG-SC-NUMBER"
1017 "DOUBLE-STACK-SC-NUMBER" "DYLAN-FUNCTION-HEADER-TYPE"
1018 "ERROR-TRAP" "EVEN-FIXNUM-TYPE"
1019 "EXPORTED-STATIC-SYMBOLS" "EXTERN-ALIEN-NAME"
1020 "FDEFN-FUNCTION-SLOT" "FDEFN-NAME-SLOT" "FDEFN-RAW-ADDR-SLOT"
1021 "FDEFN-SIZE" "FDEFN-TYPE" "FIND-HOLES" "FIXNUM"
1022 "FIXUP-CODE-OBJECT" "FLOAT-DENORMAL-TRAP-BIT"
1023 "FLOAT-DIVIDE-BY-ZERO-TRAP-BIT"
1024 "FLOAT-IMPRECISE-TRAP-BIT" "FLOAT-INVALID-TRAP-BIT"
1025 "FLOAT-OVERFLOW-TRAP-BIT" "FLOAT-SIGN-SHIFT"
1026 "FLOAT-UNDERFLOW-TRAP-BIT" "FLOATING-POINT-MODES"
1027 "FORWARDING-POINTER-TYPE"
1028 "FP-CONSTANT-SC-NUMBER"
1029 "FP-DOUBLE-ZERO-SC-NUMBER" "FP-SINGLE-ZERO-SC-NUMBER"
1030 "FUNCALLABLE-INSTANCE-FUNCTION-SLOT"
1031 "FUNCALLABLE-INSTANCE-HEADER-TYPE"
1032 "FUNCALLABLE-INSTANCE-INFO-OFFSET"
1033 "FUNCTION-ARGLIST-SLOT" "FUNCTION-CODE-OFFSET"
1034 "FUNCTION-END-BREAKPOINT-TRAP" "FUNCTION-HEADER-TYPE"
1035 "FUNCTION-NAME-SLOT" "FUNCTION-NEXT-SLOT" "FUNCTION-POINTER-TYPE"
1036 "FUNCTION-SELF-SLOT" "FUNCTION-TYPE-SLOT"
1037 "FUNCALLABLE-INSTANCE-LAYOUT-SLOT"
1038 "FUNCALLABLE-INSTANCE-LEXENV-SLOT"
1039 "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
1040 "IMMEDIATE-BASE-CHAR-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
1041 "IMMEDIATE-SC-NUMBER"
1042 "INSTANCE-HEADER-TYPE" "INSTANCE-POINTER-TYPE"
1043 "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
1044 "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGUMENTS"
1045 "INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-TYPE"
1046 "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE"
1047 "LONG-FLOAT-HIDDEN-BIT" "LONG-FLOAT-NORMAL-EXPONENT-MAX"
1048 "LONG-FLOAT-NORMAL-EXPONENT-MIN" "LONG-FLOAT-SIGNIFICAND-BYTE"
1049 "LONG-FLOAT-SIZE" "LONG-FLOAT-TRAPPING-NAN-BIT" "LONG-FLOAT-TYPE"
1050 "LONG-FLOAT-VALUE-SLOT" "LONG-REG-SC-NUMBER" "LONG-STACK-SC-NUMBER"
1051 "LOWTAG-BITS" "LOWTAG-LIMIT" "LOWTAG-MASK"
1052 "MEMORY-USAGE" "MOST-POSITIVE-COST"
1053 "NEGATIVE-IMMEDIATE-SC-NUMBER" "NON-DESCRIPTOR-REG-SC-NUMBER"
1054 "NULL-SC-NUMBER" "OBJECT-NOT-LIST-TRAP" "OBJECT-NOT-INSTANCE-TRAP"
1055 "ODD-FIXNUM-TYPE" "OFFSET-STATIC-SYMBOL" "OTHER-IMMEDIATE-0-TYPE"
1056 "OTHER-IMMEDIATE-1-TYPE" "OTHER-POINTER-TYPE"
1057 "PAD-DATA-BLOCK" "PENDING-INTERRUPT-TRAP"
1058 "PRIMITIVE-OBJECT" "PRIMITIVE-OBJECT-HEADER"
1059 "PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
1060 "PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
1061 "PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"
1062 "PRIMITIVE-OBJECT-VARIABLE-LENGTH" "PRINT-ALLOCATED-OBJECTS"
1063 "RANDOM-IMMEDIATE-SC-NUMBER" "RATIO-DENOMINATOR-SLOT"
1064 "RATIO-NUMERATOR-SLOT" "RATIO-SIZE" "RATIO-TYPE"
1065 "REGISTER-SAVE-PENALTY" "RETURN-PC-HEADER-TYPE"
1066 "RETURN-PC-RETURN-POINT-OFFSET" "SANCTIFY-FOR-EXECUTION"
1067 "SAP-POINTER-SLOT" "SAP-REG-SC-NUMBER" "SAP-SIZE"
1068 "SAP-STACK-SC-NUMBER" "SAP-TYPE"
1069 "SCAVENGER-HOOK-FUNCTION-SLOT" "SCAVENGER-HOOK-SIZE"
1070 "SCAVENGER-HOOK-TYPE" "SCAVENGER-HOOK-VALUE-SLOT"
1071 "SCAVENGER-HOOK-NEXT-SLOT"
1072 "SIGCONTEXT-FLOATING-POINT-MODES" "SIGCONTEXT-FLOAT-REGISTER"
1073 "SIGCONTEXT-PROGRAM-COUNTER" "SIGCONTEXT-REGISTER"
1074 "SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER"
1075 "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-TYPE"
1076 "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-TYPE"
1077 "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-TYPE"
1078 "SIMPLE-ARRAY-DOUBLE-FLOAT-TYPE"
1079 "SIMPLE-ARRAY-LONG-FLOAT-TYPE"
1080 "SIMPLE-ARRAY-SINGLE-FLOAT-TYPE"
1081 "SIMPLE-ARRAY-TYPE" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-TYPE"
1082 "SIMPLE-ARRAY-UNSIGNED-BYTE-2-TYPE"
1083 "SIMPLE-ARRAY-UNSIGNED-BYTE-32-TYPE"
1084 "SIMPLE-ARRAY-UNSIGNED-BYTE-4-TYPE"
1085 "SIMPLE-ARRAY-UNSIGNED-BYTE-8-TYPE"
1086 "SIMPLE-ARRAY-SIGNED-BYTE-16-TYPE"
1087 "SIMPLE-ARRAY-SIGNED-BYTE-30-TYPE"
1088 "SIMPLE-ARRAY-SIGNED-BYTE-32-TYPE"
1089 "SIMPLE-ARRAY-SIGNED-BYTE-8-TYPE"
1090 "SIMPLE-BIT-VECTOR-TYPE"
1091 "SIMPLE-STRING-TYPE" "SIMPLE-VECTOR-TYPE" "SINGLE-FLOAT-BIAS"
1092 "SINGLE-FLOAT-DIGITS" "SINGLE-FLOAT-EXPONENT-BYTE"
1093 "SINGLE-FLOAT-HIDDEN-BIT" "SINGLE-FLOAT-NORMAL-EXPONENT-MAX"
1094 "SINGLE-FLOAT-NORMAL-EXPONENT-MIN" "SINGLE-FLOAT-SIGNIFICAND-BYTE"
1095 "SINGLE-FLOAT-SIZE" "SINGLE-FLOAT-TRAPPING-NAN-BIT"
1096 "SINGLE-FLOAT-TYPE" "SINGLE-FLOAT-VALUE-SLOT"
1097 "SINGLE-INT-CARG-REG-SC-NUMBER"
1098 "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER"
1099 "SINGLE-STEP-BREAKPOINT-TRAP"
1100 "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS"
1101 "SLOT-LENGTH" "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
1102 "SLOT-REST-P" "STATIC-FUNCTIONS" "STATIC-FUNCTION-OFFSET"
1103 "STATIC-SYMBOL-OFFSET" "STATIC-SYMBOL-P" "STATIC-SYMBOLS"
1104 "STRUCTURE-USAGE" "SYMBOL-FUNCTION-SLOT"
1105 "SYMBOL-HASH-SLOT" "SYMBOL-HEADER-TYPE" "SYMBOL-NAME-SLOT"
1106 "SYMBOL-PACKAGE-SLOT" "SYMBOL-PLIST-SLOT"
1107 "SYMBOL-RAW-FUNCTION-ADDR-SLOT" "SYMBOL-SETF-FUNCTION-SLOT"
1108 "SYMBOL-SIZE" "SYMBOL-UNUSED-SLOT" "SYMBOL-VALUE-SLOT"
1109 "TARGET-BINDING-STACK-START" "TARGET-BYTE-ORDER"
1110 "TARGET-CONTROL-STACK-START" "TARGET-DYNAMIC-SPACE-START"
1111 "TARGET-FASL-CODE-FORMAT" "TARGET-FASL-FILE-TYPE"
1112 "TARGET-FOREIGN-LINKAGE-ENTRY-SIZE"
1113 "TARGET-FOREIGN-LINKAGE-SPACE-START"
1114 "TARGET-HEAP-ADDRESS-SPACE" "TARGET-MOST-NEGATIVE-FIXNUM"
1115 "TARGET-MOST-POSITIVE-FIXNUM" "TARGET-READ-ONLY-SPACE-START"
1116 "TARGET-STATIC-SPACE-START" "TRACE-TABLE-CALL-SITE"
1117 "TRACE-TABLE-FUNCTION-EPILOGUE" "TRACE-TABLE-FUNCTION-PROLOGUE"
1118 "TRACE-TABLE-NORMAL" "TYPE-BITS" "TYPE-MASK" "UNBOUND-MARKER-TYPE"
1119 "UNINTERNED-SYMBOL-COUNT" "UNSIGNED-IMMEDIATE-SC-NUMBER"
1120 "UNSIGNED-REG-SC-NUMBER" "UNSIGNED-STACK-SC-NUMBER"
1121 "UNWIND-BLOCK-CURRENT-CODE-SLOT" "UNWIND-BLOCK-CURRENT-CONT-SLOT"
1122 "UNWIND-BLOCK-CURRENT-UWP-SLOT" "UNWIND-BLOCK-ENTRY-PC-SLOT"
1123 "UNWIND-BLOCK-SIZE" "VALUE-CELL-HEADER-TYPE" "VALUE-CELL-SIZE"
1124 "VALUE-CELL-VALUE-SLOT" "VECTOR-DATA-OFFSET" "VECTOR-LENGTH-SLOT"
1125 "VECTOR-MUST-REHASH-SUBTYPE" "VECTOR-NORMAL-SUBTYPE"
1126 "VECTOR-VALID-HASHING-SUBTYPE"
1127 "WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
1128 "WEAK-POINTER-SIZE" "WEAK-POINTER-TYPE" "WEAK-POINTER-VALUE-SLOT"
1129 "WORD-BITS" "WORD-BYTES" "WORD-REG-SC-NUMBER" "WORD-SHIFT"
1130 "ZERO-SC-NUMBER"
1131 "CALLBACK-ACCESSOR-FORM" "MAKE-CALLBACK-TRAMPOLINE"
1132 "FIXNUMIZE"
1133 "WEAK-POINTER-MARK-BIT-SLOT"
1134 "CHAR-BITS" "CHAR-BYTES"
1135 )
1136 #+x86
1137 (:export "COMPATIBLE-FUNCTION-TYPES-P")
1138 #+sparc
1139 (:export "ALLOCATION-TRAP"
1140 "POSITIVE-FIXNUM-BITS"
1141 "FIXNUM-TAG-BITS"
1142 "FIXNUM-TAG-MASK"
1143 "PSEUDO-ATOMIC-TRAP"
1144 "GET-FP-OPERANDS"
1145 "PSEUDO-ATOMIC-VALUE"
1146 "PSEUDO-ATOMIC-INTERRUPTED-VALUE"
1147 "COMPATIBLE-FUNCTION-TYPES-P"
1148 "SINGLE-FLOAT-BYTES"
1149 "DOUBLE-FLOAT-BYTES")
1150 #+ppc
1151 (:export "SIGCONTEXT-LR"
1152 "COMPATIBLE-FUNCTION-TYPES-P"
1153 "FLOAT-INVALID-OP-1-BYTE"
1154 "GET-FP-OPERANDS"
1155 "FUSED-MULTIPLY-ADD"
1156 "FUSED-MULTIPLY-SUBTRACT")
1157 #+heap-overflow-check
1158 (:export "DYNAMIC-SPACE-OVERFLOW-ERROR-TRAP"
1159 "DYNAMIC-SPACE-OVERFLOW-WARNING-TRAP")
1160 ;;#+double-double
1161 (:export "DOUBLE-DOUBLE-FLOAT"
1162 "DOUBLE-DOUBLE-FLOAT-TYPE"
1163 "DOUBLE-DOUBLE-FLOAT-HI-SLOT"
1164 "DOUBLE-DOUBLE-FLOAT-LO-SLOT"
1165 "DOUBLE-DOUBLE-FLOAT-FILLER-SLOT"
1166 "DOUBLE-DOUBLE-FLOAT-SIZE"
1167 "DOUBLE-DOUBLE-REG-SC-NUMBER"
1168 "DOUBLE-DOUBLE-STACK-SC-NUMBER"
1169 "DOUBLE-DOUBLE-FLOAT-DIGITS"
1170 "SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-TYPE"
1171
1172 "COMPLEX-DOUBLE-DOUBLE-FLOAT-TYPE"
1173 "COMPLEX-DOUBLE-DOUBLE-FLOAT-FILLER-SLOT"
1174 "COMPLEX-DOUBLE-DOUBLE-FLOAT-REAL-HI-SLOT"
1175 "COMPLEX-DOUBLE-DOUBLE-FLOAT-REAL-LO-SLOT"
1176 "COMPLEX-DOUBLE-DOUBLE-FLOAT-IMAG-HI-SLOT"
1177 "COMPLEX-DOUBLE-DOUBLE-FLOAT-IMAG-LO-SLOT"
1178 "COMPLEX-DOUBLE-DOUBLE-FLOAT-SIZE"
1179 "COMPLEX-DOUBLE-DOUBLE-REG-SC-NUMBER"
1180 "COMPLEX-DOUBLE-DOUBLE-STACK-SC-NUMBER"
1181
1182 "SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-TYPE"
1183 ))
1184
1185 (defpackage "CONDITIONS")
1186 (intern "DISASSEMBLE" "LISP")
1187 (defpackage "DISASSEM"
1188 (:import-from "LISP" "DISASSEMBLE")
1189 (:export "*NOTE-COLUMN*" "*OPCODE-COLUMN-WIDTH*" "ADD-COMMENT-HOOK"
1190 "ADD-HOOK" "ADD-NOTE-HOOK" "ARG-VALUE" "CREATE-DSTATE"
1191 "DISASSEM-STATE" "DISASSEMBLE" "DISASSEMBLE-CODE-COMPONENT"
1192 "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY" "DISASSEMBLE-SEGMENT"
1193 "DISASSEMBLE-SEGMENTS" "DSTATE-CODE" "DSTATE-CURPOS"
1194 "DSTATE-GET-PROP" "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH"
1195 "DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START" "FIELD-TYPE"
1196 "FIND-INST" "GEN-FIELD-TYPE-DECL-FORM" "GEN-INST-DECL-FORM"
1197 "GEN-INST-FORMAT-DECL-FORM" "GET-CODE-SEGMENTS"
1198 "GET-FUNCTION-SEGMENTS" "GET-INST-SPACE" "HANDLE-BREAK-ARGS"
1199 "INST" "INST-FORMAT" "LABEL-SEGMENTS"
1200 "MAYBE-NOTE-ASSEMBLER-ROUTINE"
1201 "MAYBE-NOTE-STATIC-FUNCTION"
1202 "MAYBE-NOTE-ASSOCIATED-STORAGE-REF"
1203 "MAYBE-NOTE-NIL-INDEXED-OBJECT"
1204 "MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF"
1205 "MAYBE-NOTE-SINGLE-STORAGE-REF" "NOTE" "NOTE-CODE-CONSTANT"
1206 "PARAMS" "PRIN1-QUOTED-SHORT" "PRIN1-SHORT" "PRINT-BYTES"
1207 "PRINT-CURRENT-ADDRESS" "PRINT-FIELD" "PRINT-INST"
1208 "PRINT-INST-USING" "PRINT-NOTES-AND-NEWLINE" "PRINT-WORDS"
1209 "SAP-REF-DCHUNK" "SEG-DEBUG-FUNCTION" "SEG-LENGTH" "SEG-START"
1210 "SEGMENT" "SET-ADDRESS-PRINTING-RANGE" "SET-DISASSEM-PARAMS"
1211 "SET-DSTATE-SEGMENT" "SIGN-EXTEND" "SPECIALIZE"
1212 "GEN-PRINTER-DEF-FORMS-DEF-FORM"
1213 "MAKE-DSTATE"
1214 "DEFINE-ARGUMENT-TYPE"
1215 "GEN-ARG-TYPE-DEF-FORM"
1216 "READ-SIGNED-SUFFIX"
1217 "ADD-OFFS-HOOK"
1218 "MAKE-MEMORY-SEGMENT"
1219 "GEN-PREAMBLE-FORM"
1220 "MAKE-SEGMENT"
1221 "SEGMENT-OVERFLOW"
1222 "SEG-VIRTUAL-LOCATION"
1223 "MAKE-DECODED-INST"
1224 "DCHUNK"
1225 "*DEFAULT-DSTATE-HOOKS*"
1226 "MAKE-CODE-SEGMENT"
1227 "MAKE-OFFS-HOOK"
1228 "DSTATE-SEGMENT"
1229 "DSTATE-CUR-OFFS"
1230 "PRINC16"
1231 "INSTRUCTION"
1232 "DEFINE-INSTRUCTION-FORMAT"
1233 "DSTATE-NEXT-OFFS"
1234 "INSTALL-INST-FLAVORS"
1235 "SEG-SAP-MAKER"
1236 "DISASSEMBLE-ASSEM-SEGMENT"
1237 "GEN-CLEAR-INFO-FORM"
1238 "READ-SUFFIX"
1239 "MAP-SEGMENT-INSTRUCTIONS"
1240 "GEN-FORMAT-DEF-FORM"
1241 "SET-LOCATION-PRINTING-RANGE"
1242 "MAKE-VECTOR-SEGMENT"
1243 "ADD-OFFS-NOTE-HOOK"
1244 "ADD-OFFS-COMMENT-HOOK"
1245 "DSTATE-CUR-ADDR"
1246 "DSTATE-NEXT-ADDR"
1247 #+sparc "MAYBE-NOTE-STATIC-FUNCTION"
1248 ))
1249 (dolist
1250 (name
1251 '("*MAX-TRACE-INDENTATION*"
1252 "*TRACED-FUNCTION-LIST*"))
1253 (intern name "EXTENSIONS"))
1254 (defpackage "DEBUG"
1255 (:import-from "EXTENSIONS" "*MAX-TRACE-INDENTATION*"
1256 "*TRACED-FUNCTION-LIST*")
1257 (:export "*AUTO-EVAL-IN-FRAME*" "*DEBUG-PRINT-LENGTH*"
1258 "*DEBUG-PRINT-LEVEL*" "*DEBUG-PROMPT*"
1259 "*DEBUG-READTABLE*" "*FLUSH-DEBUG-ERRORS*"
1260 "*HELP-LINE-SCROLL-COUNT*" "*IN-THE-DEBUGGER*"
1261 "*MAX-TRACE-INDENTATION*" "*TRACE-FRAME*"
1262 "*TRACED-FUNCTION-LIST*" "ARG" "BACKTRACE"
1263 "INTERNAL-DEBUG" "VAR" "*PRINT-LOCATION-KIND*"
1264 "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
1265 "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
1266 "*TRACE-ENCAPSULATE-DEFAULT*"
1267 "*TRACE-ENCAPSULATE-PACKAGE-NAMES*"
1268 "*DEFAULT-PRINT-FRAME-CALL-VERBOSITY*"))
1269
1270 (intern "CHAR" "LISP")
1271
1272 ;; Make these STREAM symbols available
1273 (dolist
1274 (name
1275 '("STRING-TO-OCTETS" "OCTETS-TO-STRING" "*DEFAULT-EXTERNAL-FORMAT*"
1276 "STRING-ENCODE" "STRING-DECODE" "SET-SYSTEM-EXTERNAL-FORMAT"
1277 "LIST-ALL-EXTERNAL-FORMATS" "DESCRIBE-EXTERNAL-FORMAT"))
1278 (intern name "STREAM"))
1279
1280 (defpackage "EXTENSIONS"
1281 (:nicknames "EXTENSIONS")
1282 (:import-from "LISP" "GET-SETF-METHOD")
1283 (:import-from "KERNEL" "*ANSI-DEFSTRUCT-OPTIONS-P*")
1284 (:import-from "SYSTEM" "MAKE-INDENTING-STREAM" "INDENTING-STREAM-P"
1285 "BINARY-TEXT-STREAM")
1286 #+double-double
1287 (:import-from "KERNEL" "DOUBLE-DOUBLE-FLOAT" "DD-PI")
1288 (:export "*AFTER-GC-HOOKS*" "*AFTER-SAVE-INITIALIZATIONS*"
1289 "DEBUG"
1290 "FLOATING-POINT-INEXACT"
1291 "*ANSI-DEFSTRUCT-OPTIONS-P*"
1292 "*AUTOLOAD-TRANSLATIONS*"
1293 "*BACKUP-EXTENSION*" "*BEFORE-GC-HOOKS*"
1294 "*BEFORE-SAVE-INITIALIZATIONS*" "*BLOCK-COMPILE-DEFAULT*"
1295 "*BYTES-CONSED-BETWEEN-GCS*"
1296 "*COMPATIBILITY-WARNINGS*"
1297 "*COMPILE-PROGRESS*" "*DERIVE-FUNCTION-TYPES*"
1298 "*DESCRIBE-IMPLEMENTATION-DETAILS*" "*DESCRIBE-INDENTATION*"
1299 "*DESCRIBE-LEVEL*" "*DESCRIBE-PRINT-LENGTH*"
1300 "*DESCRIBE-PRINT-LEVEL*" "*DESCRIBE-VERBOSE*"
1301 "*DISPLAY-EVENT-HANDLERS*" "*EDITOR-LISP-P*"
1302 "*EFFICIENCY-NOTE-COST-THRESHOLD*" "*EFFICIENCY-NOTE-LIMIT*"
1303 "*ENCLOSING-SOURCE-CUTOFF*" "*ENVIRONMENT-LIST*"
1304 "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*GC-INHIBIT-HOOK*"
1305 "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-VERBOSE*"
1306 "GET-SETF-METHOD" ; temp until uses are converted to g-s-expansion
1307 "*IGNORE-FLOATING-POINT-UNDERFLOW*"
1308 "*INFO-ENVIRONMENT*" "*INTEXP-MAXIMUM-EXPONENT*"
1309 "*KEYWORD-PACKAGE*" "*LISP-PACKAGE*" "*LOAD-IF-SOURCE-NEWER*"
1310 "*MAX-TRACE-INDENTATION*" "*MODULE-FILE-TRANSLATIONS*"
1311 "*PROMPT*" "*REQUIRE-VERBOSE*" "*MODULE-PROVIDER-FUNCTIONS*"
1312 "*SETF-FDEFINITION-HOOK*"
1313 "*TOP-LEVEL-AUTO-DECLARE*"
1314 "COMPILER-MACROEXPAND-1" "COMPILER-MACROEXPAND"
1315 "*UNDEFINED-WARNING-LIMIT*"
1316 "AMBIGUOUS-FILES" "ARGUMENT-LIST" "ASSQ"
1317 "BASIC-DEFINITION" "BIGNUMP" "BITP"
1318 "CALL-USER-MISCOP" "CANCEL-FINALIZATION" "CAREFUL-SYMBOL-FUNCTION"
1319 "CHAR"
1320 "CLEAN-UP-COMPILER" "CLEAR-INFO" "CLEAR-SEARCH-LIST"
1321 "COMPACT-INFO-ENVIRONMENT" "COMPILE-FROM-STREAM" "COMPILEDP"
1322 "COMPLETE-FILE"
1323 "CONSTANT" "CONSTANT-ARGUMENT" "CONSTANT-FUNCTION"
1324 "DEF-SOURCE-CONTEXT"
1325 "DEFAULT-DIRECTORY"
1326 "DEFINE-INFO-CLASS"
1327 "DEFINE-INFO-TYPE"
1328 "DEFMODULE"
1329 "DELQ"
1330 "DO-INFO"
1331 "ENCAPSULATE" "ENCAPSULATED-DEFINITION" "ENCAPSULATED-P"
1332 "END-BLOCK" "ENUMERATE-SEARCH-LIST" "FILE-WRITABLE"
1333 "FINALIZE" "FIXNUMP"
1334 "FORMAT-DECODED-TIME" "FORMAT-UNIVERSAL-TIME" "FREEZE-TYPE" "GC"
1335 "GC-OFF" "GC-ON" "GET-BYTES-CONSED" "GET-BYTES-CONSED-DFIXNUM"
1336 "GET-STREAM-COMMAND"
1337 "INFO"
1338 "INHIBIT-WARNINGS" "INTERACTIVE-EVAL"
1339 "LOAD-FOREIGN"
1340 "MAKE-CASE-FROB-STREAM" "MAKE-INFO-ENVIRONMENT"
1341 "MAKE-SCAVENGER-HOOK"
1342 "MAKE-STREAM-COMMAND" "MAKE-WEAK-POINTER"
1343 "MAYBE-INLINE" "MEMQ"
1344 "OPTIMIZE-INTERFACE"
1345 "PACKAGE-CHILDREN" "PACKAGE-PARENT" "PARSE-TIME"
1346 "PACKAGE-LOCK" "PACKAGE-DEFINITION-LOCK" "WITHOUT-PACKAGE-LOCKS"
1347 "UNLOCK-ALL-PACKAGES"
1348 "PRINT-DIRECTORY" "PRINT-HERALD"
1349 "PUTF" "PURGE-BACKUP-FILES" "QUIT" "RATIOP"
1350 "REALP"
1351 "RESET-FOREIGN-POINTERS"
1352 "SAVE" "SAVE-LISP"
1353 "SCAVENGER-HOOK" "SCAVENGER-HOOK-P"
1354 "SCAVENGER-HOOK-VALUE" "SCAVENGER-HOOK-FUNCTION"
1355 "SEARCH-LIST"
1356
1357 "SET-SYMBOL-FUNCTION-CAREFULLY"
1358 "START-BLOCK" "STREAM-COMMAND"
1359 "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
1360 "INSTANCEP" "SYMBOLICATE"
1361 "TRULY-THE" "UNCOMPILE"
1362 "UNENCAPSULATE" "UNIX-NAMESTRING" "WEAK-POINTER"
1363 "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
1364 "FEATUREP" "*IGNORE-EXTRA-CLOSE-PARENTHESES*" "*HERALD-ITEMS*"
1365 "SEARCH-LIST-DEFINED-P" "BYTES-CONSED-BETWEEN-GCS"
1366 "*LOAD-SOURCE-TYPES*" "*LOAD-OBJECT-TYPES*"
1367 "*DEFAULT-PACKAGE-USE-LIST*" "*GC-RUN-TIME*"
1368 "DEFINE-HASH-TABLE-TEST"
1369
1370 "*EFFICIENCY-NOTE-LIMIT*"
1371 "*ERROR-PRINT-LINES*"
1372 "*INLINE-EXPANSION-LIMIT*"
1373 "INSTANCE"
1374 "*EFFICIENCY-NOTE-COST-THRESHOLD*"
1375 "*USE-IMPLEMENTATION-TYPES*"
1376 "*BYTE-COMPILE-TOP-LEVEL*"
1377 "*BYTE-COMPILE-DEFAULT*"
1378 "PURIFY" "MAP-APROPOS"
1379 "COMPILER-LET"
1380 "DEFINE-FUNCTION-NAME-SYNTAX"
1381 "VALID-FUNCTION-NAME-P"
1382
1383 "MAKE-INDENTING-STREAM" "INDENTING-STREAM-P"
1384
1385 "&PARSE-BODY"
1386
1387 "*TRUST-DYNAMIC-EXTENT-DECLARATIONS*"
1388
1389 "INVALID-FASL")
1390
1391 ;; run-program
1392 (:export "RUN-PROGRAM" "PROCESS-ALIVE-P" "PROCESS-CLOSE"
1393 "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
1394 "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
1395 "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
1396 "PROCESS-STATUS-HOOK" "PROCESS-WAIT")
1397
1398 ;; Float extensions
1399 (:export "SINGLE-FLOAT-POSITIVE-INFINITY" "SHORT-FLOAT-POSITIVE-INFINITY"
1400 "DOUBLE-FLOAT-POSITIVE-INFINITY" "LONG-FLOAT-POSITIVE-INFINITY"
1401 "SINGLE-FLOAT-NEGATIVE-INFINITY" "SHORT-FLOAT-NEGATIVE-INFINITY"
1402 "DOUBLE-FLOAT-NEGATIVE-INFINITY" "LONG-FLOAT-NEGATIVE-INFINITY"
1403 "GET-FLOATING-POINT-MODES" "SET-FLOATING-POINT-MODES"
1404 "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P"
1405 "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
1406 "WITH-FLOAT-TRAPS-MASKED")
1407
1408 ;; Spice lisp extensions
1409 (:export "LETF*" "LETF" "DOVECTOR" "DELETEF" "INDENTING-FURTHER" "FILE-COMMENT"
1410 "READ-CHAR-NO-EDIT" "LISTEN-SKIP-WHITESPACE" "CONCAT-PNAMES"
1411 "ITERATE" "ONCE-ONLY" "COLLECT" "DO-ANONYMOUS" "UNDEFINED-VALUE"
1412 "REQUIRED-ARGUMENT" "DEFINE-HASH-CACHE" "DEFUN-CACHED"
1413 "CACHE-HASH-EQ" "DO-HASH")
1414
1415 ;; Gray streams extension.
1416 (:export "FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM"
1417 "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
1418 "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
1419 "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
1420 "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM"
1421 "FUNDAMENTAL-STREAM"
1422 "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT"
1423 "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
1424 "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"
1425 "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"
1426 "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE"
1427 "STREAM-START-LINE-P" "STREAM-TERPRI" "STREAM-UNREAD-CHAR"
1428 "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-STRING"
1429 "STREAM-READ-SEQUENCE" "STREAM-WRITE-SEQUENCE")
1430
1431 ;; Commandline parsing
1432 (:export "*COMMAND-LINE-WORDS*" "*COMMAND-LINE-SWITCHES*"
1433 "*COMMAND-SWITCH-DEMONS*" "*COMMAND-LINE-UTILITY-NAME*"
1434 "*COMMAND-LINE-STRINGS*" "*BATCH-MODE*"
1435 "*COMMAND-LINE-APPLICATION-ARGUMENTS*"
1436 "CMD-SWITCH-STRING" "COMMAND-LINE-SWITCH-P"
1437 "CMD-SWITCH-NAME" "CMD-SWITCH-VALUE" "CMD-SWITCH-WORDS" "COMMAND-LINE-SWITCH"
1438 "DEFSWITCH" "CMD-SWITCH-ARG" "GET-COMMAND-LINE-SWITCH")
1439
1440 ;; PCL declaration identifiers.
1441 (:export "SLOTS" "AUTO-COMPILE" "NOT-AUTO-COMPILE")
1442
1443 ;; From internet.lisp
1444 (:export "HTONL" "NTOHL" "HTONS" "NTOHS" "LOOKUP-HOST-ENTRY" "HOST-ENTRY"
1445 "HOST-ENTRY-NAME" "HOST-ENTRY-ALIASES" "HOST-ENTRY-ADDR-LIST"
1446 "HOST-ENTRY-ADDR" "IP-STRING" "BIND-INET-SOCKET"
1447 "CREATE-UNIX-SOCKET" "CONNECT-TO-UNIX-SOCKET"
1448 "CREATE-UNIX-LISTENER" "ACCEPT-UNIX-CONNECTION" "CREATE-INET-SOCKET"
1449 "CONNECT-TO-INET-SOCKET" "CREATE-INET-LISTENER" "ACCEPT-TCP-CONNECTION"
1450 "CLOSE-SOCKET" "IPPROTO-TCP" "IPPROTO-UDP" "INADDR-ANY" "ADD-OOB-HANDLER"
1451 "REMOVE-OOB-HANDLER" "REMOVE-ALL-OOB-HANDLERS"
1452 "SEND-CHARACTER-OUT-OF-BAND"
1453 "SOCKET-ERROR"
1454 "INET-RECVFROM" "INET-SENDTO" "INET-SHUTDOWN"
1455 "SHUT-RD" "SHUT-WR" "SHUT-RDWR"
1456 "GET-PEER-HOST-AND-PORT" "GET-SOCKET-HOST-AND-PORT"
1457
1458 "OPEN-NETWORK-STREAM" "ACCEPT-NETWORK-STREAM")
1459 ;; CLX extensions
1460 (:export "OPEN-CLX-DISPLAY" "WITH-CLX-EVENT-HANDLING" "ENABLE-CLX-EVENT-HANDLING"
1461 "DISABLE-CLX-EVENT-HANDLING" "OBJECT-SET-EVENT-HANDLER"
1462 "DEFAULT-CLX-EVENT-HANDLER"
1463 "FLUSH-DISPLAY-EVENTS" "CAREFULLY-ADD-FONT-PATHS"
1464 ;; Not sure if this should be exported or not. It's not
1465 ;; listed in clx-ext.lisp.
1466 "*CLX-FDS-TO-DISPLAYS*"
1467
1468 "SERVE-KEY-PRESS" "SERVE-KEY-RELEASE" "SERVE-BUTTON-PRESS"
1469 "SERVE-BUTTON-RELEASE" "SERVE-MOTION-NOTIFY" "SERVE-ENTER-NOTIFY"
1470 "SERVE-LEAVE-NOTIFY" "SERVE-FOCUS-IN" "SERVE-FOCUS-OUT"
1471 "SERVE-EXPOSURE" "SERVE-GRAPHICS-EXPOSURE" "SERVE-NO-EXPOSURE"
1472 "SERVE-VISIBILITY-NOTIFY" "SERVE-CREATE-NOTIFY" "SERVE-DESTROY-NOTIFY"
1473 "SERVE-UNMAP-NOTIFY" "SERVE-MAP-NOTIFY" "SERVE-MAP-REQUEST"
1474 "SERVE-REPARENT-NOTIFY" "SERVE-CONFIGURE-NOTIFY" "SERVE-GRAVITY-NOTIFY"
1475 "SERVE-RESIZE-REQUEST" "SERVE-CONFIGURE-REQUEST" "SERVE-CIRCULATE-NOTIFY"
1476 "SERVE-CIRCULATE-REQUEST" "SERVE-PROPERTY-NOTIFY" "SERVE-SELECTION-CLEAR"
1477 "SERVE-SELECTION-REQUEST" "SERVE-SELECTION-NOTIFY" "SERVE-COLORMAP-NOTIFY"
1478 "SERVE-CLIENT-MESSAGE")
1479
1480 ;; CLtL2 environment access.
1481 (:export "VARIABLE-INFORMATION"
1482 "FUNCTION-INFORMATION"
1483 "DECLARATION-INFORMATION"
1484 "PARSE-MACRO"
1485 "AUGMENT-ENVIRONMENT")
1486
1487 ;; CMUCL extension for binary/text streams
1488 (:export "BINARY-TEXT-STREAM" "READ-VECTOR" "WRITE-VECTOR")
1489
1490 ;; Hemlock (main.lisp, key-event.lisp, keytran.lisp)
1491 (:export "DEFINE-KEYSYM" "DEFINE-MOUSE-KEYSYM" "NAME-KEYSYM" "KEYSYM-NAMES"
1492 "KEYSYM-PREFERRED-NAME" "DEFINE-KEY-EVENT-MODIFIER" "DEFINE-CLX-MODIFIER"
1493 "MAKE-KEY-EVENT-BITS" "KEY-EVENT-MODIFIER-MASK" "KEY-EVENT-BITS-MODIFIERS"
1494 "*ALL-MODIFIER-NAMES*" "TRANSLATE-KEY-EVENT" "TRANSLATE-MOUSE-KEY-EVENT"
1495 "MAKE-KEY-EVENT" "KEY-EVENT" "KEY-EVENT-P" "KEY-EVENT-BITS" "KEY-EVENT-KEYSYM"
1496 "CHAR-KEY-EVENT" "KEY-EVENT-CHAR" "KEY-EVENT-BIT-P" "DO-ALPHA-KEY-EVENTS"
1497 "PRINT-PRETTY-KEY" "PRINT-PRETTY-KEY-EVENT" "*HEMLOCK-VERSION*"
1498 "DEFINE-MOUSE-CODE" "DEFINE-KEYBOARD-MODIFIER"
1499 "TRANSLATE-CHARACTER" "TRANSLATE-MOUSE-CHARACTER")
1500
1501 #+double-double
1502 (:export "DOUBLE-DOUBLE-FLOAT" "DD-PI")
1503
1504 (:import-from "STREAM"
1505 "STRING-TO-OCTETS" "OCTETS-TO-STRING" "*DEFAULT-EXTERNAL-FORMAT*"
1506 "STRING-ENCODE" "STRING-DECODE"
1507 "SET-SYSTEM-EXTERNAL-FORMAT"
1508 "LIST-ALL-EXTERNAL-FORMATS"
1509 "DESCRIBE-EXTERNAL-FORMAT")
1510 ;; Unicode
1511 (:export "STRING-TO-OCTETS" "OCTETS-TO-STRING" "*DEFAULT-EXTERNAL-FORMAT*"
1512 "DESCRIBE-EXTERNAL-FORMAT"
1513 "LIST-ALL-EXTERNAL-FORMATS"
1514 "STRING-ENCODE" "STRING-DECODE"
1515 "SET-SYSTEM-EXTERNAL-FORMAT"))
1516
1517 (defpackage "STREAM"
1518 (:import-from "SYSTEM" "LISP-STREAM")
1519 (:import-from "EXTENSIONS" "FUNDAMENTAL-STREAM")
1520 (:import-from "LISP" "LINE-LENGTH" "CHARPOS"
1521 "BREF" "BUFFER-COPY" "BUFFER-SAP" "ENDIAN-SWAP-VALUE"
1522 "VECTOR-ELT-WIDTH"
1523 "SURROGATES" "SURROGATES-TO-CODEPOINT")
1524 (:export ;; Stream classes
1525 "STREAM"
1526 "SIMPLE-STREAM"
1527 "SINGLE-CHANNEL-SIMPLE-STREAM"
1528 "DUAL-CHANNEL-SIMPLE-STREAM"
1529 "STRING-SIMPLE-STREAM"
1530 "PROBE-SIMPLE-STREAM"
1531 "DIRECT-SIMPLE-STREAM"
1532 "BUFFER-INPUT-SIMPLE-STREAM"
1533 "BUFFER-OUTPUT-SIMPLE-STREAM"
1534 "NULL-SIMPLE-STREAM"
1535 "FILE-SIMPLE-STREAM"
1536 "MAPPED-FILE-SIMPLE-STREAM"
1537 "TERMINAL-SIMPLE-STREAM"
1538 "SOCKET-SIMPLE-STREAM"
1539 "SOCKET-BASE-SIMPLE-STREAM"
1540 "COMPOSING-STREAM"
1541 "STRING-INPUT-SIMPLE"
1542 "STRING-OUTPUT-SIMPLE-STREAM"
1543 "FILL-POINTER-OUTPUT-SIMPLE-STREAM"
1544 "XP-SIMPLE-STREAM"
1545 "ANNOTATION-OUTPUT-SIMPLE-STREAM"
1546 ;; Standard streams
1547 "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" "*ERROR-OUTPUT*"
1548 "*QUERY-IO*" "*DEBUG-IO*" "*TRACE-OUTPUT*" "*TERMINAL-IO*"
1549 ;; Slot accessors
1550 "STREAM-INPUT-HANDLE" "STREAM-OUTPUT-HANDLE"
1551 "STREAM-PLIST"
1552 ;; Device-level functions
1553 "DEVICE-OPEN" "DEVICE-CLOSE" "DEVICE-BUFFER-LENGTH"
1554 "DEVICE-FILE-POSITION" "DEVICE-FILE-LENGTH" "DEVICE-READ"
1555 "DEVICE-CLEAR-INPUT" "DEVICE-WRITE" "DEVICE-CLEAR-OUTPUT"
1556 "DEVICE-EXTEND" "DEVICE-FINISH-RECORD"
1557 ;; Implementation functions/macros
1558 "DEF-STREAM-CLASS" "WITH-STREAM-CLASS" "SM" "FUNCALL-STM-HANDLER"
1559 "FUNCALL-STM-HANDLER-2" "ADD-STREAM-INSTANCE-FLAGS"
1560 "REMOVE-STREAM-INSTANCE-FLAGS" "COMPOSE-ENCAPSULATING-STREAMS"
1561 ;; User-level functions (mostly reexported from COMMON-LISP)
1562 "OPEN" "CLOSE" "READ-BYTE" "READ-CHAR" "READ-NO-HANG-P"
1563 "READ-CHAR-NO-HANG" "UNREAD-CHAR" "PEEK-CHAR" "LISTEN" "READ-LINE"
1564 "READ-SEQUENCE" "CLEAR-INPUT" "WRITE-BYTE" "WRITE-CHAR"
1565 "WRITE-NO-HANG-P" "WRITE-STRING" "WRITE-SEQUENCE" "TERPRI"
1566 "FRESH-LINE" "FINISH-OUTPUT" "FORCE-OUTPUT" "CLEAR-OUTPUT"
1567 "FILE-POSITION" "FILE-LENGTH" "LINE-LENGTH" "CHARPOS"
1568 "STREAM-ELEMENT-TYPE" "STREAM-EXTERNAL-FORMAT" "STREAMP"
1569 "OPEN-STREAM-P" "INPUT-STREAM-P" "OUTPUT-STREAM-P"
1570 "INTERACTIVE-STREAM-P" "READ-VECTOR" "WRITE-VECTOR" "READ-OCTETS"
1571 "WRITE-OCTETS" "WRITE-ALL-OCTETS" "WAIT-FOR-INPUT-AVAILABLE"
1572 "WITH-OPEN-FILE" "WITH-OPEN-STREAM" "FORMAT" "PPRINT" "PRIN1"
1573 "PRIN1-TO-STRING" "PRINC" "PRINC-TO-STRING" "PRINT" "READ"
1574 "READ-DELIMITED-LIST" "READ-FROM-STRING" "WRITE" "WRITE-LINE"
1575 "WRITE-TO-STRING" "READ-PRESERVING-WHITESPACE"
1576
1577 "STRING-TO-OCTETS" "OCTETS-TO-STRING" "*DEFAULT-EXTERNAL-FORMAT*"
1578 "STRING-ENCODE" "STRING-DECODE"
1579 "SET-SYSTEM-EXTERNAL-FORMAT"
1580 "+REPLACEMENT-CHARACTER-CODE+"
1581 "LIST-ALL-EXTERNAL-FORMATS"
1582 "DESCRIBE-EXTERNAL-FORMAT"))
1583
1584 (defpackage "LOOP")
1585 (dolist
1586 (name
1587 '("DEBUG-SOURCE" "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-CREATED"
1588 "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME" "DEBUG-SOURCE-P"
1589 "DEBUG-SOURCE-START-POSITIONS"))
1590 (intern name "C"))
1591
1592 (defpackage "DEBUG-INTERNALS"
1593 (:nicknames "DI")
1594 (:import-from "C" "DEBUG-SOURCE" "DEBUG-SOURCE-COMPILED"
1595 "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
1596 "DEBUG-SOURCE-P" "DEBUG-SOURCE-START-POSITIONS")
1597 (:export "*DEBUGGING-INTERPRETER*" "ACTIVATE-BREAKPOINT"
1598 "AMBIGUOUS-DEBUG-VARIABLES" "AMBIGUOUS-VARIABLE-NAME" "BREAKPOINT"
1599 "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUNCTION" "BREAKPOINT-INFO"
1600 "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION"
1601 "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUNCTION"
1602 "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER"
1603 "CODE-LOCATION-P" "CODE-LOCATION-TOP-LEVEL-FORM-OFFSET"
1604 "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT"
1605 "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P"
1606 "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR"
1607 "DEBUG-FUNCTION" "DEBUG-FUNCTION-FUNCTION" "DEBUG-FUNCTION-KIND"
1608 "DEBUG-FUNCTION-LAMBDA-LIST" "DEBUG-FUNCTION-NAME"
1609 "DEBUG-FUNCTION-P" "DEBUG-FUNCTION-START-LOCATION"
1610 "DEBUG-FUNCTION-SYMBOL-VARIABLES" "DEBUG-SOURCE"
1611 "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM"
1612 "DEBUG-SOURCE-NAME" "DEBUG-SOURCE-P" "DEBUG-SOURCE-ROOT-NUMBER"
1613 "DEBUG-SOURCE-START-POSITIONS" "DEBUG-VARIABLE"
1614 "DEBUG-VARIABLE-ID" "DEBUG-VARIABLE-INFO-AVAILABLE"
1615 "DEBUG-VARIABLE-NAME" "DEBUG-VARIABLE-P" "DEBUG-VARIABLE-PACKAGE"
1616 "DEBUG-VARIABLE-SYMBOL" "DEBUG-VARIABLE-VALID-VALUE"
1617 "DEBUG-VARIABLE-VALIDITY" "DEBUG-VARIABLE-VALUE"
1618 "DELETE-BREAKPOINT" "DELETE-BREAKPOINT-FOR-EDITOR" "DO-BLOCKS"
1619 "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUNCTION-BLOCKS"
1620 "DO-DEBUG-FUNCTION-VARIABLES" "EVAL-IN-FRAME"
1621 "FORM-NUMBER-TRANSLATIONS" "FRAME" "FRAME-CATCHES"
1622 "FRAME-CODE-LOCATION" "FRAME-DEBUG-FUNCTION" "FRAME-DOWN"
1623 "FRAME-FUNCTION-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
1624 "FUNCTION-DEBUG-FUNCTION" "FUNCTION-END-COOKIE-VALID-P"
1625 "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
1626 "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
1627 "NO-DEBUG-FUNCTION-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
1628 "RETURN-FROM-FRAME" "SET-BREAKPOINT-FOR-EDITOR"
1629 "SET-LOCATION-BREAKPOINT-FOR-EDITOR" "SOURCE-PATH-CONTEXT"
1630 "TOP-FRAME" "UNHANDLED-CONDITION" "UNKNOWN-CODE-LOCATION"
1631 "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VARIABLE"
1632 "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"
1633 "FIND-DEBUG-TAG-FOR-FRAME"))
1634 (dolist
1635 (name
1636 '("%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT"
1637 "%RPLACA" "%RPLACD" "%SBITSET" "%SCHARSET"
1638 "%SET-FDEFINITION" "%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF"
1639 "%SET-SAP-REF-DESCRIPTOR" "%SETELT" "%SETNTH" "%SP-STRING-COMPARE"
1640 "%SVSET" "%TYPEP" "SHORT-FLOAT-P"
1641 "STRING/=*" "STRING<*" "STRING<=*" "STRING=*" "STRING>*" "STRING>=*"))
1642 (intern name "LISP"))
1643 (dolist
1644 (name
1645 '("FOREIGN-SYMBOL-ADDRESS" "FOREIGN-SYMBOL-CODE-ADDRESS"
1646 "FOREIGN-SYMBOL-DATA-ADDRESS"))
1647 (intern name "SYSTEM"))
1648
1649 (defpackage "C"
1650 (:nicknames "COMPILER")
1651 (:import-from "LISP" "%ARRAY-TYPEP" "%ASET"
1652 "%BITSET" "%CHARSET" "%PUT" "%RPLACA" "%RPLACD" "%SBITSET"
1653 "%SCHARSET" "%SET-FDEFINITION"
1654 "%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF"
1655 "%SET-SAP-REF-DESCRIPTOR" "%SETELT" "%SETNTH"
1656 "%SP-STRING-COMPARE"
1657 "%SVSET" "%TYPEP" "SHORT-FLOAT-P"
1658 "STRING/=*" "STRING<*" "STRING<=*" "STRING=*"
1659 "STRING>*" "STRING>=*")
1660 (:import-from "SYSTEM" "FOREIGN-SYMBOL-ADDRESS" "FOREIGN-SYMBOL-CODE-ADDRESS"
1661 "FOREIGN-SYMBOL-DATA-ADDRESS")
1662 (:import-from "EXTENSIONS"
1663 "VARIABLE-INFORMATION"
1664 "FUNCTION-INFORMATION"
1665 "DECLARATION-INFORMATION"
1666 "PARSE-MACRO"
1667 "AUGMENT-ENVIRONMENT")
1668 (:shadowing-import-from "KERNEL" "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS"
1669 "STRUCTURE-CLASS" "FIND-CLASS" "CLASS-OF")
1670 (:export "%ALIEN-FUNCALL" "%CATCH-BREAKUP" "%CONTINUE-UNWIND" "&MORE"
1671 "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES"
1672 "%UNWIND-PROTECT-BREAKUP"
1673 "*BACKEND*" "*CODE-SEGMENT*" "*COLLECT-DYNAMIC-STATISTICS*"
1674 "*COMPILE-TIME-DEFINE-MACROS*" "*COMPILER-NOTIFICATION-FUNCTION*"
1675 "*COMPILING-FOR-INTERPRETER*" "*CONVERTING-FOR-INTERPRETER*"
1676 "*COUNT-VOP-USAGES*" "*ELSEWHERE*" "*NATIVE-BACKEND*"
1677 "*SUPPRESS-VALUES-DECLARATION*" "*TARGET-BACKEND*"
1678 "ALLOC-ALIEN-STACK-SPACE"
1679 "ALLOC-NUMBER-STACK-SPACE" "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
1680 "ALLOCATE-DYNAMIC-CODE-OBJECT"
1681 "ALLOCATE-FULL-CALL-FRAME" "ANY" "ARGUMENT-COUNT-ERROR"
1682 "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
1683 "ATTRIBUTES=" "BACKEND-ANY-PRIMITIVE-TYPE"
1684 "BACKEND-ASSEMBLER-RESOURCES" "BACKEND-BYTE-ORDER"
1685 "BACKEND-DISASSEM-PARAMS" "BACKEND-FASL-FILE-IMPLEMENTATION"
1686 "BACKEND-FASL-FILE-TYPE" "BACKEND-FASL-FILE-VERSION"
1687 "BACKEND-FEATURES"
1688 "BACKEND-FOREIGN-LINKAGE-SPACE-START"
1689 "BACKEND-FOREIGN-LINKAGE-ENTRY-SIZE"
1690 "BACKEND-INFO-ENVIRONMENT"
1691 "BACKEND-INSTRUCTION-FLAVORS" "BACKEND-INSTRUCTION-FORMATS"
1692 "BACKEND-NAME" "BACKEND-REGISTER-SAVE-PENALTY"
1693 "BACKEND-SPECIAL-ARG-TYPES" "BACKEND-VERSION" "BIND" "BRANCH"
1694 "CALL" "CALL-LOCAL" "CALL-NAMED" "CALL-OUT" "CALL-VARIABLE"
1695 "CALLEE-NFP-TN" "CALLEE-RETURN-PC-TN" "CATCH-BLOCK" "CHECK-CONS"
1696 "CHECK-FIXNUM" "CHECK-FUNCTION" "CHECK-FUNCTION-OR-SYMBOL"
1697 "CHECK-BIGNUM" "CHECK-SIGNED-BYTE-32" "CHECK-SYMBOL"
1698 "CHECK-UNSIGNED-BYTE-32"
1699 "CLOSURE-INIT" "CLOSURE-REF" "CODE-CONSTANT-REF"
1700 "CODE-CONSTANT-SET" "CODE-INSTRUCTIONS" "COERCE-TO-FUNCTION"
1701 "COMPILE-FOR-EVAL" "COMPONENT" "COMPONENT-HEADER-LENGTH"
1702 "COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUNCTION"
1703 "COMPUTE-OLD-NFP" "COPY-MORE-ARG" "COUNT-ME"
1704 "CURRENT-BINDING-POINTER" "CURRENT-NFP-TN" "CURRENT-STACK-POINTER"
1705 "DEALLOC-ALIEN-STACK-SPACE"
1706 "DEALLOC-NUMBER-STACK-SPACE" "DEF-BOOLEAN-ATTRIBUTE"
1707 "DEF-IR1-TRANSLATOR" "DEF-PRIMITIVE-TRANSLATOR"
1708 "DEF-PRIMITIVE-TYPE" "DEF-PRIMITIVE-TYPE-ALIAS"
1709 "DEF-SOURCE-TRANSFORM" "DEF-VM-SUPPORT-ROUTINE"
1710 "DEFINE-ASSEMBLY-ROUTINE" "DEFINE-MOVE-FUNCTION" "DEFINE-MOVE-VOP"
1711 "DEFINE-STORAGE-BASE" "DEFINE-STORAGE-CLASS" "DEFINE-VOP"
1712 "DEFKNOWN" "DEFOPTIMIZER" "DEFTRANSFORM" "DERIVE-TYPE"
1713 "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
1714 "ENVIRONMENT-DEBUG-LIVE-TN" "ENVIRONMENT-LIVE-TN"
1715 "FASL-FILE-IMPLEMENTATIONS" "FAST-SAFE-COERCE-TO-FUNCTION"
1716 "FAST-SYMBOL-FUNCTION" "FAST-SYMBOL-VALUE"
1717 "FLUSHABLE" "FOLDABLE"
1718 "FORCE-TN-TO-STACK" "FOREIGN-SYMBOL-ADDRESS"
1719 "FOREIGN-SYMBOL-CODE-ADDRESS" "FOREIGN-SYMBOL-DATA-ADDRESS"
1720 "GET-VECTOR-SUBTYPE"
1721 "HALT" "IF-EQ" "INSTANCE-REF" "INSTANCE-SET"
1722 "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
1723 "IR2-ENVIRONMENT-NUMBER-STACK-P" "KNOWN-CALL-LOCAL" "KNOWN-RETURN"
1724 "LAMBDA-EVAL-INFO-ARGS-PASSED" "LAMBDA-EVAL-INFO-ENTRIES"
1725 "LAMBDA-EVAL-INFO-FRAME-SIZE" "LAMBDA-EVAL-INFO-FUNCTION"
1726 "LOCATION=" "LTN-ANNOTATE" "MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
1727 "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
1728 "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
1729 "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
1730 "MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
1731 "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
1732 "MAKE-VALUE-CELL" "MAKE-WIRED-TN" "META-PRIMITIVE-TYPE-OR-LOSE"
1733 "META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE"
1734 "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL"
1735 "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED"
1736 "MULTIPLE-CALL-VARIABLE" "NIL" "NLX-ENTRY" "NLX-ENTRY-MULTIPLE"
1737 "NON-DESCRIPTOR-STACK" "NOTE-ENVIRONMENT-START"
1738 "NOTE-THIS-LOCATION" "OPTIMIZER"
1739 "PACK-TRACE-TABLE" "PMAX-FASL-FILE-IMPLEMENTATION" "POLICY"
1740 "PPC-FASL-FILE-IMPLEMENTATION"
1741 "PREDICATE" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
1742 "PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP" "PUSH-VALUES"
1743 "READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING"
1744 "*RECORD-XREF-INFO*"
1745 "RESET-STACK-POINTER" "RESTORE-DYNAMIC-STATE" "RETURN"
1746 "RETURN-MULTIPLE" "RT-AFPA-FASL-FILE-IMPLEMENTATION"
1747 "RT-FASL-FILE-IMPLEMENTATION" "SAVE-DYNAMIC-STATE" "SB"
1748 "SB-ALLOCATED-SIZE" "SB-NAME" "SB-OR-LOSE" "SB-P" "SC" "SC-CASE"
1749 "SC-IS" "SC-NAME" "SC-NUMBER" "SC-NUMBER-OR-LOSE"
1750 "SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
1751 "SET" "SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
1752 "SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT"
1753 "SPARC-FASL-FILE-IMPLEMENTATION" "SPECIFY-SAVE-TN" "INSTANCE-REF"
1754 "INSTANCE-SET" "SXHASH-SIMPLE-STRING" "SXHASH-SIMPLE-SUBSTRING"
1755 "SYMBOL-FUNCTION" "SYMBOL-VALUE" "SYMBOLICATE" "TAIL-CALL"
1756 "TAIL-CALL-NAMED" "TAIL-CALL-VARIABLE" "TEMPLATE-OR-LOSE" "THROW"
1757 "TN" "TN-OFFSET" "TN-P" "TN-REF" "TN-REF-ACROSS" "TN-REF-LOAD-TN"
1758 "TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
1759 "TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
1760 "TRACE-TABLE-ENTRY" "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
1761 "UNSAFE" "UNWIND" "UWP-ENTRY"
1762 "VALUE-CELL-REF" "VALUE-CELL-SET" "VALUES-LIST"
1763 "VERIFY-ARGUMENT-COUNT" "WRITE-PACKED-BIT-VECTOR"
1764 "WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"
1765 "LABEL-ID" "FIXUP" "FIXUP-FLAVOR" "FIXUP-NAME" "FIXUP-OFFSET"
1766 "FIXUP-P" "MAKE-FIXUP"
1767 "SLOT"
1768 "X86-FASL-FILE-IMPLEMENTATION"
1769 "BACKEND-FEATUREP"
1770 "DEF-ALLOC"
1771 "BACKEND-ASSEMBLER-PARAMS"
1772 "VAR-ALLOC"
1773 "BACKEND-INTERNAL-ERRORS"
1774 "BACKEND"
1775 "SAFE-FDEFN-FUNCTION"
1776 "NOTE-FIXUP"
1777 "TARGET-FEATUREP"
1778 "DEF-REFFER"
1779 "NATIVE-FEATUREP"
1780 "EMIT-NOP"
1781 "DEF-SETTER"
1782 "FIXED-ALLOC"
1783 "HPPA-FASL-FILE-IMPLEMENTATION"
1784 "ALPHA-FASL-FILE-IMPLEMENTATION"
1785 "SGI-FASL-FILE-IMPLEMENTATION"
1786 "AMD64-FASL-FILE-IMPLEMENTATION"
1787 "MAKE-UNBOUND-MARKER"
1788 "RETURN-SINGLE"
1789 "BACKEND-PAGE-SIZE"
1790 "NOTE-NEXT-INSTRUCTION"
1791 "SET-SLOT"
1792 "LOCATION-NUMBER"
1793 "BYTE-FASL-FILE-VERSION"
1794 "*COMPILE-COMPONENT*"
1795 "BLOCK-NUMBER"
1796 "DYNCOUNT-INFO-COUNTS"
1797 "BACKEND-BYTE-FASL-FILE-IMPLEMENTATION"
1798 "IR2-BLOCK-BLOCK"
1799 "DISASSEM-BYTE-COMPONENT"
1800 "LITTLE-ENDIAN-FASL-FILE-IMPLEMENTATION"
1801 "DYNCOUNT-INFO-COSTS"
1802 "FUNCALLABLE-INSTANCE-LEXENV"
1803 "DISASSEM-BYTE-FUN"
1804 "VOP-BLOCK"
1805 "BACKEND-BYTE-FASL-FILE-TYPE"
1806 "BIG-ENDIAN-FASL-FILE-IMPLEMENTATION"
1807 "*ASSEMBLY-OPTIMIZE*"
1808 "LARGE-ALLOC"
1809 "%SET-FUNCTION-SELF"
1810 "IR2-COMPONENT-DYNCOUNT-INFO"
1811 "DYNCOUNT-INFO" "DYNCOUNT-INFO-P"
1812 "TRUST-DYNAMIC-EXTENT-DECLARATION-P"
1813 "IR2-STACK-ALLOCATE"
1814 "%DYNAMIC-EXTENT" "%DYNAMIC-EXTENT-START" "%DYNAMIC-EXTENT-END")
1815 )
1816 (defpackage "XREF"
1817 (:export "INIT-XREF-DATABASE"
1818 "REGISTER-XREF"
1819 "WHO-CALLS"
1820 "WHO-REFERENCES"
1821 "WHO-BINDS"
1822 "WHO-SETS"
1823 "WHO-SUBCLASSES"
1824 "WHO-SUPERCLASSES"
1825 "WHO-SPECIALIZES"
1826 "WHO-MACROEXPANDS"
1827 "MAKE-XREF-CONTEXT"
1828 "XREF-CONTEXT-NAME"
1829 "XREF-CONTEXT-FILE"
1830 "XREF-CONTEXT-SOURCE-PATH"
1831 "INVALIDATE-XREFS-FOR-NAMESTRING"
1832 "FIND-XREFS-FOR-PATHNAME"))
1833
1834 (defpackage "WIRE"
1835 (:export "*CURRENT-WIRE*" "CONNECT-TO-REMOTE-SERVER"
1836 "CREATE-REQUEST-SERVER" "DESTROY-REQUEST-SERVER"
1837 "FORGET-REMOTE-TRANSLATION" "MAKE-REMOTE-OBJECT" "MAKE-WIRE"
1838 "REMOTE" "REMOTE-OBJECT" "REMOTE-OBJECT-EQ"
1839 "REMOTE-OBJECT-LOCAL-P" "REMOTE-OBJECT-P" "REMOTE-OBJECT-VALUE"
1840 "REMOTE-VALUE" "REMOTE-VALUE-BIND" "WIRE-EOF" "WIRE-ERROR"
1841 "WIRE-FD" "WIRE-FORCE-OUTPUT" "WIRE-GET-BIGNUM" "WIRE-GET-BYTE"
1842 "WIRE-GET-NUMBER" "WIRE-GET-OBJECT" "WIRE-GET-STRING"
1843 "WIRE-IO-ERROR" "WIRE-LISTEN" "WIRE-OUTPUT-BIGNUM"
1844 "WIRE-OUTPUT-BYTE" "WIRE-OUTPUT-FUNCALL" "WIRE-OUTPUT-NUMBER"
1845 "WIRE-OUTPUT-OBJECT" "WIRE-OUTPUT-STRING" "WIRE-P"))
1846
1847 (defpackage "PRETTY-PRINT"
1848 (:nicknames "PP")
1849 (:export "PRETTY-STREAM" "PRETTY-STREAM-P"))
1850
1851 (intern "LOAD-FOREIGN" "EXTENSIONS")
1852 (defpackage "SYSTEM"
1853 (:nicknames "SYS")
1854 (:import-from "EXTENSIONS" "LOAD-FOREIGN")
1855 (:export "%ASSEMBLER-CODE-TYPE" "%BIND-ALIGNED-SAP" "%PRIMITIVE"
1856 "%SP-BYTE-BLT" "%SP-FIND-CHARACTER"
1857 "%SP-FIND-CHARACTER-WITH-ATTRIBUTE"
1858 "%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE" "%STANDARD-CHAR-P"
1859 "*BEEP-FUNCTION*"
1860 "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
1861 "*SOFTWARE-TYPE*" "*STDERR*" "*STDIN*" "*STDOUT*" "*TASK-DATA*"
1862 "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
1863 "*XWINDOW-TABLE*"
1864 "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER" "ADD-PORT-OBJECT"
1865 "ADD-XWINDOW-OBJECT" "ALLOCATE-SYSTEM-MEMORY" "BEEP" "BITS"
1866 "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK=" "COMPILER-VERSION"
1867 "CT-A-VAL" "CT-A-VAL-OFFSET" "CT-A-VAL-P" "CT-A-VAL-SAP"
1868 "CT-A-VAL-SIZE" "CT-A-VAL-TYPE" "DEALLOCATE-SYSTEM-MEMORY"
1869 "DEFAULT-INTERRUPT"
1870 "DEPORT-BOOLEAN" "DEPORT-INTEGER" "DOUBLE-FLOAT-RADIX"
1871 "ENABLE-INTERRUPT" "ENUMERATION" "FD-STREAM" "FD-STREAM-FD"
1872 "FD-STREAM-P" "FIND-IF-IN-CLOSURE" "FOREIGN-SYMBOL-ADDRESS"
1873 "FOREIGN-SYMBOL-CODE-ADDRESS" "FOREIGN-SYMBOL-DATA-ADDRESS"
1874 "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
1875 "IGNORE-INTERRUPT"
1876 "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
1877 "LISP-STREAM" "LONG-FLOAT-RADIX" "LONG-WORDS"
1878 "MACRO" "MAKE-CT-A-VAL" "MAKE-FD-STREAM"
1879 "MAKE-INDENTING-STREAM" "INDENTING-STREAM-P"
1880 "MAKE-OBJECT-SET" "MAP-PORT" "MAP-XWINDOW"
1881 "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" "NULL-TERMINATED-STRING"
1882 "OBJECT-SET-OPERATION" "OUTPUT-RAW-BYTES" "PARSE-BODY"
1883 "PERQ-STRING" "POINTER" "POINTER<" "POINTER>" "PORT" "PRIMEP"
1884 "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
1885 "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER"
1886 "REMOVE-PORT-OBJECT" "REMOVE-XWINDOW-OBJECT"
1887 "RESOLVE-LOADED-ASSEMBLER-REFERENCES" "SAP+" "SAP-" "SAP-INT"
1888 "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8"
1889 "SAP-REF-DESCRIPTOR"
1890 "SAP-REF-DOUBLE" "SAP-REF-LONG" "SAP-REF-SAP" "SAP-REF-SINGLE"
1891 "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
1892 "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
1893 "SERVE-EVENT" "SERVER" "SERVER-MESSAGE" "SHORT-FLOAT-RADIX"
1894 "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
1895 "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8"
1896 "SINGLE-FLOAT-RADIX" "SYMBOL-MACRO-LET" "SYSTEM-AREA-POINTER"
1897 "SYSTEM-AREA-POINTER-P" "VECTOR-SAP"
1898 "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS" "WITH-FD-HANDLER"
1899 "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING"
1900 "WITHOUT-HEMLOCK" "WITHOUT-INTERRUPTS" "WORDS"
1901 "OS-INIT" "ALLOCATE-SYSTEM-MEMORY-AT"
1902 "ALTERNATE-GET-GLOBAL-ADDRESS"
1903 "*RUNTIME-FEATURES*" "REGISTER-LISP-FEATURE"
1904 "REGISTER-LISP-RUNTIME-FEATURE"
1905
1906 "BINARY-TEXT-STREAM"))
1907
1908 (dolist
1909 (name
1910 '("*" "ARRAY" "BOOLEAN" "DOUBLE-FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT"
1911 "SINGLE-FLOAT" "UNION" "VALUES"
1912 ))
1913 (intern name "LISP"))
1914
1915 (defpackage "ALIEN"
1916 (:import-from "LISP" "*" "ARRAY" "DOUBLE-FLOAT" "FUNCTION"
1917 "BOOLEAN" "INTEGER" "LONG-FLOAT" "SINGLE-FLOAT" "UNION" "VALUES")
1918 (:export "*" "ADDR" "ALIEN" "ALIEN-FUNCALL" "ALIEN-SAP"
1919 "ALIEN-SIZE" "ARRAY" "BOOLEAN" "CAST" "DEF-ALIEN-ROUTINE"
1920 "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE" "DEF-BUILTIN-ALIEN-TYPE"
1921 "DEREF" "DOUBLE-FLOAT" "ENUM" "EXTERN-ALIEN" "FUNCTION" "INTEGER"
1922 "LONG-FLOAT" "SAP-ALIEN" "SIGNED" "SINGLE-FLOAT" "SLOT" "STRUCT"
1923 "UNION" "UNSIGNED" "VALUES" "WITH-ALIEN" "FREE-ALIEN" "NULL-ALIEN"
1924 "MAKE-ALIEN" "LOAD-FOREIGN" "SYSTEM-AREA-POINTER"
1925 "DEF-CALLBACK" "CALLBACK" "CALLBACK-FUNCALL"))
1926
1927 (dolist
1928 (name
1929 '("%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
1930 "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
1931 "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
1932 "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE"
1933 "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
1934 "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
1935 "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
1936 "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
1937 "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE"
1938 "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
1939 "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
1940 "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
1941 "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
1942 "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P" "ALIEN-POINTER-TYPE-TO"
1943 "ALIEN-RECORD-FIELD" "ALIEN-RECORD-FIELD-NAME"
1944 "ALIEN-RECORD-FIELD-OFFSET" "ALIEN-RECORD-FIELD-P"
1945 "ALIEN-RECORD-FIELD-TYPE" "ALIEN-RECORD-TYPE"
1946 "ALIEN-RECORD-TYPE-FIELDS" "ALIEN-RECORD-TYPE-P"
1947 "ALIEN-SINGLE-FLOAT-TYPE" "ALIEN-SINGLE-FLOAT-TYPE-P"
1948 "ALIEN-SUBTYPE-P" "ALIEN-TYPE" "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT"
1949 "ALIEN-TYPE-BITS" "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE"
1950 "ALIEN-VALUE-TYPE" "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
1951 "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
1952 "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
1953 "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
1954 "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS"
1955 "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT"
1956 "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE"
1957 "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
1958 "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
1959 "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
1960 "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
1961 "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE"
1962 "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE"
1963 "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
1964 (intern name "ALIEN"))
1965
1966 (defpackage "ALIEN-INTERNALS"
1967 (:import-from "ALIEN" "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN"
1968 "%HEAP-ALIEN-ADDR" "%LOCAL-ALIEN-ADDR"
1969 "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" "%SET-DEREF"
1970 "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" "%SLOT-ADDR"
1971 "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE"
1972 "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
1973 "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
1974 "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
1975 "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
1976 "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE"
1977 "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
1978 "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
1979 "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
1980 "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
1981 "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
1982 "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
1983 "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
1984 "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
1985 "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
1986 "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
1987 "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
1988 "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
1989 "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
1990 "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
1991 "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
1992 "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
1993 "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
1994 "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS"
1995 "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT"
1996 "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE"
1997 "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
1998 "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
1999 "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
2000 "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
2001 "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE"
2002 "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE"
2003 "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")
2004 (:export "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
2005 "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
2006 "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
2007 "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE"
2008 "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
2009 "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
2010 "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
2011 "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
2012 "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE"
2013 "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
2014 "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
2015 "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
2016 "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
2017 "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
2018 "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
2019 "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
2020 "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
2021 "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
2022 "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
2023 "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
2024 "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
2025 "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
2026 "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
2027 "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
2028 "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
2029 "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
2030 "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS"
2031 "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT"
2032 "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE"
2033 "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
2034 "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
2035 "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
2036 "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
2037 "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE"
2038 "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE"
2039 "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
2040
2041 (defpackage "PROFILE"
2042 (:export
2043 "*DEFAULT-REPORT-TIME-PRINTFUNCTION*" "*INSERT-SPACEREPORTS*"
2044 "*TIMED-FUNCTIONS*" "DELETE-SPACEREPORTS" "PRINT-SPACEREPORTS"
2045 "PROFILE" "PROFILE-ALL" "REPORT-TIME" "REPORT-TIME-CUSTOM"
2046 "RESET-SPACEREPORTS" "RESET-TIME" "UNPROFILE" "WITH-SPACEREPORT"
2047 "*NO-CALLS-LIMIT*" "*NO-CALLS*"))
2048
2049 (dolist
2050 (name
2051 '("ARRAY-RANK" "ARRAY-TOTAL-SIZE" "BOOLEAN" "CHAR-INT" "FLOAT-DIGITS"
2052 "FLOAT-RADIX" "PATHNAME-DEVICE" "PATHNAME-DIRECTORY" "PATHNAME-HOST"
2053 "PATHNAME-NAME" "PATHNAME-TYPE" "PATHNAME-VERSION"))
2054 (intern name "LISP"))
2055 (intern "VOID" "C-CALL")
2056
2057 (defpackage "KERNEL"
2058 (:import-from "LISP" "BOOLEAN")
2059 (:import-from "C-CALL" "VOID")
2060 (:import-from "CONDITIONS" "PARSE-UNKNOWN-TYPE-SPECIFIER")
2061 (:shadow "CLASS" "STRUCTURE-CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS"
2062 "FIND-CLASS" "CLASS-OF")
2063 (:export "%CLASS-LAYOUT" "%CLASS-STATE" "%CLASS-DIRECT-SUPERCLASSES"
2064 "%CLASS-SUBCLASSES" "%CLASS-PCL-CLASS" "%CLASS-NAME"
2065 "RED-ZONE-HIT" "YELLOW-ZONE-HIT" "STACK-OVERFLOW"
2066 "*ANSI-DEFSTRUCT-OPTIONS-P*"
2067 "%ACOS" "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS"
2068 "%ARRAY-DATA-VECTOR" "%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
2069 "%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
2070 "%ARRAY-FILL-POINTER-P" "%ASIN" "%ASINH" "%ATAN" "%ATAN2" "%ATANH"
2071 "%CALLER-FRAME-AND-PC" "%CHECK-BOUND" "%CLOSURE-FUNCTION"
2072 "%CLOSURE-INDEX-REF" "%COS" "%COSH" "%DEPOSIT-FIELD"
2073 "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1" "%HYPOT" "%LDB"
2074 "%LOG" "%LOGB" "%LOG10" "%LOG1P" "%LONG-FLOAT"
2075 "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE" "%MAKE-RATIO"
2076 "%MASK-FIELD" "%NEGATE" "%POW"
2077 "%RAW-BITS" "%RAW-REF-COMPLEX-DOUBLE" "%RAW-REF-COMPLEX-LONG"
2078 "%RAW-REF-COMPLEX-SINGLE" "%RAW-REF-DOUBLE" "%RAW-REF-LONG"
2079 "%RAW-REF-SINGLE" "%RAW-SET-COMPLEX-DOUBLE"
2080 "%RAW-SET-COMPLEX-LONG" "%RAW-SET-COMPLEX-SINGLE"
2081 "%RAW-SET-DOUBLE" "%RAW-SET-LONG" "%RAW-SET-SINGLE"
2082 "%SCALB" "%SCALBN" "%SET-FUNCALLABLE-INSTANCE-FUNCTION"
2083 "%SET-FUNCALLABLE-INSTANCE-INFO" "%SET-RAW-BITS"
2084 "%SET-SAP-REF-16" "%SET-SAP-REF-32" "%SET-SAP-REF-64"
2085 "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE" "%SET-SAP-REF-LONG"
2086 "%SET-SAP-REF-SAP" "%SET-SAP-REF-SINGLE"
2087 "%SET-SIGNED-SAP-REF-16" "%SET-SIGNED-SAP-REF-32"
2088 "%SET-SIGNED-SAP-REF-64" "%SET-SIGNED-SAP-REF-8"
2089 "%SET-STACK-REF" "%SIN" "%SET-SYMBOL-HASH"
2090 "%SINGLE-FLOAT" "%SINH" "%SP-SET-DEFINITION" "%SP-SET-PLIST"
2091 "%SQRT" "%SXHASH-SIMPLE-STRING" "%SXHASH-SIMPLE-SUBSTRING" "%TAN"
2092 "%TANH" "%UNARY-ROUND"
2093 "%UNARY-FROUND/SINGLE-FLOAT" "%UNARY-FROUND/DOUBLE-FLOAT"
2094 "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE"
2095 "%UNARY-FTRUNCATE/SINGLE-FLOAT" "%UNARY-FTRUNCATE/DOUBLE-FLOAT"
2096 "%WITH-ARRAY-DATA"
2097 "*CURRENT-LEVEL*" "*EMPTY-TYPE*" "*EVAL-STACK-TOP*" "*NULL-TYPE*"
2098 "*PRETTY-PRINTER*" "*UNIVERSAL-TYPE*"
2099 "*UNPARSE-FUNCTION-TYPE-SIMPLIFY*" "*WILD-TYPE*"
2100 "32BIT-LOGICAL-AND" "32BIT-LOGICAL-ANDC1" "32BIT-LOGICAL-ANDC2"
2101 "32BIT-LOGICAL-EQV" "32BIT-LOGICAL-NAND" "32BIT-LOGICAL-NOR"
2102 "32BIT-LOGICAL-NOT" "32BIT-LOGICAL-OR" "32BIT-LOGICAL-ORC1"
2103 "32BIT-LOGICAL-ORC2" "32BIT-LOGICAL-XOR" "ALIEN-TYPE-TYPE"
2104 "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P" "ALLOCATE-VECTOR"
2105 "ALWAYS-SUBTYPEP" "ARGS-TYPE" "ARGS-TYPE-ALLOWP" "ARGS-TYPE-KEYP"
2106 "ARGS-TYPE-KEYWORDS" "ARGS-TYPE-OPTIONAL" "ARGS-TYPE-P"
2107 "ARGS-TYPE-REQUIRED" "ARGS-TYPE-REST" "ARRAY-HEADER-P"
2108 "ARRAY-RANK" "ARRAY-TOTAL-SIZE" "ARRAY-TYPE" "ARRAY-TYPE-COMPLEXP"
2109 "ARRAY-TYPE-DIMENSIONS" "ARRAY-TYPE-ELEMENT-TYPE" "ARRAY-TYPE-P"
2110 "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE" "ASH-INDEX" "BASE-CHAR-P"
2111 "BINDING-STACK-POINTER-SAP" "BIT-BASH-AND" "BIT-BASH-ANDC1"
2112 "BIT-BASH-ANDC2" "BIT-BASH-CLEAR" "BIT-BASH-COPY" "BIT-BASH-EQV"
2113 "BIT-BASH-IOR" "BIT-BASH-LOGNAND" "BIT-BASH-LOGNOR" "BIT-BASH-NOT"
2114 "BIT-BASH-ORC1" "BIT-BASH-ORC2" "BIT-BASH-SET" "BIT-BASH-XOR"
2115 "BIT-INDEX" "BOGUS-ARGUMENT-TO-VALUES-LIST-ERROR" "BOOLE-CODE"
2116 "BOOLEAN" "BYTE-SPECIFIER" "CALLABLE" "CHAR-INT"
2117 "SEQUENCE-COUNT"
2118 "CHECK-FOR-CIRCULARITY" "CODE-COMPONENT" "CODE-COMPONENT-P"
2119 "CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
2120 "CODE-INSTRUCTIONS" "COMPLEX-DOUBLE-FLOAT-P" "COMPLEX-FLOAT-P"
2121 "COMPLEX-LONG-FLOAT-P" "COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P"
2122 "CONSED-SEQUENCE" "CONSTANT-MODIFIED" "CONSTANT-TYPE"
2123 "CONSTANT-TYPE-P" "CONSTANT-TYPE-TYPE"
2124 "CONS-TYPE" "CONS-TYPE-CAR-TYPE" "CONS-TYPE-CDR-TYPE" "CONS-TYPE-P"
2125 "CONTAINING-INTEGER-TYPE"
2126 "CONTROL-STACK-POINTER-SAP" "COPY-FROM-SYSTEM-AREA"
2127 "COPY-NUMERIC-TYPE" "COPY-TO-SYSTEM-AREA" "CSUBTYPEP" "CTYPE"
2128 "CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
2129 "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
2130 "DECODE-LONG-FLOAT" "DECODE-SINGLE-FLOAT" "DESCEND-INTO"
2131 "DIVISION-BY-ZERO-ERROR"
2132 "DOUBLE-FLOAT-EXPONENT"
2133 "DOUBLE-FLOAT-BITS"
2134 "DOUBLE-FLOAT-HIGH-BITS"
2135 "DOUBLE-FLOAT-LOW-BITS" "DOUBLE-FLOAT-P" "FLOAT-WAIT"
2136 "DYNAMIC-SPACE-FREE-POINTER" "ERROR-NUMBER-OR-LOSE" "FILENAME"
2137 "FLOAT-DIGITS" "FLOAT-EXPONENT" "FLOAT-FORMAT-DIGITS"
2138 "FLOAT-FORMAT-MAX" "FLOAT-RADIX" "FORM" "FUNCALLABLE-INSTANCE-P"
2139 "FUNCTION-CODE-HEADER" "FUNCTION-TYPE" "FUNCTION-TYPE-ALLOWP"
2140 "FUNCTION-TYPE-KEYP" "FUNCTION-TYPE-KEYWORDS"
2141 "FUNCTION-TYPE-NARGS" "FUNCTION-TYPE-OPTIONAL" "FUNCTION-TYPE-P"
2142 "FUNCTION-TYPE-REQUIRED" "FUNCTION-TYPE-REST"
2143 "FUNCTION-TYPE-RETURNS" "FUNCTION-TYPE-WILD-ARGS"
2144 "FUNCTION-WORD-OFFSET" "GET-CLOSURE-LENGTH" "GET-HEADER-DATA"
2145 "GET-LISP-OBJ-ADDRESS" "GET-LOWTAG" "GET-TYPE" "HAIRY-TYPE"
2146 "HAIRY-TYPE-CHECK-TEMPLATE" "HAIRY-TYPE-SPECIFIER"
2147 "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
2148 "INTERSECTION-TYPE" "INTERSECTION-TYPE-TYPES"
2149 "HANDLE-CIRCULARITY" "INDEX" "INIT-RANDOM-STATE" "INTEGER-DECODE-DOUBLE-FLOAT"
2150 "INTEGER-DECODE-LONG-FLOAT" "INTEGER-DECODE-SINGLE-FLOAT"
2151 "INTERNAL-TIME"
2152 "INVALID-ARGUMENT-COUNT-ERROR" "INVALID-ARRAY-INDEX-ERROR"
2153 "INVALID-UNWIND-ERROR" "IRRATIONAL" "KEY-INFO" "KEY-INFO-NAME"
2154 "KEY-INFO-P" "KEY-INFO-TYPE"
2155 "LAYOUT-INVALID-ERROR" "LEXICAL-ENVIRONMENT"
2156 "LONG-FLOAT-EXPONENT" "LONG-FLOAT-EXP-BITS" "LONG-FLOAT-HIGH-BITS"
2157 "LONG-FLOAT-LOW-BITS" "LONG-FLOAT-MID-BITS" "LONG-FLOAT-P"
2158 "LRA" "LRA-CODE-HEADER" "LRA-P"
2159 "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
2160 "MAKE-ARRAY-HEADER" "MAKE-CONS-TYPE"
2161 "MAKE-DOUBLE-FLOAT" "MAKE-FUNCTION-TYPE"
2162 "MAKE-KEY-INFO" "MAKE-LISP-OBJ" "MAKE-LONG-FLOAT"
2163 "MAKE-MEMBER-TYPE"
2164 "MAKE-NAMED-TYPE" "MAKE-NUMERIC-TYPE" "MAKE-SINGLE-FLOAT"
2165 "%MAKE-INSTANCE" "MAKE-UNION-TYPE"
2166 "MAKE-VALUES-TYPE" "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
2167 "MEMBER-TYPE-P" "MERGE-BITS" "MUTATOR-SELF" "NAMED-TYPE"
2168 "NAMED-TYPE-NAME" "NAMED-TYPE-P" "NATIVE-BYTE-ORDER" "NEGATE"
2169 "NEVER-SUBTYPEP" "NIL-FUNCTION-RETURNED-ERROR" "NOT-<=-ERROR"
2170 "NOT-=-ERROR" "NUMERIC-CONTAGION" "NUMERIC-TYPE"
2171 "NUMERIC-TYPE-CLASS" "NUMERIC-TYPE-COMPLEXP" "NUMERIC-TYPE-FORMAT"
2172 "NUMERIC-TYPE-HIGH" "NUMERIC-TYPE-LOW" "NUMERIC-TYPE-P"
2173 "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-BASE-CHAR-ERROR"
2174 "OBJECT-NOT-BIGNUM-ERROR" "OBJECT-NOT-BIT-VECTOR-ERROR"
2175 "OBJECT-NOT-COERCABLE-TO-FUNCTION-ERROR"
2176 "OBJECT-NOT-COMPLEX-ERROR" "OBJECT-NOT-COMPLEX-FLOAT-ERROR"
2177 "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR"
2178 "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
2179 "OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR"
2180 "OBJECT-NOT-COMPLEX-RATIONAL-ERROR" "OBJECT-NOT-CONS-ERROR"
2181 "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
2182 "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUNCTION-ERROR"
2183 "OBJECT-NOT-FUNCTION-OR-SYMBOL-ERROR" "OBJECT-NOT-INSTANCE-ERROR"
2184 "OBJECT-NOT-INTEGER-ERROR"
2185 "OBJECT-NOT-LIST-ERROR" "OBJECT-NOT-LONG-FLOAT-ERROR"
2186 "OBJECT-NOT-NUMBER-ERROR"
2187 "OBJECT-NOT-RATIO-ERROR" "OBJECT-NOT-RATIONAL-ERROR"
2188 "OBJECT-NOT-REAL-ERROR" "OBJECT-NOT-SAP-ERROR"
2189 "OBJECT-NOT-SIGNED-BYTE-32-ERROR"
2190 "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
2191 "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
2192 "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
2193 "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
2194 "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
2195 "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
2196 "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
2197 "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
2198 "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
2199 "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-32-ERROR"
2200 "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-4-ERROR"
2201 "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-8-ERROR"
2202 "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-16-ERROR"
2203 "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-30-ERROR"
2204 "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-32-ERROR"
2205 "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR"
2206 "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
2207 "OBJECT-NOT-SIMPLE-STRING-ERROR" "OBJECT-NOT-SIMPLE-VECTOR-ERROR"
2208 "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR"
2209 "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-SYMBOL-ERROR"
2210 "OBJECT-NOT-TYPE-ERROR" "OBJECT-NOT-UNSIGNED-BYTE-32-ERROR"
2211 "OBJECT-NOT-VECTOR-ERROR" "OBJECT-NOT-WEAK-POINTER-ERROR"
2212 "ODD-KEYWORD-ARGUMENTS-ERROR" "ORDER-LAYOUT-INHERITS"
2213 "OUTPUT-OBJECT" "OUTPUT-UGLY-OBJECT"
2214 "PARSE-LAMBDA-LIST" "PARSE-UNKNOWN-TYPE"
2215 "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DEVICE"
2216 "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-NAME"
2217 "PATHNAME-TYPE" "PATHNAME-VERSION" "PATHNAMELIKE" "PUNT-IF-TOO-LONG"
2218 "SCALE-DOUBLE-FLOAT" "SCALE-LONG-FLOAT" "SCALE-SINGLE-FLOAT"
2219 "SEQUENCE-END" "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
2220 "SHIFT-TOWARDS-START" "SIGNAL-INIT" "SIGNED-BYTE-32-P"
2221 "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P"
2222 "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
2223 "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P"
2224 "SIMPLE-ARRAY-DOUBLE-FLOAT-P" "SIMPLE-ARRAY-LONG-FLOAT-P"
2225 "SIMPLE-ARRAY-P"
2226 "SIMPLE-ARRAY-SINGLE-FLOAT-P" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
2227 "SIMPLE-ARRAY-UNSIGNED-BYTE-2-P" "SIMPLE-ARRAY-UNSIGNED-BYTE-32-P"
2228 "SIMPLE-ARRAY-UNSIGNED-BYTE-4-P" "SIMPLE-ARRAY-UNSIGNED-BYTE-8-P"
2229 "SIMPLE-ARRAY-SIGNED-BYTE-16-P" "SIMPLE-ARRAY-SIGNED-BYTE-30-P"
2230 "SIMPLE-ARRAY-SIGNED-BYTE-32-P" "SIMPLE-ARRAY-SIGNED-BYTE-8-P"
2231 "SIMPLE-UNBOXED-ARRAY" "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
2232 "SINGLE-FLOAT-P" "SINGLE-VALUE-TYPE" "SPECIFIER-TYPE" "STACK-REF"
2233 "STD-COMPUTE-CLASS-PRECEDENCE-LIST"
2234 "STREAMLIKE" "SIMPLE-STREAM-BUFFER" "STRINGABLE" "STRINGLIKE"
2235 "%INSTANCE-LENGTH"
2236 "%INSTANCE-REF" "%INSTANCE-SET"
2237 "SYSTEM-AREA-CLEAR"
2238 "SYSTEM-AREA-COPY" "TRUTH" "TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--"
2239 "TWO-ARG-/" "TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
2240 "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-GCD" "TWO-ARG-IOR"
2241 "TWO-ARG-LCM" "TWO-ARG-XOR" "TYPE-DIFFERENCE" "TYPE-EXPAND"
2242 "TYPE-INIT" "TYPE-INTERSECT" "TYPE-INTERSECTION" "TYPE-SPECIFIER"
2243 "TYPE-SPECIFIER-SYMBOLS" "TYPE-UNION" "TYPE/=" "TYPE="
2244 "TYPES-INTERSECT" "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
2245 "UNDEFINED-SYMBOL-ERROR" "UNDEFINED-FOREIGN-SYMBOL-ERROR"
2246 "UNDEFINED-FOREIGN-SYMBOL-ERROR-HANDLER"
2247 "UNION-TYPE" "UNION-TYPE-P"
2248 "UNION-TYPE-TYPES" "UNKNOWN-ERROR"
2249 "UNKNOWN-KEYWORD-ARGUMENT-ERROR" "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
2250 "UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
2251 "UNSIGNED-BYTE-32-P" "VALUES-SPECIFIER-TYPE"
2252 "VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
2253 "VALUES-TYPE" "VALUES-TYPE-ALLOWP" "VALUES-TYPE-INTERSECT"
2254 "VALUES-TYPE-INTERSECTION" "VALUES-TYPE-KEYP"
2255 "VALUES-TYPE-KEYWORDS" "VALUES-TYPE-OPTIONAL" "VALUES-TYPE-P"
2256 "VALUES-TYPE-REQUIRED" "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
2257 "VALUES-TYPES" "VALUES-TYPES-INTERSECT" "VOID"
2258 "WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"
2259 "FDEFN" "MAKE-FDEFN" "FDEFN-P" "FDEFN-NAME" "FDEFN-FUNCTION"
2260 "FDEFN-OR-LOSE"
2261 "FDEFN-MAKUNBOUND" "%COERCE-TO-FUNCTION" "FUNCTION-SUBTYPE"
2262 "*MAXIMUM-ERROR-DEPTH*" "%SET-SYMBOL-PLIST"
2263 "INFINITE-ERROR-PROTECT"
2264 "FIND-CALLER-NAME" "OLD-IN-PACKAGE"
2265 "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE" "OUTPUT-SYMBOL-NAME"
2266 "FSET" "RAW-DEFINITION" "%IN-PACKAGE" "%DEFPACKAGE"
2267 "INVOKE-MACROEXPAND-HOOK" "TYPEDEF-INIT" "DEFAULT-STRUCTURE-PRINT"
2268 "LAYOUT" "LAYOUT-LENGTH" "RATIOP" "FIXNUMP"
2269 "LAMBDA-WITH-ENVIRONMENT" "LAYOUT-PURE" "DSD-RAW-TYPE"
2270 "%COMPILER-DEFSTRUCT" "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE"
2271 "BIGNUMP" "DD-COPIER" "UNDEFINE-FUNCTION-NAME" "DD-TYPE"
2272 "CLASS-STATE" "INSTANCE"
2273 "*TYPE-SYSTEM-INITIALIZED*" "WEAK-POINTER-P" "FIND-LAYOUT"
2274 "DSD-NAME" "%TYPEP" "DD-RAW-INDEX" "DD-NAME" "CLASS-SUBCLASSES"
2275 "CLASS-LAYOUT"
2276 "DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
2277 "%CODE-CODE-SIZE" "DD-SLOTS" "%IMAGPART" "DSD-ACCESSOR" "CLASS-INIT"
2278 "%CODE-DEBUG-INFO" "DSD-%NAME" "LAYOUT-CLASS" "LAYOUT-INVALID"
2279 "%FUNCTION-NAME" "DSD-TYPE" "%INSTANCEP"
2280 "DEFSTRUCT-SLOT-DESCRIPTION"
2281 "MAKE-STRUCTURE-LOAD-FORM" "BITP" "%FUNCTION-ARGLIST"
2282 "%FUNCTION-NEXT" "LAYOUT-HASH-LENGTH" "DD-PREDICATE"
2283 "CLASS-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
2284 "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR" "LAYOUT-OF"
2285 "%FUNCTION-SELF" "%REALPART" "STRUCTURE-CLASS-P" "DSD-INDEX"
2286 "%INSTANCE-LAYOUT" "LAYOUT-HASH" "%FUNCTION-TYPE"
2287 "DEFINE-FUNCTION-NAME" "LAYOUT-INHERITANCE-DEPTH"
2288 "%%COMPILER-DEFSTRUCT" "%NUMERATOR" "CLASS-TYPEP"
2289 "STRUCTURE-CLASS-PRINT-FUNCTION" "DSD-READ-ONLY" "LAYOUT-INHERITS"
2290 "DD-LENGTH" "%CODE-ENTRY-POINTS"
2291 "STRUCTURE-CLASS-MAKE-LOAD-FORM-FUN" "%DENOMINATOR"
2292 "BYTE-FUNCTION-OR-CLOSURE" "MAKE-STANDARD-CLASS"
2293 "BYTE-FUNCTION-NAME" "CLASS-CELL-TYPEP" "BYTE-CLOSURE"
2294 "FIND-CLASS-CELL" "EXTRACT-FUNCTION-TYPE"
2295 "FUNCALLABLE-STRUCTURE-CLASS"
2296 "%RANDOM-DOUBLE-FLOAT" "%RANDOM-LONG-FLOAT" "%RANDOM-SINGLE-FLOAT"
2297 "RANDOM-PCL-CLASS" "BASIC-STRUCTURE-CLASS-PRINT-FUNCTION"
2298 "%FUNCALLABLE-INSTANCE-INFO" "*EVAL-STACK*" "RANDOM-CHUNK"
2299 "MAKE-FUNCALLABLE-STRUCTURE-CLASS" "LAYOUT-HASH-MAX"
2300 "CLASS-CELL-NAME" "BUILT-IN-CLASS-DIRECT-SUPERCLASSES"
2301 "INITIALIZE-BYTE-COMPILED-FUNCTION" "INITIALIZE-LAYOUT-HASH"
2302 "CLASS-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
2303 "FUNCALLABLE-INSTANCE-FUNCTION" "%FUNCALLABLE-INSTANCE-LAYOUT"
2304 "BASIC-STRUCTURE-CLASS" "BYTE-CLOSURE-DATA"
2305 "BYTE-CLOSURE-FUNCTION" "BYTE-FUNCTION" "CLASS-CELL-CLASS"
2306 "FUNCALLABLE-STRUCTURE-CLASS-P" "REGISTER-LAYOUT"
2307 "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX" "MAKE-RANDOM-PCL-CLASS"
2308 "INSTANCE-LAMBDA" "%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
2309 "%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH"
2310
2311 "MAKE-UNDEFINED-CLASS" "%COMPILER-ONLY-DEFSTRUCT"
2312 "CLASS-DIRECT-SUPERCLASSES" "MAKE-LAYOUT" "SIMPLE-CONTROL-ERROR"
2313 "SIMPLE-FILE-ERROR" "SIMPLE-PROGRAM-ERROR" "SIMPLE-STYLE-WARNING"
2314 "SIMPLE-UNDEFINED-FUNCTION" "SIMPLE-PARSE-ERROR" "SIMPLE-STREAM-ERROR"
2315 "BYTE-FUNCTION-TYPE" "SLOT-CLASS-PRINT-FUNCTION"
2316 "REDEFINE-LAYOUT-WARNING" "SLOT-CLASS" "INSURED-FIND-CLASS"
2317 "CONDITION-FUNCTION-NAME"
2318
2319 "%COMPLEX-SINGLE-FLOAT"
2320 "%COMPLEX-DOUBLE-FLOAT"
2321 "%COMPLEX-DOUBLE-DOUBLE-FLOAT")
2322 #+heap-overflow-check
2323 (:export "DYNAMIC-SPACE-OVERFLOW-WARNING-HIT"
2324 "DYNAMIC-SPACE-OVERFLOW-ERROR-HIT"
2325 "HEAP-OVERFLOW")
2326 #+X86
2327 (:export "ATOMIC-PUSH-VECTOR" "RPLACD-CONDITIONAL"
2328 "ATOMIC-PUSH-SYMBOL-VALUE"
2329 "DATA-VECTOR-SET-CONDITIONAL"
2330 "RPLACA-CONDITIONAL"
2331 "%INSTANCE-SET-CONDITIONAL"
2332 "SET-SYMBOL-VALUE-CONDITIONAL"
2333 "ATOMIC-POP-SYMBOL-VALUE"
2334 "ATOMIC-PUSHA"
2335 "ATOMIC-PUSHD")
2336 #+x87
2337 (:export "%COS-QUICK" "%SIN-QUICK" "%TAN-QUICK")
2338 ;;#+double-double
2339 (:export "DOUBLE-DOUBLE-FLOAT"
2340 "DOUBLE-DOUBLE-FLOAT-P"
2341 "DOUBLE-DOUBLE-HI"
2342 "DOUBLE-DOUBLE-LO"
2343 "MAKE-DOUBLE-DOUBLE-FLOAT"
2344 "%MAKE-DOUBLE-DOUBLE-FLOAT"
2345 "%DOUBLE-DOUBLE-FLOAT"
2346 "OBJECT-NOT-DOUBLE-DOUBLE-FLOAT-ERROR"
2347 "SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-P"
2348 "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-DOUBLE-FLOAT-ERROR"
2349 "COMPLEX-DOUBLE-DOUBLE-FLOAT-P"
2350 "OBJECT-NOT-COMPLEX-DOUBLE-DOUBLE-FLOAT-ERROR"
2351
2352 "SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-P"
2353 "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-ERROR"
2354 "DD-PI"))
2355
2356 (dolist
2357 (name
2358 '("BRANCH" "FLUSHABLE" "SSET-ELEMENT" "SSET" "MAKE-SSET"
2359 "DO-ELEMENTS" "SSET-ADJOIN" "SSET-DELETE" "SSET-EMPTY"))
2360 (intern name "C"))
2361
2362 (defpackage "NEW-ASSEM"
2363 (:import-from "C" "BRANCH" "FLUSHABLE" "SSET-ELEMENT" "SSET" "MAKE-SSET"
2364 "DO-ELEMENTS" "SSET-ADJOIN" "SSET-DELETE" "SSET-EMPTY")
2365 (:export "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH" "EMIT-CHOOSER"
2366 "DEFINE-EMITTER" "DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO"
2367 "DEF-ASSEMBLER-PARAMS" "EMIT-POSTIT"
2368
2369 "MAKE-SEGMENT" "SEGMENT-NAME" "ASSEMBLE" "ALIGN" "INST"
2370 "LABEL" "LABEL-P" "GEN-LABEL" "EMIT-LABEL" "LABEL-POSITION"
2371 "APPEND-SEGMENT" "FINALIZE-SEGMENT"
2372 "SEGMENT-MAP-OUTPUT" "RELEASE-SEGMENT"
2373 "READS" "WRITES" "SEGMENT"
2374 "WITHOUT-SCHEDULING" "BRANCH" "FLUSHABLE" "VARIABLE-LENGTH"
2375 "SEGMENT-COLLECT-DYNAMIC-STATISTICS"))
2376
2377 (defpackage "MULTIPROCESSING"
2378 (:use "COMMON-LISP")
2379 (:nicknames "MP")
2380 (:export "*ALL-PROCESSES*" "*CURRENT-PROCESS*" "*CURRENT-STACK-GROUP*"
2381 "*INITIAL-STACK-GROUP*" "*MULTI-PROCESSING*"
2382 "ALL-PROCESSES" "ATOMIC-DECF" "ATOMIC-INCF" "ATOMIC-POP"
2383 "ATOMIC-PUSH" "CURRENT-PROCESS" "DESTROY-PROCESS" "DISABLE-PROCESS"
2384 "ENABLE-PROCESS" "INIT-STACK-GROUPS" "LOCK" "MAKE-STACK-GROUP"
2385 "MAKE-LOCK" "MAKE-PROCESS" "PROCESS-ACTIVE-P"
2386 "PROCESS-ADD-ARREST-REASON" "PROCESS-ADD-RUN-REASON"
2387 "PROCESS-ALIVE-P" "PROCESS-ARREST-REASONS"
2388 "PROCESS-IDLE-TIME" "PROCESS-INTERRUPT" "PROCESS-NAME"
2389 "PROCESS-PRESET" "PROCESS-PROPERTY-LIST"
2390 "PROCESS-REAL-TIME" "PROCESS-REVOKE-ARREST-REASON"
2391 "PROCESS-REVOKE-RUN-REASON" "PROCESS-RUN-REASONS" "PROCESS-RUN-TIME"
2392 "PROCESS-STATE" "PROCESS-WAIT-UNTIL-FD-USABLE"
2393 "PROCESS-WAIT" "PROCESS-WAIT-WITH-TIMEOUT"
2394 "PROCESS-WHOSTATE" "PROCESS-YIELD" "PROCESSP" "RESTART-PROCESS"
2395 "SHOW-PROCESSES" "STACK-GROUP-RESUME" "WITHOUT-SCHEDULING"
2396 "WITH-LOCK-HELD" "WITH-TIMEOUT"))
2397
2398 (defpackage "WALKER"
2399 (:use "COMMON-LISP" "EXT")
2400 (:export "DEFINE-WALKER-TEMPLATE"
2401 "WALK-FORM"
2402 "WALK-FORM-EXPAND-MACROS-P"
2403 "NESTED-WALK-FORM"
2404 "VARIABLE-LEXICAL-P"
2405 "VARIABLE-SPECIAL-P"
2406 "VARIABLE-GLOBALLY-SPECIAL-P"
2407 "*VARIABLE-DECLARATIONS*"
2408 "VARIABLE-DECLARATION"
2409 "MACROEXPAND-ALL"))
2410
2411 (defpackage "FWRAPPERS"
2412 (:use "COMMON-LISP" "EXT" "KERNEL")
2413 (:export "DEFINE-FWRAPPER"
2414 "FWRAPPER"
2415 "CALL-NEXT-FUNCTION"
2416 "FWRAP"
2417 "FUNWRAP"
2418 "FIND-FWRAPPER"
2419 "FWRAPPER-TYPE" "FWRAPPER-NEXT" "FWRAPPER-USER-DATA"
2420 "FWRAPPER-CONSTRUCTOR"
2421 "UPDATE-FWRAPPER" "UPDATE-FWRAPPERS"
2422 "SET-FWRAPPERS"
2423 "LIST-FWRAPPERS"
2424 "PUSH-FWRAPPER"
2425 "DELETE-FWRAPPER"
2426 "LAST-FWRAPPER"
2427 "DO-FWRAPPERS"))
2428
2429

  ViewVC Help
Powered by ViewVC 1.1.5