diff --git a/bootfiles/18e/boot13.lisp b/bootfiles/18e/boot13.lisp index c503fec1398eb23158e39d9ad7437d7fd653d806..0929e20fadd2f1ad1fb13a1be14a4cc3d3ae8333 100644 --- a/bootfiles/18e/boot13.lisp +++ b/bootfiles/18e/boot13.lisp @@ -1,9 +1,48 @@ ;;; -;;; Boot file for removing the "" nickname of the KEYWORD package. +;;; Boot file for removing the "" nickname of the KEYWORD package, +;;; removing the USER nickname from CL-USER, and removing the +;;; LISP nickname from COMMON-LISP, the latter by introducing +;;; a new COMMON-LISP package which LISP uses. +;;; ;;; To bootstrap, copy this file to target:bootstrap.lisp ;;; using Pierre Mai's build scripts, and do a full build. ;;; -(rename-package "KEYWORD" "KEYWORD") +;;; +;;; Remove the nickname "" from the KEYWORD package. +;;; +;;; Remove the nickname USER from CL-USER. +;;; +;;; Make a new package COMMON-LISP, from which LISP inherits +;;; the standard symbols. +;;; +;;; Move DEBUG and FLOATING-POINT-INEXACT from EXT to CL. +;;; + +(in-package :lisp) + +(rename-package "KEYWORD" "KEYWORD" nil) + +(cl:rename-package "COMMON-LISP-USER" "COMMON-LISP-USER" '("CL-USER")) +(unuse-package "COMMON-LISP" "COMMON-LISP-USER") +(use-package "LISP" "COMMON-LISP-USER") + +(rename-package "COMMON-LISP" "COMMON-LISP" nil) +(rename-package "COMMON-LISP" "LISP" nil) +(make-package "COMMON-LISP" :nicknames '("CL") :use nil) + +(let ((cl (find-package "CL")) + (lisp (find-package "LISP"))) + (do-external-symbols (sym lisp) + (unintern sym lisp) + (let ((syms (list sym))) + (import syms cl) + (export syms cl) + (import syms lisp) + (export syms lisp)))) + +(cl:use-package "CL" "LISP") + +(in-package :cl-user) ;;; end of file. diff --git a/code/debug.lisp b/code/debug.lisp index b6c40d5497b45c3c6d8d0d63bd15e7edfcc8f297..ece58f0adc2e1b38661bfdc2f4c3bc92824f9667 100644 --- a/code/debug.lisp +++ b/code/debug.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.59 2003/05/05 11:56:53 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.60 2003/06/18 09:23:12 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -877,8 +877,8 @@ See the CMU Common Lisp User's Manual for more information. (defun debug-eval-print (exp) (setq +++ ++ ++ + + - - exp) (let* ((values (multiple-value-list - (cond ((and (fboundp 'cl::commandp)(funcall 'cl::commandp exp)) - (funcall 'cl::invoke-command-interactive exp)) + (cond ((and (fboundp 'lisp::commandp)(funcall 'lisp::commandp exp)) + (funcall 'lisp::invoke-command-interactive exp)) ((and (fboundp 'compile) *auto-eval-in-frame*) (di:eval-in-frame *current-frame* -)) (t (eval -))))) diff --git a/code/defstruct.lisp b/code/defstruct.lisp index a9fd301002b870f79e3a1e81aa81448dfee87df0..60ff2fbf64bbcafd4d4a66fa3577e0660bc33039 100644 --- a/code/defstruct.lisp +++ b/code/defstruct.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.88 2003/05/28 08:50:41 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.89 2003/06/18 09:23:11 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -449,11 +449,11 @@ name-and-options))) (name (dd-name defstruct)) (pkg (symbol-package name))) - (when (and cl::*enable-package-locked-errors* + (when (and lisp::*enable-package-locked-errors* pkg (ext:package-definition-lock pkg)) (restart-case - (error 'cl::package-locked-error + (error 'lisp::package-locked-error :package pkg :format-control "defining structure ~A" :format-arguments (list name)) diff --git a/code/eval.lisp b/code/eval.lisp index f1f77abe64bd85896b9959f1109b162bc69b4a5d..1413c1d90524aa5e96971ab5ddb8534f2bd6454b 100644 --- a/code/eval.lisp +++ b/code/eval.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.39 2003/05/19 10:47:26 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.40 2003/06/18 09:23:11 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -98,7 +98,7 @@ (lambda (s stream d) (declare (ignore d)) (print-unreadable-object (s stream :identity t) - (cl::output-interpreted-function s stream))))) + (lisp::output-interpreted-function s stream))))) ;; ;; The name of this interpreted function, or NIL if none specified. (%name nil) diff --git a/code/exports.lisp b/code/exports.lisp index af8f090f4c0f864e73be8a7d4d9e9a073fb0ba45..e7dc07770b77bb8e17f96c535ba90e4b989f47b2 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.215 2003/06/11 16:41:10 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.216 2003/06/18 09:23:11 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -35,9 +35,12 @@ (if (find-package "FORMAT") (rename-package "FORMAT" "FORMAT" 'nil) (make-package "FORMAT" :nicknames 'nil :use nil)) -(if (find-package "COMMON-LISP") - (rename-package "COMMON-LISP" "COMMON-LISP" '("CL" "LISP")) +(if (find-package "LISP") + (rename-package "LISP" "LISP") (make-package "LISP" :nicknames 'nil :use nil)) +(if (find-package "COMMON-LISP") + (rename-package "COMMON-LISP" "COMMON-LISP" '("CL")) + (make-package "COMMON-LISP" :nicknames '("CL") :use nil)) (if (find-package "EVAL") (rename-package "EVAL" "EVAL" 'nil) (make-package "EVAL" :nicknames 'nil :use nil)) @@ -115,8 +118,8 @@ (rename-package "PROFILE" "PROFILE" 'nil) (make-package "PROFILE" :nicknames 'nil :use nil)) (if (find-package "COMMON-LISP-USER") - (rename-package "COMMON-LISP-USER" "COMMON-LISP-USER" '("CL-USER" "USER")) - (make-package "COMMON-LISP-USER" :nicknames '("CL-USER" "USER") :use nil)) + (rename-package "COMMON-LISP-USER" "COMMON-LISP-USER" '("CL-USER")) + (make-package "COMMON-LISP-USER" :nicknames '("CL-USER") :use nil)) (if (find-package "KERNEL") (rename-package "KERNEL" "KERNEL" 'nil) (make-package "KERNEL" :nicknames 'nil :use nil)) @@ -141,11 +144,12 @@ (use-package '("EXTENSIONS" "LISP") "CONDITIONS") (use-package '("LISP") "DISASSEM") (use-package '("EXTENSIONS" "LISP" "SYSTEM") "DEBUG") -(use-package '("C-CALL" "ALIEN" "LISP" "SYSTEM") "EXTENSIONS") +(use-package '("C-CALL" "ALIEN" "COMMON-LISP" "SYSTEM") "EXTENSIONS") (use-package '("LISP") "LOOP") (use-package '("LISP" "SYSTEM" "EXTENSIONS" "KERNEL") "DEBUG-INTERNALS") (use-package - '("ALIEN-INTERNALS" "ALIEN" "LISP" "EXTENSIONS" "KERNEL" "SYSTEM" "BIGNUM") + '("ALIEN-INTERNALS" "ALIEN" "COMMON-LISP" "EXTENSIONS" "KERNEL" + "SYSTEM" "BIGNUM") "C") (use-package '("LISP") "WIRE") (use-package '("KERNEL" "EXTENSIONS" "LISP") "PRETTY-PRINT") @@ -153,7 +157,7 @@ (use-package '("SYSTEM" "EXTENSIONS" "LISP") "ALIEN") (use-package '("LISP") "ALIEN-INTERNALS") (use-package '("LISP") "PROFILE") -(use-package '("EXTENSIONS" "LISP") "COMMON-LISP-USER") +(use-package '("EXTENSIONS" "COMMON-LISP") "COMMON-LISP-USER") (use-package '("ALIEN-INTERNALS" "LISP" "EXTENSIONS" "SYSTEM" "BIGNUM") "KERNEL") (use-package '("LISP") "NEW-ASSEM") @@ -161,417 +165,632 @@ (defpackage "ANSI-LOOP") (defpackage "C-CALL" - (:export "C-STRING" "CHAR" "DOUBLE" "FLOAT" "INT" "LONG" "SHORT" - "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT" - "VOID")) + (:import-from "COMMON-LISP" "CHAR" "FLOAT") + (:export "C-STRING" "CHAR" "DOUBLE" "FLOAT" "INT" "LONG" "SHORT" + "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT" + "VOID")) + (defpackage "INSPECT" - (:export "*INTERFACE-STYLE*" "REMOVE-ALL-DISPLAYS" - "REMOVE-OBJECT-DISPLAY" "SHOW-OBJECT")) + (:export "*INTERFACE-STYLE*" "REMOVE-ALL-DISPLAYS" + "REMOVE-OBJECT-DISPLAY" "SHOW-OBJECT")) + (defpackage "BIGNUM" - (:export "%ADD-WITH-CARRY" "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR" - "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-SET" "%BIGNUM-SET-LENGTH" - "%DIGIT-0-OR-PLUSP" "%DIGIT-LOGICAL-SHIFT-RIGHT" - "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT" "%FLOOR" - "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR" "%MULTIPLY" - "%MULTIPLY-AND-ADD" "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS" - "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT" "BIGNUM-COMPARE" - "BIGNUM-DEPOSIT-BYTE" "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" - "BIGNUM-INDEX" "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE" - "BIGNUM-LOGBITP" "BIGNUM-LOGCOUNT" - "BIGNUM-LOGICAL-AND" "BIGNUM-LOGICAL-IOR" - "BIGNUM-LOGICAL-NOT" "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P" - "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE" - "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM" - "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS" - "NEGATE-BIGNUM" "SUBTRACT-BIGNUM")) + (:export "%ADD-WITH-CARRY" "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR" + "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-SET" "%BIGNUM-SET-LENGTH" + "%DIGIT-0-OR-PLUSP" "%DIGIT-LOGICAL-SHIFT-RIGHT" + "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT" "%FLOOR" + "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR" "%MULTIPLY" + "%MULTIPLY-AND-ADD" "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS" + "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT" "BIGNUM-COMPARE" + "BIGNUM-DEPOSIT-BYTE" "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" + "BIGNUM-INDEX" "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE" + "BIGNUM-LOGBITP" "BIGNUM-LOGCOUNT" + "BIGNUM-LOGICAL-AND" "BIGNUM-LOGICAL-IOR" + "BIGNUM-LOGICAL-NOT" "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P" + "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE" + "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM" + "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS" + "NEGATE-BIGNUM" "SUBTRACT-BIGNUM")) (defpackage "UNIX" - (:export "CADDR-T" "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" - "DADDR-T" "DEV-T" "DIRECT" "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD" - "F-GETFD" "F-GETFL" "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN" - "FSFILCNT-T" "FSBLKCNT-T" "BLKCNT-T" - "FAPPEND" "FASYNC" "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC" - "F_TEST" "F_TLOCK" "UNIX-LOCKF" "F_LOCK" "F_ULOCK" - "F_OK" "GET-UNIX-ERROR-MSG" "GID-T" "INO-T" "IT-INTERVAL" - "IT-VALUE" "ITIMERVAL" "UNIX-SETITIMER" "UNIX-GETITIMER" - "BLKCNT-T" "FSBLKCNT-T" "FSFILCNT-T" - "F_TEST" "F_TLOCK" "F_LOCK" "F_ULOCK" "UNIX-LOCKF" - "PROT_READ" "PROT_WRITE" "PROT_EXEC" "PROT_NONE" - "MAP_SHARED" "MAP_PRIVATE" "MAP_FIXED" "MAP_ANONYMOUS" - "UNIX-MMAP" "UNIX-MUNMAP" - "KBDCGET" "KBDCRESET" "KBDCRST" "KBDCSET" - "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET" "L_INCR" "L_SET" - "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL" "O_RDONLY" "O_RDWR" - "O_TRUNC" "O_WRONLY" "READGRP" "READOTH" "READOWN" "RLIM-CUR" - "RLIM-MAX" "RLIMIT" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS" - "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND" - "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK" - "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE" - "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT" - "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX" - "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC" - "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL" - "SG-OSPEED" "SGTTYB" "SIGCONTEXT" "SIZE-T" "ST-ATIME" "ST-BLKSIZE" - "ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME" - "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "SWBLK-T" "T-BRKC" - "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC" - "T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCHARS" - "TERMINAL-SPEEDS" "TIME-T" "TIMEVAL" "TIMEZONE" "TIOCFLUSH" - "TIOCGETC" "TIOCGETP" "TIOCGLTC" "TIOCGPGRP" "TIOCGWINSZ" - "TIOCNOTTY" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TIOCSPGRP" - "TIOCSWINSZ" "TTY-CBREAK" "TTY-CRMOD" "TTY-LCASE" - "TTY-RAW" "TTY-TANDEM" "TV-SEC" "TV-USEC" "TZ-DSTTIME" - "TZ-MINUTESWEST" "UID-T" "UNIX-ACCEPT" "UNIX-ACCESS" "UNIX-BIND" - "UNIX-CHDIR" "UNIX-CHMOD" "UNIX-CHOWN" "UNIX-CLOSE" "UNIX-CONNECT" - "UNIX-CREAT" "UNIX-CURRENT-DIRECTORY" "UNIX-DUP" "UNIX-DUP2" - "UNIX-ERRNO" "UNIX-EXECVE" "UNIX-EXIT" "UNIX-FCHMOD" "UNIX-FCHOWN" - "UNIX-FCNTL" "UNIX-FD" "UNIX-FILE-MODE" "UNIX-FORK" "UNIX-FSTAT" - "UNIX-FSYNC" "UNIX-FTRUNCATE" "UNIX-GETDTABLESIZE" "UNIX-GETEGID" - "UNIX-GETGID" "UNIX-GETHOSTID" "UNIX-GETHOSTNAME" - "UNIX-GETPAGESIZE" "UNIX-GETPEERNAME" "UNIX-GETPGRP" - "UNIX-GETPID" "UNIX-GETPPID" "UNIX-GETRUSAGE" "UNIX-GETSOCKNAME" - "UNIX-GETSOCKOPT" "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID" - "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LINK" "UNIX-LISTEN" "UNIX-LSEEK" - "UNIX-LSTAT" "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID" - "UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-RECV" "UNIX-RENAME" - "UNIX-RMDIR" "UNIX-SCHED-YIELD" "UNIX-SELECT" - "UNIX-SEND" "UNIX-SETPGID" "UNIX-SETPGRP" - "UNIX-SETREGID" "UNIX-SETREUID" "UNIX-SETSOCKOPT" "UNIX-SOCKET" - "UNIX-STAT" "UNIX-SYMLINK" "UNIX-SYNC" - "UNIX-TIMES" "UNIX-TRUNCATE" "UNIX-TTYNAME" "UNIX-UID" - "UNIX-UNAME" "UNIX-UNLINK" "UNIX-UTIMES" "UNIX-WRITE" "WINSIZE" - "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL" - "WS-YPIXEL" "W_OK" "X_OK" "SIGSYS" "TCSETPGRP" "FD-ZERO" - "SIGEMSG" "SIGQUIT" "SIGCHLD" "SIGSEGV" "FD-CLR" "SIGUSR2" - "EALREADY" "SIGPIPE" "EACCES" "SIGXCPU" "EOPNOTSUPP" - "SIGFPE" "SIGHUP" "ENOTSOCK" "OPEN-DIR" "SIGMASK" "EINTR" - "SIGCONT" "UNIX-RESOLVE-LINKS" "SIGKILL" "EMSGSIZE" "ERANGE" - "EPROTOTYPE" "UNIX-SIGNAL-NUMBER" "EPFNOSUPPORT" "SIGILL" - "EDOM" "UNIX-SIGPAUSE" "EDQUOT" "FD-SETSIZE" "SIGTSTP" - "EAFNOSUPPORT" "TCGETPGRP" "EMFILE" "ECONNRESET" - "EADDRNOTAVAIL" "SIGALRM" "ENETDOWN" "EVICEOP" - "UNIX-FAST-GETRUSAGE" "EPERM" "SIGINT" "EXDEV" "EDEADLK" - "ENOSPC" "ECONNREFUSED" "SIGWINCH" "ENOPROTOOPT" "ESRCH" - "EUSERS" "SIGVTALRM" "ENOTCONN" "ESUCCESS" "EPIPE" - "UNIX-SIMPLIFY-PATHNAME" "EISCONN" "FD-ISSET" "SIGMSG" - "ESHUTDOWN" "EBUSY" "SIGTERM" "ENAMETOOLONG" "EMLINK" - "EADDRINUSE" "SIGBUS" "ERESTART" "TTY-PROCESS-GROUP" - "UNIX-SIGNAL-NAME" "ETIMEDOUT" "ECHILD" "EFBIG" "SIGTRAP" - "UNIX-KILLPG" "ENOTBLK" "SIGIOT" "SIGUSR1" "ECONNABORTED" - "EHOSTUNREACH" "EBADF" "EINVAL" "FD-SET" "CLOSE-DIR" "EISDIR" - "SIGTTIN" "UNIX-KILL" "ENOTDIR" "EHOSTDOWN" "E2BIG" "ESPIPE" - "UNIX-FAST-SELECT" "ENXIO" "ENOTTY" "ELOOP" "LTCHARS" - "UNIX-SIGNAL-DESCRIPTION" "SIGXFSZ" "EINPROGRESS" "ENOENT" - "EPROTONOSUPPORT" "UNIX-SIGBLOCK" "SIGIO" "ENOMEM" "SIGEMT" - "EFAULT" "ENODEV" "EIO" "EVICEERR" "ETXTBSY" "EWOULDBLOCK" - "EAGAIN" "EDESTADDRREQ" "ENOEXEC" "ENETUNREACH" "ENOTEMPTY" - "READ-DIR" "UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY" "ENFILE" - "SIGTTOU" "EEXIST" "SIGPROF" "SIGSTOP" "ENETRESET" "SIGURG" - "ENOBUFS" "EPROCLIM" "EROFS" "ETOOMANYREFS" "UNIX-FILE-KIND" - "ELOCAL" "UNIX-SIGSETMASK" "EREMOTE" "ESOCKTNOSUPPORT" - "TIOCSIGSEND" "SIGWAITING" "SIGABRT" - "C-IFLAG" "UNIX-TCGETATTR" "C-LFLAG" "C-OFLAG" "C-CFLAG" - "TCSAFLUSH" "C-CC" "C-ISPEED" "C-OSPEED" "SIOCSPGRP" "TERMIOS" - "UNIX-TCSETATTR" "O_NDELAY" "O_NOCTTY" - "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH" - "TCIOFLUSH" "UNIX-CFGETOSPEED" "UNIX-CFSETOSPEED" - "UNIX-CFGETISPEED" "UNIX-CFSETISPEED" - "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK" - "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL" - "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK" - "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL" - "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG" - "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK" - "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL" - "TTY-ECHOPRT" "TTY-ECHOKE" "TTY-DEFECHO" "TTY-FLUSHO" - "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD" - "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR" - "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD" - "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME" - "VSUSP" "VSTART" "VSTOP" "VDSUSP" "UNIX-TCSENDBREAK" - "UNIX-TCDRAIN" "UNIX-TCFLUSH" "UNIX-TCFLOW" - #+(or svr4 bsd linux) "O_NDELAY") - #+(or svr4 linux) - (:export "EADDRINUSE" "EADDRNOTAVAIL" "EADV" "EAFNOSUPPORT" - "EALREADY" "EBADE" "EBADFD" "EBADMSG" "EBADR" "EBADRQC" - "EBADSLT" "EBFONT" #+svr4 "ECANCELED" "ECHRNG" "ECOMM" - "ECONNABORTED" "ECONNREFUSED" "ECONNRESET" "EDEADLK" - "EDEADLOCK" "EDESTADDRREQ" #+linux "EDOTDOT" #+linux "EDQUOT" - "EHOSTDOWN" "EHOSTUNREACH" "EIDRM" "EILSEQ" "EINPROGRESS" - "EISCONN" #+linux "EISNAM" "EL2HLT" "EL2NSYNC" "EL3HLT" - "EL3RST" "ELIBACC" "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN" - "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP" "ENAMETOOLONG" - #+linux "ENAVAIL" "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO" - "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK" "ENOLINK" "ENOMSG" "ENONET" - "ENOPKG" "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS" "ENOTCONN" - "ENOTEMPTY" #+linux "ENOTNAM" "ENOTSOCK" #+svr4 "ENOTSUP" - "ENOTUNIQ" "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT" "EPROTO" - "EPROTONOSUPPORT" "EPROTOTYPE" "EREMCHG" "EREMOTE" - #+linux "EREMOTEIO" "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT" - "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME" "ETIMEDOUT" "ETOOMANYREFS" - #+linux "EUCLEAN" "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL" - "UTSNAME" - #+linux "SIGSTKFLT" - "UNIX-GETPWNAM" "UNIX-GETPWUID" "UNIX-GETGRNAM" "UNIX-GETGRGID" - "USER-INFO" "USER-INFO-NAME" "USER-INFO-PASSWORD" "USER-INFO-UID" - "USER-INFO-GID" "USER-INFO-GECOS" "USER-INFO-DIR" "USER-INFO-SHELL" - "GROUP-INFO" "GROUP-INFO-NAME" "GROUP-INFO-GID" "GROUP-INFO-MEMBERS")) + (:export "CADDR-T" "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" + "DADDR-T" "DEV-T" "DIRECT" "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD" + "F-GETFD" "F-GETFL" "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN" + "FSFILCNT-T" "FSBLKCNT-T" "BLKCNT-T" + "FAPPEND" "FASYNC" "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC" + "F_TEST" "F_TLOCK" "UNIX-LOCKF" "F_LOCK" "F_ULOCK" + "F_OK" "GET-UNIX-ERROR-MSG" "GID-T" "INO-T" "IT-INTERVAL" + "IT-VALUE" "ITIMERVAL" "UNIX-SETITIMER" "UNIX-GETITIMER" + "BLKCNT-T" "FSBLKCNT-T" "FSFILCNT-T" + "F_TEST" "F_TLOCK" "F_LOCK" "F_ULOCK" "UNIX-LOCKF" + "PROT_READ" "PROT_WRITE" "PROT_EXEC" "PROT_NONE" + "MAP_SHARED" "MAP_PRIVATE" "MAP_FIXED" "MAP_ANONYMOUS" + "UNIX-MMAP" "UNIX-MUNMAP" + "KBDCGET" "KBDCRESET" "KBDCRST" "KBDCSET" + "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET" "L_INCR" "L_SET" + "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL" "O_RDONLY" "O_RDWR" + "O_TRUNC" "O_WRONLY" "READGRP" "READOTH" "READOWN" "RLIM-CUR" + "RLIM-MAX" "RLIMIT" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS" + "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND" + "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK" + "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE" + "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT" + "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX" + "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC" + "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL" + "SG-OSPEED" "SGTTYB" "SIGCONTEXT" "SIZE-T" "ST-ATIME" "ST-BLKSIZE" + "ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME" + "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "SWBLK-T" "T-BRKC" + "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC" + "T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCHARS" + "TERMINAL-SPEEDS" "TIME-T" "TIMEVAL" "TIMEZONE" "TIOCFLUSH" + "TIOCGETC" "TIOCGETP" "TIOCGLTC" "TIOCGPGRP" "TIOCGWINSZ" + "TIOCNOTTY" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TIOCSPGRP" + "TIOCSWINSZ" "TTY-CBREAK" "TTY-CRMOD" "TTY-LCASE" + "TTY-RAW" "TTY-TANDEM" "TV-SEC" "TV-USEC" "TZ-DSTTIME" + "TZ-MINUTESWEST" "UID-T" "UNIX-ACCEPT" "UNIX-ACCESS" "UNIX-BIND" + "UNIX-CHDIR" "UNIX-CHMOD" "UNIX-CHOWN" "UNIX-CLOSE" "UNIX-CONNECT" + "UNIX-CREAT" "UNIX-CURRENT-DIRECTORY" "UNIX-DUP" "UNIX-DUP2" + "UNIX-ERRNO" "UNIX-EXECVE" "UNIX-EXIT" "UNIX-FCHMOD" "UNIX-FCHOWN" + "UNIX-FCNTL" "UNIX-FD" "UNIX-FILE-MODE" "UNIX-FORK" "UNIX-FSTAT" + "UNIX-FSYNC" "UNIX-FTRUNCATE" "UNIX-GETDTABLESIZE" "UNIX-GETEGID" + "UNIX-GETGID" "UNIX-GETHOSTID" "UNIX-GETHOSTNAME" + "UNIX-GETPAGESIZE" "UNIX-GETPEERNAME" "UNIX-GETPGRP" + "UNIX-GETPID" "UNIX-GETPPID" "UNIX-GETRUSAGE" "UNIX-GETSOCKNAME" + "UNIX-GETSOCKOPT" "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID" + "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LINK" "UNIX-LISTEN" "UNIX-LSEEK" + "UNIX-LSTAT" "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID" + "UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-RECV" "UNIX-RENAME" + "UNIX-RMDIR" "UNIX-SCHED-YIELD" "UNIX-SELECT" + "UNIX-SEND" "UNIX-SETPGID" "UNIX-SETPGRP" + "UNIX-SETREGID" "UNIX-SETREUID" "UNIX-SETSOCKOPT" "UNIX-SOCKET" + "UNIX-STAT" "UNIX-SYMLINK" "UNIX-SYNC" + "UNIX-TIMES" "UNIX-TRUNCATE" "UNIX-TTYNAME" "UNIX-UID" + "UNIX-UNAME" "UNIX-UNLINK" "UNIX-UTIMES" "UNIX-WRITE" "WINSIZE" + "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL" + "WS-YPIXEL" "W_OK" "X_OK" "SIGSYS" "TCSETPGRP" "FD-ZERO" + "SIGEMSG" "SIGQUIT" "SIGCHLD" "SIGSEGV" "FD-CLR" "SIGUSR2" + "EALREADY" "SIGPIPE" "EACCES" "SIGXCPU" "EOPNOTSUPP" + "SIGFPE" "SIGHUP" "ENOTSOCK" "OPEN-DIR" "SIGMASK" "EINTR" + "SIGCONT" "UNIX-RESOLVE-LINKS" "SIGKILL" "EMSGSIZE" "ERANGE" + "EPROTOTYPE" "UNIX-SIGNAL-NUMBER" "EPFNOSUPPORT" "SIGILL" + "EDOM" "UNIX-SIGPAUSE" "EDQUOT" "FD-SETSIZE" "SIGTSTP" + "EAFNOSUPPORT" "TCGETPGRP" "EMFILE" "ECONNRESET" + "EADDRNOTAVAIL" "SIGALRM" "ENETDOWN" "EVICEOP" + "UNIX-FAST-GETRUSAGE" "EPERM" "SIGINT" "EXDEV" "EDEADLK" + "ENOSPC" "ECONNREFUSED" "SIGWINCH" "ENOPROTOOPT" "ESRCH" + "EUSERS" "SIGVTALRM" "ENOTCONN" "ESUCCESS" "EPIPE" + "UNIX-SIMPLIFY-PATHNAME" "EISCONN" "FD-ISSET" "SIGMSG" + "ESHUTDOWN" "EBUSY" "SIGTERM" "ENAMETOOLONG" "EMLINK" + "EADDRINUSE" "SIGBUS" "ERESTART" "TTY-PROCESS-GROUP" + "UNIX-SIGNAL-NAME" "ETIMEDOUT" "ECHILD" "EFBIG" "SIGTRAP" + "UNIX-KILLPG" "ENOTBLK" "SIGIOT" "SIGUSR1" "ECONNABORTED" + "EHOSTUNREACH" "EBADF" "EINVAL" "FD-SET" "CLOSE-DIR" "EISDIR" + "SIGTTIN" "UNIX-KILL" "ENOTDIR" "EHOSTDOWN" "E2BIG" "ESPIPE" + "UNIX-FAST-SELECT" "ENXIO" "ENOTTY" "ELOOP" "LTCHARS" + "UNIX-SIGNAL-DESCRIPTION" "SIGXFSZ" "EINPROGRESS" "ENOENT" + "EPROTONOSUPPORT" "UNIX-SIGBLOCK" "SIGIO" "ENOMEM" "SIGEMT" + "EFAULT" "ENODEV" "EIO" "EVICEERR" "ETXTBSY" "EWOULDBLOCK" + "EAGAIN" "EDESTADDRREQ" "ENOEXEC" "ENETUNREACH" "ENOTEMPTY" + "READ-DIR" "UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY" "ENFILE" + "SIGTTOU" "EEXIST" "SIGPROF" "SIGSTOP" "ENETRESET" "SIGURG" + "ENOBUFS" "EPROCLIM" "EROFS" "ETOOMANYREFS" "UNIX-FILE-KIND" + "ELOCAL" "UNIX-SIGSETMASK" "EREMOTE" "ESOCKTNOSUPPORT" + "TIOCSIGSEND" "SIGWAITING" "SIGABRT" + "C-IFLAG" "UNIX-TCGETATTR" "C-LFLAG" "C-OFLAG" "C-CFLAG" + "TCSAFLUSH" "C-CC" "C-ISPEED" "C-OSPEED" "SIOCSPGRP" "TERMIOS" + "UNIX-TCSETATTR" "O_NDELAY" "O_NOCTTY" + "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH" + "TCIOFLUSH" "UNIX-CFGETOSPEED" "UNIX-CFSETOSPEED" + "UNIX-CFGETISPEED" "UNIX-CFSETISPEED" + "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK" + "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL" + "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK" + "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL" + "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG" + "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK" + "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL" + "TTY-ECHOPRT" "TTY-ECHOKE" "TTY-DEFECHO" "TTY-FLUSHO" + "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD" + "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR" + "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD" + "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME" + "VSUSP" "VSTART" "VSTOP" "VDSUSP" "UNIX-TCSENDBREAK" + "UNIX-TCDRAIN" "UNIX-TCFLUSH" "UNIX-TCFLOW" + #+(or svr4 bsd linux) "O_NDELAY") + #+(or svr4 linux) + (:export "EADDRINUSE" "EADDRNOTAVAIL" "EADV" "EAFNOSUPPORT" + "EALREADY" "EBADE" "EBADFD" "EBADMSG" "EBADR" "EBADRQC" + "EBADSLT" "EBFONT" #+svr4 "ECANCELED" "ECHRNG" "ECOMM" + "ECONNABORTED" "ECONNREFUSED" "ECONNRESET" "EDEADLK" + "EDEADLOCK" "EDESTADDRREQ" #+linux "EDOTDOT" #+linux "EDQUOT" + "EHOSTDOWN" "EHOSTUNREACH" "EIDRM" "EILSEQ" "EINPROGRESS" + "EISCONN" #+linux "EISNAM" "EL2HLT" "EL2NSYNC" "EL3HLT" + "EL3RST" "ELIBACC" "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN" + "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP" "ENAMETOOLONG" + #+linux "ENAVAIL" "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO" + "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK" "ENOLINK" "ENOMSG" "ENONET" + "ENOPKG" "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS" "ENOTCONN" + "ENOTEMPTY" #+linux "ENOTNAM" "ENOTSOCK" #+svr4 "ENOTSUP" + "ENOTUNIQ" "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT" "EPROTO" + "EPROTONOSUPPORT" "EPROTOTYPE" "EREMCHG" "EREMOTE" + #+linux "EREMOTEIO" "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT" + "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME" "ETIMEDOUT" "ETOOMANYREFS" + #+linux "EUCLEAN" "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL" + "UTSNAME" + #+linux "SIGSTKFLT" + "UNIX-GETPWNAM" "UNIX-GETPWUID" "UNIX-GETGRNAM" "UNIX-GETGRGID" + "USER-INFO" "USER-INFO-NAME" "USER-INFO-PASSWORD" "USER-INFO-UID" + "USER-INFO-GID" "USER-INFO-GECOS" "USER-INFO-DIR" "USER-INFO-SHELL" + "GROUP-INFO" "GROUP-INFO-NAME" "GROUP-INFO-GID" "GROUP-INFO-MEMBERS")) (defpackage "FORMAT") + (defpackage "COMMON-LISP" - (:nicknames "CL" "LISP") - (:shadow "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS" - "STRUCTURE-CLASS" "CLASS-OF" "FIND-CLASS") - (:export - "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS" - "STRUCTURE-CLASS" "CLASS-OF" "FIND-CLASS" + (:nicknames "CL") + ;; + ;; It might be nicer if these symbols were from CL, but it's not + ;; required, and moving them from EXT probably requires additional + ;; magic, so I didn't do it. -- 2003-06-16, gerd. + (:import-from "EXTENSIONS" "DEBUG" "FLOATING-POINT-INEXACT") + (:export + "&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY" "&OPTIONAL" "&REST" + "&WHOLE" "*" "**" "***" "*BREAK-ON-SIGNALS*" "*COMPILE-FILE-PATHNAME*" + "*COMPILE-FILE-TRUENAME*" "*COMPILE-PRINT*" "*COMPILE-VERBOSE*" "*DEBUG-IO*" + "*DEBUGGER-HOOK*" "*DEFAULT-PATHNAME-DEFAULTS*" "*ERROR-OUTPUT*" "*FEATURES*" + "*GENSYM-COUNTER*" "*LOAD-PATHNAME*" "*LOAD-PRINT*" "*LOAD-TRUENAME*" + "*LOAD-VERBOSE*" "*MACROEXPAND-HOOK*" "*MODULES*" "*PACKAGE*" "*PRINT-ARRAY*" + "*PRINT-BASE*" "*PRINT-CASE*" "*PRINT-CIRCLE*" "*PRINT-ESCAPE*" + "*PRINT-GENSYM*" "*PRINT-LENGTH*" "*PRINT-LEVEL*" "*PRINT-LINES*" + "*PRINT-MISER-WIDTH*" "*PRINT-PPRINT-DISPATCH*" "*PRINT-PRETTY*" + "*PRINT-RADIX*" "*PRINT-READABLY*" "*PRINT-RIGHT-MARGIN*" "*QUERY-IO*" + "*RANDOM-STATE*" "*READ-BASE*" "*READ-DEFAULT-FLOAT-FORMAT*" "*READ-EVAL*" + "*READ-SUPPRESS*" "*READTABLE*" "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" + "*TERMINAL-IO*" "*TRACE-OUTPUT*" "+" "++" "+++" "-" "/" "//" "///" "/=" "1+" + "1-" "<" "<=" "=" ">" ">=" "ABORT" "ABS" "ACONS" "ACOS" "ACOSH" "ADD-METHOD" + "ADJOIN" "ADJUST-ARRAY" "ADJUSTABLE-ARRAY-P" "ALLOCATE-INSTANCE" + "ALPHA-CHAR-P" "ALPHANUMERICP" "AND" "APPEND" "APPLY" "APROPOS" "APROPOS-LIST" + "AREF" "ARITHMETIC-ERROR" "ARITHMETIC-ERROR-OPERANDS" + "ARITHMETIC-ERROR-OPERATION" "ARRAY" "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT" + "ARRAY-DIMENSIONS" "ARRAY-DISPLACEMENT" "ARRAY-ELEMENT-TYPE" + "ARRAY-HAS-FILL-POINTER-P" "ARRAY-IN-BOUNDS-P" "ARRAY-RANK" "ARRAY-RANK-LIMIT" + "ARRAY-ROW-MAJOR-INDEX" "ARRAY-TOTAL-SIZE" "ARRAY-TOTAL-SIZE-LIMIT" "ARRAYP" + "ASH" "ASIN" "ASINH" "ASSERT" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH" + "ATOM" "BASE-CHAR" "BASE-STRING" "BIGNUM" "BIT" "BIT-AND" "BIT-ANDC1" + "BIT-ANDC2" "BIT-EQV" "BIT-IOR" "BIT-NAND" "BIT-NOR" "BIT-NOT" "BIT-ORC1" + "BIT-ORC2" "BIT-VECTOR" "BIT-VECTOR-P" "BIT-XOR" "BLOCK" "BOOLE" "BOOLE-1" + "BOOLE-2" "BOOLE-AND" "BOOLE-ANDC1" "BOOLE-ANDC2" "BOOLE-C1" "BOOLE-C2" + "BOOLE-CLR" "BOOLE-EQV" "BOOLE-IOR" "BOOLE-NAND" "BOOLE-NOR" "BOOLE-ORC1" + "BOOLE-ORC2" "BOOLE-SET" "BOOLE-XOR" "BOOLEAN" "BOTH-CASE-P" "BOUNDP" "BREAK" + "BROADCAST-STREAM" "BROADCAST-STREAM-STREAMS" "BUILT-IN-CLASS" "BUTLAST" + "BYTE" "BYTE-POSITION" "BYTE-SIZE" "CAAAAR" "CAAADR" "CAAAR" "CAADAR" "CAADDR" + "CAADR" "CAAR" "CADAAR" "CADADR" "CADAR" "CADDAR" "CADDDR" "CADDR" "CADR" + "CALL-ARGUMENTS-LIMIT" "CALL-METHOD" "CALL-NEXT-METHOD" "CAR" "CASE" "CATCH" + "CCASE" "CDAAAR" "CDAADR" "CDAAR" "CDADAR" "CDADDR" "CDADR" "CDAR" "CDDAAR" + "CDDADR" "CDDAR" "CDDDAR" "CDDDDR" "CDDDR" "CDDR" "CDR" "CEILING" "CELL-ERROR" + "CELL-ERROR-NAME" "CERROR" "CHANGE-CLASS" "CHAR" "CHAR-CODE" "CHAR-CODE-LIMIT" + "CHAR-DOWNCASE" "CHAR-EQUAL" "CHAR-GREATERP" "CHAR-INT" "CHAR-LESSP" + "CHAR-NAME" "CHAR-NOT-EQUAL" "CHAR-NOT-GREATERP" "CHAR-NOT-LESSP" + "CHAR-UPCASE" "CHAR/=" "CHAR<" "CHAR<=" "CHAR=" "CHAR>" "CHAR>=" "CHARACTER" + "CHARACTERP" "CHECK-TYPE" "CIS" "CLASS" "CLASS-NAME" "CLASS-OF" "CLEAR-INPUT" + "CLEAR-OUTPUT" "CLOSE" "CLRHASH" "CODE-CHAR" "COERCE" "COMPILATION-SPEED" + "COMPILE" "COMPILE-FILE" "COMPILE-FILE-PATHNAME" "COMPILED-FUNCTION" + "COMPILED-FUNCTION-P" "COMPILER-MACRO" "COMPILER-MACRO-FUNCTION" "COMPLEMENT" + "COMPLEX" "COMPLEXP" "COMPUTE-APPLICABLE-METHODS" "COMPUTE-RESTARTS" + "CONCATENATE" "CONCATENATED-STREAM" "CONCATENATED-STREAM-STREAMS" "COND" + "CONDITION" "CONJUGATE" "CONS" "CONSP" "CONSTANTLY" "CONSTANTP" "CONTINUE" + "CONTROL-ERROR" "COPY-ALIST" "COPY-LIST" "COPY-PPRINT-DISPATCH" + "COPY-READTABLE" "COPY-SEQ" "COPY-STRUCTURE" "COPY-SYMBOL" "COPY-TREE" "COS" + "COSH" "COUNT" "COUNT-IF" "COUNT-IF-NOT" "CTYPECASE" "DEBUG" "DECF" "DECLAIM" + "DECLARATION" "DECLARE" "DECODE-FLOAT" "DECODE-UNIVERSAL-TIME" "DEFCLASS" + "DEFCONSTANT" "DEFGENERIC" "DEFINE-COMPILER-MACRO" "DEFINE-CONDITION" + "DEFINE-METHOD-COMBINATION" "DEFINE-MODIFY-MACRO" "DEFINE-SETF-EXPANDER" + "DEFINE-SYMBOL-MACRO" "DEFMACRO" "DEFMETHOD" "DEFPACKAGE" "DEFPARAMETER" + "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR" "DELETE" "DELETE-DUPLICATES" + "DELETE-FILE" "DELETE-IF" "DELETE-IF-NOT" "DELETE-PACKAGE" "DENOMINATOR" + "DEPOSIT-FIELD" "DESCRIBE" "DESCRIBE-OBJECT" "DESTRUCTURING-BIND" "DIGIT-CHAR" + "DIGIT-CHAR-P" "DIRECTORY" "DIRECTORY-NAMESTRING" "DISASSEMBLE" + "DIVISION-BY-ZERO" "DO" "DO*" "DO-ALL-SYMBOLS" "DO-EXTERNAL-SYMBOLS" + "DO-SYMBOLS" "DOCUMENTATION" "DOLIST" "DOTIMES" "DOUBLE-FLOAT" + "DOUBLE-FLOAT-EPSILON" "DOUBLE-FLOAT-NEGATIVE-EPSILON" "DPB" "DRIBBLE" + "DYNAMIC-EXTENT" "ECASE" "ECHO-STREAM" "ECHO-STREAM-INPUT-STREAM" + "ECHO-STREAM-OUTPUT-STREAM" "ED" "EIGHTH" "ELT" "ENCODE-UNIVERSAL-TIME" + "END-OF-FILE" "ENDP" "ENOUGH-NAMESTRING" "ENSURE-DIRECTORIES-EXIST" + "ENSURE-GENERIC-FUNCTION" "EQ" "EQL" "EQUAL" "EQUALP" "ERROR" "ETYPECASE" + "EVAL" "EVAL-WHEN" "EVENP" "EVERY" "EXP" "EXPORT" "EXPT" "EXTENDED-CHAR" + "FBOUNDP" "FCEILING" "FDEFINITION" "FFLOOR" "FIFTH" "FILE-AUTHOR" "FILE-ERROR" + "FILE-ERROR-PATHNAME" "FILE-LENGTH" "FILE-NAMESTRING" "FILE-POSITION" + "FILE-STREAM" "FILE-STRING-LENGTH" "FILE-WRITE-DATE" "FILL" "FILL-POINTER" + "FIND" "FIND-ALL-SYMBOLS" "FIND-CLASS" "FIND-IF" "FIND-IF-NOT" "FIND-METHOD" + "FIND-PACKAGE" "FIND-RESTART" "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FIXNUM" + "FLET" "FLOAT" "FLOAT-DIGITS" "FLOAT-PRECISION" "FLOAT-RADIX" "FLOAT-SIGN" + "FLOATING-POINT-INEXACT" "FLOATING-POINT-INVALID-OPERATION" + "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW" "FLOATP" "FLOOR" + "FMAKUNBOUND" "FORCE-OUTPUT" "FORMAT" "FORMATTER" "FOURTH" "FRESH-LINE" + "FROUND" "FTRUNCATE" "FTYPE" "FUNCALL" "FUNCTION" "FUNCTION-KEYWORDS" + "FUNCTION-LAMBDA-EXPRESSION" "FUNCTIONP" "GCD" "GENERIC-FUNCTION" "GENSYM" + "GENTEMP" "GET" "GET-DECODED-TIME" "GET-DISPATCH-MACRO-CHARACTER" + "GET-INTERNAL-REAL-TIME" "GET-INTERNAL-RUN-TIME" "GET-MACRO-CHARACTER" + "GET-OUTPUT-STREAM-STRING" "GET-PROPERTIES" "GET-SETF-EXPANSION" + "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GO" "GRAPHIC-CHAR-P" "HANDLER-BIND" + "HANDLER-CASE" "HASH-TABLE" "HASH-TABLE-COUNT" "HASH-TABLE-P" + "HASH-TABLE-REHASH-SIZE" "HASH-TABLE-REHASH-THRESHOLD" "HASH-TABLE-SIZE" + "HASH-TABLE-TEST" "HOST-NAMESTRING" "IDENTITY" "IF" "IGNORABLE" "IGNORE" + "IGNORE-ERRORS" "IMAGPART" "IMPORT" "IN-PACKAGE" "INCF" "INITIALIZE-INSTANCE" + "INLINE" "INPUT-STREAM-P" "INSPECT" "INTEGER" "INTEGER-DECODE-FLOAT" + "INTEGER-LENGTH" "INTEGERP" "INTERACTIVE-STREAM-P" "INTERN" + "INTERNAL-TIME-UNITS-PER-SECOND" "INTERSECTION" "INVALID-METHOD-ERROR" + "INVOKE-DEBUGGER" "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "ISQRT" + "KEYWORD" "KEYWORDP" "LABELS" "LAMBDA" "LAMBDA-LIST-KEYWORDS" + "LAMBDA-PARAMETERS-LIMIT" "LAST" "LCM" "LDB" "LDB-TEST" "LDIFF" + "LEAST-NEGATIVE-DOUBLE-FLOAT" "LEAST-NEGATIVE-LONG-FLOAT" + "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT" + "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT" + "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" "LEAST-NEGATIVE-SHORT-FLOAT" + "LEAST-NEGATIVE-SINGLE-FLOAT" "LEAST-POSITIVE-DOUBLE-FLOAT" + "LEAST-POSITIVE-LONG-FLOAT" "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT" + "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT" + "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" "LEAST-POSITIVE-SHORT-FLOAT" + "LEAST-POSITIVE-SINGLE-FLOAT" "LENGTH" "LET" "LET*" "LISP-IMPLEMENTATION-TYPE" + "LISP-IMPLEMENTATION-VERSION" "LIST" "LIST*" "LIST-ALL-PACKAGES" "LIST-LENGTH" + "LISTEN" "LISTP" "LOAD" "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-VALUE" + "LOCALLY" "LOG" "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV" + "LOGICAL-PATHNAME" "LOGICAL-PATHNAME-TRANSLATIONS" "LOGIOR" "LOGNAND" "LOGNOR" + "LOGNOT" "LOGORC1" "LOGORC2" "LOGTEST" "LOGXOR" "LONG-FLOAT" + "LONG-FLOAT-EPSILON" "LONG-FLOAT-NEGATIVE-EPSILON" "LONG-SITE-NAME" "LOOP" + "LOOP-FINISH" "LOWER-CASE-P" "MACHINE-INSTANCE" "MACHINE-TYPE" + "MACHINE-VERSION" "MACRO-FUNCTION" "MACROEXPAND" "MACROEXPAND-1" "MACROLET" + "MAKE-ARRAY" "MAKE-BROADCAST-STREAM" "MAKE-CONCATENATED-STREAM" + "MAKE-CONDITION" "MAKE-DISPATCH-MACRO-CHARACTER" "MAKE-ECHO-STREAM" + "MAKE-HASH-TABLE" "MAKE-INSTANCE" "MAKE-INSTANCES-OBSOLETE" "MAKE-LIST" + "MAKE-LOAD-FORM" "MAKE-LOAD-FORM-SAVING-SLOTS" "MAKE-METHOD" "MAKE-PACKAGE" + "MAKE-PATHNAME" "MAKE-RANDOM-STATE" "MAKE-SEQUENCE" "MAKE-STRING" + "MAKE-STRING-INPUT-STREAM" "MAKE-STRING-OUTPUT-STREAM" "MAKE-SYMBOL" + "MAKE-SYNONYM-STREAM" "MAKE-TWO-WAY-STREAM" "MAKUNBOUND" "MAP" "MAP-INTO" + "MAPC" "MAPCAN" "MAPCAR" "MAPCON" "MAPHASH" "MAPL" "MAPLIST" "MASK-FIELD" + "MAX" "MEMBER" "MEMBER-IF" "MEMBER-IF-NOT" "MERGE" "MERGE-PATHNAMES" "METHOD" + "METHOD-COMBINATION" "METHOD-COMBINATION-ERROR" "METHOD-QUALIFIERS" "MIN" + "MINUSP" "MISMATCH" "MOD" "MOST-NEGATIVE-DOUBLE-FLOAT" "MOST-NEGATIVE-FIXNUM" + "MOST-NEGATIVE-LONG-FLOAT" "MOST-NEGATIVE-SHORT-FLOAT" + "MOST-NEGATIVE-SINGLE-FLOAT" "MOST-POSITIVE-DOUBLE-FLOAT" + "MOST-POSITIVE-FIXNUM" "MOST-POSITIVE-LONG-FLOAT" "MOST-POSITIVE-SHORT-FLOAT" + "MOST-POSITIVE-SINGLE-FLOAT" "MUFFLE-WARNING" "MULTIPLE-VALUE-BIND" + "MULTIPLE-VALUE-CALL" "MULTIPLE-VALUE-LIST" "MULTIPLE-VALUE-PROG1" + "MULTIPLE-VALUE-SETQ" "MULTIPLE-VALUES-LIMIT" "NAME-CHAR" "NAMESTRING" + "NBUTLAST" "NCONC" "NEXT-METHOD-P" "NIL" "NINTERSECTION" "NINTH" + "NO-APPLICABLE-METHOD" "NO-NEXT-METHOD" "NOT" "NOTANY" "NOTEVERY" "NOTINLINE" + "NRECONC" "NREVERSE" "NSET-DIFFERENCE" "NSET-EXCLUSIVE-OR" + "NSTRING-CAPITALIZE" "NSTRING-DOWNCASE" "NSTRING-UPCASE" "NSUBLIS" "NSUBST" + "NSUBST-IF" "NSUBST-IF-NOT" "NSUBSTITUTE" "NSUBSTITUTE-IF" + "NSUBSTITUTE-IF-NOT" "NTH" "NTH-VALUE" "NTHCDR" "NULL" "NUMBER" "NUMBERP" + "NUMERATOR" "NUNION" "ODDP" "OPEN" "OPEN-STREAM-P" "OPTIMIZE" "OR" "OTHERWISE" + "OUTPUT-STREAM-P" "PACKAGE" "PACKAGE-ERROR" "PACKAGE-ERROR-PACKAGE" + "PACKAGE-NAME" "PACKAGE-NICKNAMES" "PACKAGE-SHADOWING-SYMBOLS" + "PACKAGE-USE-LIST" "PACKAGE-USED-BY-LIST" "PACKAGEP" "PAIRLIS" "PARSE-ERROR" + "PARSE-INTEGER" "PARSE-NAMESTRING" "PATHNAME" "PATHNAME-DEVICE" + "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-MATCH-P" "PATHNAME-NAME" + "PATHNAME-TYPE" "PATHNAME-VERSION" "PATHNAMEP" "PEEK-CHAR" "PHASE" "PI" + "PLUSP" "POP" "POSITION" "POSITION-IF" "POSITION-IF-NOT" "PPRINT" + "PPRINT-DISPATCH" "PPRINT-EXIT-IF-LIST-EXHAUSTED" "PPRINT-FILL" + "PPRINT-INDENT" "PPRINT-LINEAR" "PPRINT-LOGICAL-BLOCK" "PPRINT-NEWLINE" + "PPRINT-POP" "PPRINT-TAB" "PPRINT-TABULAR" "PRIN1" "PRIN1-TO-STRING" "PRINC" + "PRINC-TO-STRING" "PRINT" "PRINT-NOT-READABLE" "PRINT-NOT-READABLE-OBJECT" + "PRINT-OBJECT" "PRINT-UNREADABLE-OBJECT" "PROBE-FILE" "PROCLAIM" "PROG" + "PROG*" "PROG1" "PROG2" "PROGN" "PROGRAM-ERROR" "PROGV" "PROVIDE" "PSETF" + "PSETQ" "PUSH" "PUSHNEW" "QUOTE" "RANDOM" "RANDOM-STATE" "RANDOM-STATE-P" + "RASSOC" "RASSOC-IF" "RASSOC-IF-NOT" "RATIO" "RATIONAL" "RATIONALIZE" + "RATIONALP" "READ" "READ-BYTE" "READ-CHAR" "READ-CHAR-NO-HANG" + "READ-DELIMITED-LIST" "READ-FROM-STRING" "READ-LINE" + "READ-PRESERVING-WHITESPACE" "READ-SEQUENCE" "READER-ERROR" "READTABLE" + "READTABLE-CASE" "READTABLEP" "REAL" "REALP" "REALPART" "REDUCE" + "REINITIALIZE-INSTANCE" "REM" "REMF" "REMHASH" "REMOVE" "REMOVE-DUPLICATES" + "REMOVE-IF" "REMOVE-IF-NOT" "REMOVE-METHOD" "REMPROP" "RENAME-FILE" + "RENAME-PACKAGE" "REPLACE" "REQUIRE" "REST" "RESTART" "RESTART-BIND" + "RESTART-CASE" "RESTART-NAME" "RETURN" "RETURN-FROM" "REVAPPEND" "REVERSE" + "ROOM" "ROTATEF" "ROUND" "ROW-MAJOR-AREF" "RPLACA" "RPLACD" "SAFETY" + "SATISFIES" "SBIT" "SCALE-FLOAT" "SCHAR" "SEARCH" "SECOND" "SEQUENCE" + "SERIOUS-CONDITION" "SET" "SET-DIFFERENCE" "SET-DISPATCH-MACRO-CHARACTER" + "SET-EXCLUSIVE-OR" "SET-MACRO-CHARACTER" "SET-PPRINT-DISPATCH" + "SET-SYNTAX-FROM-CHAR" "SETF" "SETQ" "SEVENTH" "SHADOW" "SHADOWING-IMPORT" + "SHARED-INITIALIZE" "SHIFTF" "SHORT-FLOAT" "SHORT-FLOAT-EPSILON" + "SHORT-FLOAT-NEGATIVE-EPSILON" "SHORT-SITE-NAME" "SIGNAL" "SIGNED-BYTE" + "SIGNUM" "SIMPLE-ARRAY" "SIMPLE-BASE-STRING" "SIMPLE-BIT-VECTOR" + "SIMPLE-BIT-VECTOR-P" "SIMPLE-CONDITION" "SIMPLE-CONDITION-FORMAT-ARGUMENTS" + "SIMPLE-CONDITION-FORMAT-CONTROL" "SIMPLE-ERROR" "SIMPLE-STRING" + "SIMPLE-STRING-P" "SIMPLE-TYPE-ERROR" "SIMPLE-VECTOR" "SIMPLE-VECTOR-P" + "SIMPLE-WARNING" "SIN" "SINGLE-FLOAT" "SINGLE-FLOAT-EPSILON" + "SINGLE-FLOAT-NEGATIVE-EPSILON" "SINH" "SIXTH" "SLEEP" "SLOT-BOUNDP" + "SLOT-EXISTS-P" "SLOT-MAKUNBOUND" "SLOT-MISSING" "SLOT-UNBOUND" "SLOT-VALUE" + "SOFTWARE-TYPE" "SOFTWARE-VERSION" "SOME" "SORT" "SPACE" "SPECIAL" + "SPECIAL-OPERATOR-P" "SPEED" "SQRT" "STABLE-SORT" "STANDARD" "STANDARD-CHAR" + "STANDARD-CHAR-P" "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION" + "STANDARD-METHOD" "STANDARD-OBJECT" "STEP" "STORAGE-CONDITION" "STORE-VALUE" + "STREAM" "STREAM-ELEMENT-TYPE" "STREAM-ERROR" "STREAM-ERROR-STREAM" + "STREAM-EXTERNAL-FORMAT" "STREAMP" "STRING" "STRING-CAPITALIZE" + "STRING-DOWNCASE" "STRING-EQUAL" "STRING-GREATERP" "STRING-LEFT-TRIM" + "STRING-LESSP" "STRING-NOT-EQUAL" "STRING-NOT-GREATERP" "STRING-NOT-LESSP" + "STRING-RIGHT-TRIM" "STRING-STREAM" "STRING-TRIM" "STRING-UPCASE" "STRING/=" + "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP" "STRUCTURE" + "STRUCTURE-CLASS" "STRUCTURE-OBJECT" "STYLE-WARNING" "SUBLIS" "SUBSEQ" + "SUBSETP" "SUBST" "SUBST-IF" "SUBST-IF-NOT" "SUBSTITUTE" "SUBSTITUTE-IF" + "SUBSTITUTE-IF-NOT" "SUBTYPEP" "SVREF" "SXHASH" "SYMBOL" "SYMBOL-FUNCTION" + "SYMBOL-MACROLET" "SYMBOL-NAME" "SYMBOL-PACKAGE" "SYMBOL-PLIST" "SYMBOL-VALUE" + "SYMBOLP" "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "T" "TAGBODY" "TAILP" "TAN" + "TANH" "TENTH" "TERPRI" "THE" "THIRD" "THROW" "TIME" "TRACE" + "TRANSLATE-LOGICAL-PATHNAME" "TRANSLATE-PATHNAME" "TREE-EQUAL" "TRUENAME" + "TRUNCATE" "TWO-WAY-STREAM" "TWO-WAY-STREAM-INPUT-STREAM" + "TWO-WAY-STREAM-OUTPUT-STREAM" "TYPE" "TYPE-ERROR" "TYPE-ERROR-DATUM" + "TYPE-ERROR-EXPECTED-TYPE" "TYPE-OF" "TYPECASE" "TYPEP" "UNBOUND-SLOT" + "UNBOUND-SLOT-INSTANCE" "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "UNEXPORT" + "UNINTERN" "UNION" "UNLESS" "UNREAD-CHAR" "UNSIGNED-BYTE" "UNTRACE" + "UNUSE-PACKAGE" "UNWIND-PROTECT" "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS" + "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" "UPGRADED-ARRAY-ELEMENT-TYPE" + "UPGRADED-COMPLEX-PART-TYPE" "UPPER-CASE-P" "USE-PACKAGE" "USE-VALUE" + "USER-HOMEDIR-PATHNAME" "VALUES" "VALUES-LIST" "VARIABLE" "VECTOR" + "VECTOR-POP" "VECTOR-PUSH" "VECTOR-PUSH-EXTEND" "VECTORP" "WARN" "WARNING" + "WHEN" "WILD-PATHNAME-P" "WITH-ACCESSORS" "WITH-COMPILATION-UNIT" + "WITH-CONDITION-RESTARTS" "WITH-HASH-TABLE-ITERATOR" "WITH-INPUT-FROM-STRING" + "WITH-OPEN-FILE" "WITH-OPEN-STREAM" "WITH-OUTPUT-TO-STRING" + "WITH-PACKAGE-ITERATOR" "WITH-SIMPLE-RESTART" "WITH-SLOTS" + "WITH-STANDARD-IO-SYNTAX" "WRITE" "WRITE-BYTE" "WRITE-CHAR" "WRITE-LINE" + "WRITE-SEQUENCE" "WRITE-STRING" "WRITE-TO-STRING" "Y-OR-N-P" "YES-OR-NO-P" + "ZEROP")) + +(defpackage "LISP" + (:use "COMMON-LISP" "EXTENSIONS" "KERNEL" "SYSTEM" "DEBUG" "BIGNUM") + (:shadowing-import-from + "COMMON-LISP" "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS" "STRUCTURE-CLASS" + "CLASS-OF" "FIND-CLASS") + (:export + "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS" + "STRUCTURE-CLASS" "CLASS-OF" "FIND-CLASS" - "&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY" - "&OPTIONAL" "&REST" "&WHOLE" "*" "**" "***" - "*BREAK-ON-SIGNALS*" - "*COMPILE-FILE-PATHNAME*" "*COMPILE-FILE-TRUENAME*" - "*COMPILE-PRINT*" "*COMPILE-VERBOSE*" "*DEBUG-IO*" - "*DEBUGGER-HOOK*" "*DEFAULT-PATHNAME-DEFAULTS*" - "*ERROR-OUTPUT*" - "*FEATURES*" "*GENSYM-COUNTER*" "*LOAD-PATHNAME*" - "*LOAD-PRINT*" "*LOAD-TRUENAME*" "*LOAD-VERBOSE*" - "*MACROEXPAND-HOOK*" "*MODULES*" "*PACKAGE*" "*PRINT-ARRAY*" - "*PRINT-BASE*" "*PRINT-CASE*" "*PRINT-CIRCLE*" - "*PRINT-ESCAPE*" "*PRINT-GENSYM*" "*PRINT-LENGTH*" - "*PRINT-LEVEL*" "*PRINT-LINES*" "*PRINT-MISER-WIDTH*" - "*PRINT-PPRINT-DISPATCH*" "*PRINT-PRETTY*" "*PRINT-RADIX*" - "*PRINT-READABLY*" "*PRINT-RIGHT-MARGIN*" "*QUERY-IO*" - "*RANDOM-STATE*" "*READ-BASE*" "*READ-DEFAULT-FLOAT-FORMAT*" - "*READ-EVAL*" "*READ-SUPPRESS*" "*READTABLE*" - "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" "*TERMINAL-IO*" - "*TRACE-OUTPUT*" "+" "++" "+++" "-" "/" "//" "///" "/=" "1+" - "1-" "<" "<=" "=" ">" ">=" "ABORT" "ABS" "ACONS" "ACOS" - "ACOSH" "ADJOIN" "ADJUST-ARRAY" "ADJUSTABLE-ARRAY-P" - "ALPHA-CHAR-P" "ALPHANUMERICP" "AND" "APPEND" "APPLY" - "APROPOS" "APROPOS-LIST" "AREF" "ARITHMETIC-ERROR" - "ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION" - "ARRAY" "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT" - "ARRAY-DIMENSIONS" "ARRAY-DISPLACEMENT" "ARRAY-ELEMENT-TYPE" - "ARRAY-HAS-FILL-POINTER-P" "ARRAY-IN-BOUNDS-P" "ARRAY-RANK" - "ARRAY-RANK-LIMIT" "ARRAY-ROW-MAJOR-INDEX" "ARRAY-TOTAL-SIZE" - "ARRAY-TOTAL-SIZE-LIMIT" "ARRAYP" "ASH" "ASIN" "ASINH" - "ASSERT" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH" - "ATOM" "BASE-CHAR" "BASE-STRING" "BIGNUM" - "BIT" "BIT-AND" "BIT-ANDC1" "BIT-ANDC2" "BIT-EQV" "BIT-IOR" - "BIT-NAND" "BIT-NOR" "BIT-NOT" "BIT-ORC1" "BIT-ORC2" - "BIT-VECTOR" "BIT-VECTOR-P" "BIT-XOR" "BLOCK" "BOOLE" "BOOLEAN" - "BOOLE-1" "BOOLE-2" "BOOLE-AND" "BOOLE-ANDC1" "BOOLE-ANDC2" - "BOOLE-C1" "BOOLE-C2" "BOOLE-CLR" "BOOLE-EQV" "BOOLE-IOR" - "BOOLE-NAND" "BOOLE-NOR" "BOOLE-ORC1" "BOOLE-ORC2" "BOOLE-SET" - "BOOLE-XOR" "BOTH-CASE-P" "BOUNDP" "BREAK" - "BROADCAST-STREAM" "BROADCAST-STREAM-STREAMS" - "BUTLAST" "BYTE" "BYTE-POSITION" "BYTE-SIZE" - "CAAAAR" "CAAADR" "CAAAR" "CAADAR" "CAADDR" "CAADR" "CAAR" - "CADAAR" "CADADR" "CADAR" "CADDAR" "CADDDR" "CADDR" "CADR" - "CALL-ARGUMENTS-LIMIT" "CAR" "CASE" - "CATCH" "CCASE" "CDAAAR" "CDAADR" "CDAAR" "CDADAR" "CDADDR" - "CDADR" "CDAR" "CDDAAR" "CDDADR" "CDDAR" "CDDDAR" "CDDDDR" - "CDDDR" "CDDR" "CDR" "CEILING" "CELL-ERROR" "CERROR" "CHAR" - "CHAR-CODE" "CHAR-CODE-LIMIT" "CHAR-DOWNCASE" - "CHAR-EQUAL" "CHAR-GREATERP" "CHAR-INT" "CHAR-LESSP" - "CHAR-NAME" "CHAR-NOT-EQUAL" "CHAR-NOT-GREATERP" - "CHAR-NOT-LESSP" "CHAR-UPCASE" "CHAR/=" - "CHAR<" "CHAR<=" "CHAR=" "CHAR>" "CHAR>=" "CHARACTER" - "CHARACTERP" "CHECK-TYPE" "CIS" "CLASS-NAME" - "CLEAR-INPUT" "CLEAR-OUTPUT" - "CLOSE" "CLRHASH" "CODE-CHAR" "COERCE" - "COMPILATION-SPEED" "COMPILE" "COMPILE-FILE" - "COMPILE-FILE-PATHNAME" - "COMPILED-FUNCTION" "COMPILED-FUNCTION-P" - "COMPILER-MACRO" "COMPILER-MACRO-FUNCTION" - "COMPLEMENT" "COMPLEX" - "COMPLEXP" "COMPUTE-RESTARTS" "CONCATENATE" - "CONCATENATED-STREAM" "CONCATENATED-STREAM-STREAMS" - "COND" "CONDITION" - "CONJUGATE" "CONS" "CONSP" "CONSTANTLY" "CONSTANTP" "CONTINUE" - "CONTROL-ERROR" "COPY-ALIST" "COPY-LIST" - "COPY-PPRINT-DISPATCH" "COPY-READTABLE" "COPY-SEQ" - "COPY-STRUCTURE" - "COPY-SYMBOL" "COPY-TREE" "COS" "COSH" "COUNT" "COUNT-IF" - "COUNT-IF-NOT" "CTYPECASE" "DEBUG" "DECF" "DECLAIM" - "DECLARATION" "DECLARE" "DECODE-FLOAT" "DECODE-UNIVERSAL-TIME" - "DEFCONSTANT" "DEFINE-COMPILER-MACRO" "DEFINE-CONDITION" - "DEFINE-MODIFY-MACRO" "DEFINE-SYMBOL-MACRO" - "DEFMACRO" "DEFPACKAGE" - "DEFPARAMETER" "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR" - "DELETE" "DELETE-DUPLICATES" "DELETE-FILE" "DELETE-IF" - "DELETE-IF-NOT" "DELETE-PACKAGE" - "DENOMINATOR" "DEPOSIT-FIELD" "DESCRIBE" - "DESTRUCTURING-BIND" "DIGIT-CHAR" "DIGIT-CHAR-P" "DIRECTORY" - "DIRECTORY-NAMESTRING" "DISASSEMBLE" "DIVISION-BY-ZERO" "DO" "DO*" - "DO-ALL-SYMBOLS" "DO-EXTERNAL-SYMBOLS" "DO-SYMBOLS" - "DOCUMENTATION" "DOLIST" "DOTIMES" "DOUBLE-FLOAT" - "DOUBLE-FLOAT-EPSILON" "DOUBLE-FLOAT-NEGATIVE-EPSILON" "DPB" - "DRIBBLE" "DYNAMIC-EXTENT" - "ECASE" "ECHO-STREAM" "ECHO-STREAM-INPUT-STREAM" - "ECHO-STREAM-OUTPUT-STREAM" - "ED" "EIGHTH" "ELT" "ENCODE-UNIVERSAL-TIME" - "END-OF-FILE" "ENDP" "ENOUGH-NAMESTRING" - "ENSURE-DIRECTORIES-EXIST" "EQ" "EQL" "EQUAL" - "EQUALP" "ERROR" "ETYPECASE" "EVAL" "EVAL-WHEN" "EVENP" - "EVERY" "EXP" "EXPORT" "EXPT" "EXTENDED-CHAR" "FBOUNDP" "FCEILING" - "FDEFINITION" "FFLOOR" "FIFTH" "FILE-AUTHOR" "FILE-ERROR" - "FILE-ERROR-PATHNAME" "FILE-LENGTH" "FILE-NAMESTRING" - "FILE-POSITION" "FILE-STREAM" "FILE-STRING-LENGTH" - "FILE-WRITE-DATE" "FILL" "FILL-POINTER" "FIND" - "FIND-ALL-SYMBOLS" - "FIND-IF" "FIND-IF-NOT" "FIND-PACKAGE" - "FIND-RESTART" "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FIXNUM" - "FLET" "FLOAT" "FLOAT-DIGITS" "FLOAT-PRECISION" "FLOAT-RADIX" - "FLOAT-SIGN" "FLOATING-POINT-INEXACT" - "FLOATING-POINT-INVALID-OPERATION" - "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW" - "FLOATP" "FLOOR" "FMAKUNBOUND" "FORCE-OUTPUT" "FORMAT" "FORMATTER" - "FOURTH" "FRESH-LINE" "FROUND" "FTRUNCATE" "FTYPE" "FUNCALL" - "FUNCTION" "FUNCTION-LAMBDA-EXPRESSION" "FUNCTIONP" - "GCD" "GENERIC-FUNCTION" "GENSYM" - "GENTEMP" "GET" "GET-DECODED-TIME" "GET-DISPATCH-MACRO-CHARACTER" - "GET-INTERNAL-REAL-TIME" "GET-INTERNAL-RUN-TIME" - "GET-MACRO-CHARACTER" "GET-OUTPUT-STREAM-STRING" "GET-PROPERTIES" - "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GO" "GRAPHIC-CHAR-P" - "HANDLER-BIND" "HANDLER-CASE" "HASH-TABLE" "HASH-TABLE-COUNT" - "HASH-TABLE-P" "HASH-TABLE-REHASH-THRESHOLD" - "HASH-TABLE-REHASH-SIZE" "HASH-TABLE-SIZE" "HASH-TABLE-TEST" - "HOST-NAMESTRING" "IDENTITY" "IF" "IGNORABLE" - "IGNORE" "IGNORE-ERRORS" "IMAGPART" "IMPORT" "IN-PACKAGE" - "INTERACTIVE-STREAM-P" "INCF" - "INLINE" "INPUT-STREAM-P" "INSPECT" "INTEGER" - "INTEGER-DECODE-FLOAT" "INTEGER-LENGTH" "INTEGERP" "INTERN" - "INTERNAL-TIME-UNITS-PER-SECOND" "INTERSECTION" "INVOKE-DEBUGGER" - "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "ISQRT" "KEYWORD" - "KEYWORDP" "LABELS" "LAMBDA" "LAMBDA-LIST-KEYWORDS" - "LAMBDA-PARAMETERS-LIMIT" "LAST" "LCM" "LDB" "LDB-TEST" "LDIFF" - "LEAST-NEGATIVE-DOUBLE-FLOAT" "LEAST-NEGATIVE-LONG-FLOAT" - "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT" - "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" - "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT" - "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" - "LEAST-NEGATIVE-SHORT-FLOAT" "LEAST-NEGATIVE-SINGLE-FLOAT" - "LEAST-POSITIVE-DOUBLE-FLOAT" "LEAST-POSITIVE-LONG-FLOAT" - "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT" - "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" - "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT" - "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" - "LEAST-POSITIVE-SHORT-FLOAT" "LEAST-POSITIVE-SINGLE-FLOAT" - "LENGTH" "LET" "LET*" "LISP-IMPLEMENTATION-TYPE" - "LISP-IMPLEMENTATION-VERSION" "LIST" "LIST*" "LIST-ALL-PACKAGES" - "LIST-LENGTH" "LISTEN" "LISTP" "LOAD" - "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-VALUE" "LOCALLY" - "LOG" "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV" - "LOGICAL-PATHNAME" "LOGICAL-PATHNAME-TRANSLATIONS" - "LOGIOR" "LOGNAND" "LOGNOR" "LOGNOT" "LOGORC1" "LOGORC2" "LOGTEST" - "LOGXOR" "LONG-FLOAT" "LONG-FLOAT-EPSILON" - "LONG-FLOAT-NEGATIVE-EPSILON" "LONG-SITE-NAME" "LOOP" - "LOOP-FINISH" "LOWER-CASE-P" "MACHINE-INSTANCE" "MACHINE-TYPE" - "MACHINE-VERSION" "MACRO-FUNCTION" "MACROEXPAND" "MACROEXPAND-1" - "MACROLET" "MAKE-ARRAY" "MAKE-BROADCAST-STREAM" - "MAKE-CONCATENATED-STREAM" "MAKE-CONDITION" - "MAKE-DISPATCH-MACRO-CHARACTER" "MAKE-ECHO-STREAM" - "MAKE-HASH-TABLE" "MAKE-LIST" "MAKE-PACKAGE" "MAKE-PATHNAME" - "MAKE-RANDOM-STATE" "MAKE-SEQUENCE" "MAKE-STRING" - "MAKE-STRING-INPUT-STREAM" "MAKE-STRING-OUTPUT-STREAM" - "MAKE-SYMBOL" "MAKE-SYNONYM-STREAM" "MAKE-TWO-WAY-STREAM" - "MAKUNBOUND" "MAP" "MAP-INTO" "MAPC" "MAPCAN" "MAPCAR" "MAPCON" - "MAPHASH" "MAPL" "MAPLIST" "MASK-FIELD" "MAX" "MEMBER" "MEMBER-IF" - "MEMBER-IF-NOT" "MERGE" "MERGE-PATHNAMES" "MIN" "MINUSP" - "MISMATCH" "MOD" "MOST-NEGATIVE-DOUBLE-FLOAT" - "MOST-NEGATIVE-FIXNUM" "MOST-NEGATIVE-LONG-FLOAT" - "MOST-NEGATIVE-SHORT-FLOAT" "MOST-NEGATIVE-SINGLE-FLOAT" - "MOST-POSITIVE-DOUBLE-FLOAT" "MOST-POSITIVE-FIXNUM" - "MOST-POSITIVE-LONG-FLOAT" "MOST-POSITIVE-SHORT-FLOAT" - "MOST-POSITIVE-SINGLE-FLOAT" "MUFFLE-WARNING" - "MULTIPLE-VALUE-BIND" "MULTIPLE-VALUE-CALL" "MULTIPLE-VALUE-LIST" - "MULTIPLE-VALUE-PROG1" "MULTIPLE-VALUE-SETQ" - "MULTIPLE-VALUES-LIMIT" "NAME-CHAR" "NAMESTRING" "NBUTLAST" - "NCONC" "NIL" "NINTERSECTION" "NINTH" "NOT" "NOTANY" "NOTEVERY" - "NOTINLINE" "NRECONC" "NREVERSE" "NSET-DIFFERENCE" - "NSET-EXCLUSIVE-OR" "NSTRING-CAPITALIZE" "NSTRING-DOWNCASE" - "NSTRING-UPCASE" "NSUBLIS" "NSUBST" "NSUBST-IF" "NSUBST-IF-NOT" - "NSUBSTITUTE" "NSUBSTITUTE-IF" "NSUBSTITUTE-IF-NOT" "NTH" - "NTH-VALUE" "NTHCDR" "NULL" "NUMBER" "NUMBERP" "NUMERATOR" - "NUNION" "ODDP" "OPEN" "OPEN-STREAM-P" "OPTIMIZE" "OR" "OTHERWISE" - "OUTPUT-STREAM-P" "PACKAGE" "PACKAGE-ERROR" - "PACKAGE-ERROR-PACKAGE" "PACKAGE-NAME" "PACKAGE-NICKNAMES" - "PACKAGE-SHADOWING-SYMBOLS" "PACKAGE-USE-LIST" - "PACKAGE-USED-BY-LIST" "PACKAGEP" "PAIRLIS" "PARSE-ERROR" - "PARSE-INTEGER" "PARSE-NAMESTRING" "PATHNAME" "PATHNAME-DEVICE" - "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-MATCH-P" - "PATHNAME-NAME" "PATHNAME-TYPE" "PATHNAME-VERSION" "PATHNAMEP" - "PEEK-CHAR" "PHASE" "PI" "PLUSP" "POP" "POSITION" "POSITION-IF" - "POSITION-IF-NOT" "PPRINT" "PPRINT-DISPATCH" - "PPRINT-EXIT-IF-LIST-EXHAUSTED" "PPRINT-FILL" "PPRINT-INDENT" - "PPRINT-LINEAR" "PPRINT-LOGICAL-BLOCK" "PPRINT-NEWLINE" - "PPRINT-POP" "PPRINT-TAB" "PPRINT-TABULAR" "PRIN1" - "PRIN1-TO-STRING" "PRINC" "PRINC-TO-STRING" "PRINT" - "PRINT-UNREADABLE-OBJECT" "PROBE-FILE" "PROCLAIM" "PROG" "PROG*" - "PROG1" "PROG2" "PROGN" "PROGRAM-ERROR" "PROGV" "PROVIDE" "PSETF" - "PSETQ" "PUSH" "PUSHNEW" "QUOTE" "RANDOM" "RANDOM-STATE" - "RANDOM-STATE-P" "RASSOC" "RASSOC-IF" "RASSOC-IF-NOT" "RATIO" - "RATIONAL" "RATIONALIZE" "RATIONALP" "READ" "READ-BYTE" - "READ-CHAR" "READ-CHAR-NO-HANG" "READ-DELIMITED-LIST" - "READ-FROM-STRING" "READ-LINE" "READ-PRESERVING-WHITESPACE" - "READ-SEQUENCE" - "READER-ERROR" "READTABLE" "READTABLE-CASE" "READTABLEP" "REAL" - "REALP" "REALPART" "REDUCE" "REM" "REMF" "REMHASH" - "REMOVE" "REMOVE-DUPLICATES" "REMOVE-IF" "REMOVE-IF-NOT" - "REMPROP" "RENAME-FILE" "RENAME-PACKAGE" "REPLACE" "REQUIRE" - "REST" "RESTART" "RESTART-BIND" "RESTART-CASE" "RESTART-NAME" - "RETURN" "RETURN-FROM" "REVAPPEND" "REVERSE" "ROOM" "ROTATEF" - "ROUND" "ROW-MAJOR-AREF" "RPLACA" "RPLACD" "SAFETY" - "SATISFIES" "SBIT" "SCALE-FLOAT" "SCHAR" "SEARCH" "SECOND" - "SEQUENCE" "SERIOUS-CONDITION" "SET" - "SET-DIFFERENCE" "SET-DISPATCH-MACRO-CHARACTER" - "SET-EXCLUSIVE-OR" "SET-MACRO-CHARACTER" "SET-PPRINT-DISPATCH" - "SET-SYNTAX-FROM-CHAR" "SETF" "SETQ" "SEVENTH" "SHADOW" - "SHADOWING-IMPORT" "SHIFTF" "SHORT-FLOAT" - "SHORT-FLOAT-EPSILON" "SHORT-FLOAT-NEGATIVE-EPSILON" - "SHORT-SITE-NAME" "SIGNAL" "SIGNED-BYTE" "SIGNUM" - "SIMPLE-ARRAY" "SIMPLE-BASE-STRING" "SIMPLE-BIT-VECTOR" - "SIMPLE-BIT-VECTOR-P" "SIMPLE-CONDITION" - "SIMPLE-CONDITION-FORMAT-ARGUMENTS" - "SIMPLE-CONDITION-FORMAT-CONTROL" - "SIMPLE-ERROR" - "SIMPLE-STRING" "SIMPLE-STRING-P" "SIMPLE-TYPE-ERROR" - "SIMPLE-VECTOR" "SIMPLE-VECTOR-P" "SIMPLE-WARNING" "SIN" - "SINGLE-FLOAT" "SINGLE-FLOAT-EPSILON" - "SINGLE-FLOAT-NEGATIVE-EPSILON" "SINH" "SIXTH" "SLEEP" - "SOFTWARE-TYPE" "SOFTWARE-VERSION" "SOME" "SORT" "SPACE" - "SPECIAL" "SPECIAL-OPERATOR-P" "SPEED" "SQRT" "STABLE-SORT" - "STANDARD-CHAR" "STANDARD-CHAR-P" "STEP" - "STORAGE-CONDITION" "STORE-VALUE" "STREAM" - "STREAM-ELEMENT-TYPE" "STREAM-ERROR" "STREAM-ERROR-STREAM" - "STREAM-EXTERNAL-FORMAT" - "STREAMP" "STRING" "STRING-CAPITALIZE" - "STRING-DOWNCASE" "STRING-EQUAL" - "STRING-GREATERP" "STRING-LEFT-TRIM" "STRING-LESSP" - "STRING-NOT-EQUAL" "STRING-NOT-GREATERP" "STRING-NOT-LESSP" - "STRING-RIGHT-TRIM" "STRING-STREAM" - "STRING-TRIM" "STRING-UPCASE" "STRING/=" - "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP" - "STRUCTURE" "STRUCTURE-OBJECT" - "SUBLIS" "SUBSEQ" "SUBSETP" "SUBST" "SUBST-IF" - "SUBST-IF-NOT" "SUBSTITUTE" "SUBSTITUTE-IF" - "SUBSTITUTE-IF-NOT" "SUBTYPEP" "SVREF" "SXHASH" "SYMBOL" - "SYMBOL-FUNCTION" "SYMBOL-MACROLET" "SYMBOL-NAME" - "SYMBOL-PACKAGE" "SYMBOL-PLIST" "SYMBOL-VALUE" "SYMBOLP" - "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "T" - "TAGBODY" "TAILP" "TAN" "TANH" "TENTH" "TERPRI" "THE" "THIRD" - "THROW" "TIME" "TRACE" "TRANSLATE-LOGICAL-PATHNAME" - "TRANSLATE-PATHNAME" "TREE-EQUAL" - "TRUENAME" "TRUNCATE" "TWO-WAY-STREAM" - "TWO-WAY-STREAM-INPUT-STREAM" "TWO-WAY-STREAM-OUTPUT-STREAM" - "TYPE" "TYPE-ERROR" "TYPE-ERROR-DATUM" - "TYPE-ERROR-EXPECTED-TYPE" "TYPE-OF" "TYPECASE" "TYPEP" - "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "UNEXPORT" "UNINTERN" - "UNION" "UNLESS" "UNREAD-CHAR" "UNSIGNED-BYTE" "UNTRACE" - "UNUSE-PACKAGE" "UNWIND-PROTECT" "UPGRADED-ARRAY-ELEMENT-TYPE" - "UPGRADED-COMPLEX-PART-TYPE" "UPPER-CASE-P" - "USE-PACKAGE" "USE-VALUE" "USER-HOMEDIR-PATHNAME" "VALUES" + "&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY" + "&OPTIONAL" "&REST" "&WHOLE" "*" "**" "***" + "*BREAK-ON-SIGNALS*" + "*COMPILE-FILE-PATHNAME*" "*COMPILE-FILE-TRUENAME*" + "*COMPILE-PRINT*" "*COMPILE-VERBOSE*" "*DEBUG-IO*" + "*DEBUGGER-HOOK*" "*DEFAULT-PATHNAME-DEFAULTS*" + "*ERROR-OUTPUT*" + "*FEATURES*" "*GENSYM-COUNTER*" "*LOAD-PATHNAME*" + "*LOAD-PRINT*" "*LOAD-TRUENAME*" "*LOAD-VERBOSE*" + "*MACROEXPAND-HOOK*" "*MODULES*" "*PACKAGE*" "*PRINT-ARRAY*" + "*PRINT-BASE*" "*PRINT-CASE*" "*PRINT-CIRCLE*" + "*PRINT-ESCAPE*" "*PRINT-GENSYM*" "*PRINT-LENGTH*" + "*PRINT-LEVEL*" "*PRINT-LINES*" "*PRINT-MISER-WIDTH*" + "*PRINT-PPRINT-DISPATCH*" "*PRINT-PRETTY*" "*PRINT-RADIX*" + "*PRINT-READABLY*" "*PRINT-RIGHT-MARGIN*" "*QUERY-IO*" + "*RANDOM-STATE*" "*READ-BASE*" "*READ-DEFAULT-FLOAT-FORMAT*" + "*READ-EVAL*" "*READ-SUPPRESS*" "*READTABLE*" + "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" "*TERMINAL-IO*" + "*TRACE-OUTPUT*" "+" "++" "+++" "-" "/" "//" "///" "/=" "1+" + "1-" "<" "<=" "=" ">" ">=" "ABORT" "ABS" "ACONS" "ACOS" + "ACOSH" "ADJOIN" "ADJUST-ARRAY" "ADJUSTABLE-ARRAY-P" + "ALPHA-CHAR-P" "ALPHANUMERICP" "AND" "APPEND" "APPLY" + "APROPOS" "APROPOS-LIST" "AREF" "ARITHMETIC-ERROR" + "ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION" + "ARRAY" "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT" + "ARRAY-DIMENSIONS" "ARRAY-DISPLACEMENT" "ARRAY-ELEMENT-TYPE" + "ARRAY-HAS-FILL-POINTER-P" "ARRAY-IN-BOUNDS-P" "ARRAY-RANK" + "ARRAY-RANK-LIMIT" "ARRAY-ROW-MAJOR-INDEX" "ARRAY-TOTAL-SIZE" + "ARRAY-TOTAL-SIZE-LIMIT" "ARRAYP" "ASH" "ASIN" "ASINH" + "ASSERT" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH" + "ATOM" "BASE-CHAR" "BASE-STRING" "BIGNUM" + "BIT" "BIT-AND" "BIT-ANDC1" "BIT-ANDC2" "BIT-EQV" "BIT-IOR" + "BIT-NAND" "BIT-NOR" "BIT-NOT" "BIT-ORC1" "BIT-ORC2" + "BIT-VECTOR" "BIT-VECTOR-P" "BIT-XOR" "BLOCK" "BOOLE" "BOOLEAN" + "BOOLE-1" "BOOLE-2" "BOOLE-AND" "BOOLE-ANDC1" "BOOLE-ANDC2" + "BOOLE-C1" "BOOLE-C2" "BOOLE-CLR" "BOOLE-EQV" "BOOLE-IOR" + "BOOLE-NAND" "BOOLE-NOR" "BOOLE-ORC1" "BOOLE-ORC2" "BOOLE-SET" + "BOOLE-XOR" "BOTH-CASE-P" "BOUNDP" "BREAK" + "BROADCAST-STREAM" "BROADCAST-STREAM-STREAMS" + "BUTLAST" "BYTE" "BYTE-POSITION" "BYTE-SIZE" + "CAAAAR" "CAAADR" "CAAAR" "CAADAR" "CAADDR" "CAADR" "CAAR" + "CADAAR" "CADADR" "CADAR" "CADDAR" "CADDDR" "CADDR" "CADR" + "CALL-ARGUMENTS-LIMIT" "CAR" "CASE" + "CATCH" "CCASE" "CDAAAR" "CDAADR" "CDAAR" "CDADAR" "CDADDR" + "CDADR" "CDAR" "CDDAAR" "CDDADR" "CDDAR" "CDDDAR" "CDDDDR" + "CDDDR" "CDDR" "CDR" "CEILING" "CELL-ERROR" "CERROR" "CHAR" + "CHAR-CODE" "CHAR-CODE-LIMIT" "CHAR-DOWNCASE" + "CHAR-EQUAL" "CHAR-GREATERP" "CHAR-INT" "CHAR-LESSP" + "CHAR-NAME" "CHAR-NOT-EQUAL" "CHAR-NOT-GREATERP" + "CHAR-NOT-LESSP" "CHAR-UPCASE" "CHAR/=" + "CHAR<" "CHAR<=" "CHAR=" "CHAR>" "CHAR>=" "CHARACTER" + "CHARACTERP" "CHECK-TYPE" "CIS" "CLASS-NAME" + "CLEAR-INPUT" "CLEAR-OUTPUT" + "CLOSE" "CLRHASH" "CODE-CHAR" "COERCE" + "COMPILATION-SPEED" "COMPILE" "COMPILE-FILE" + "COMPILE-FILE-PATHNAME" + "COMPILED-FUNCTION" "COMPILED-FUNCTION-P" + "COMPILER-MACRO" "COMPILER-MACRO-FUNCTION" + "COMPLEMENT" "COMPLEX" + "COMPLEXP" "COMPUTE-RESTARTS" "CONCATENATE" + "CONCATENATED-STREAM" "CONCATENATED-STREAM-STREAMS" + "COND" "CONDITION" + "CONJUGATE" "CONS" "CONSP" "CONSTANTLY" "CONSTANTP" "CONTINUE" + "CONTROL-ERROR" "COPY-ALIST" "COPY-LIST" + "COPY-PPRINT-DISPATCH" "COPY-READTABLE" "COPY-SEQ" + "COPY-STRUCTURE" + "COPY-SYMBOL" "COPY-TREE" "COS" "COSH" "COUNT" "COUNT-IF" + "COUNT-IF-NOT" "CTYPECASE" "DEBUG" "DECF" "DECLAIM" + "DECLARATION" "DECLARE" "DECODE-FLOAT" "DECODE-UNIVERSAL-TIME" + "DEFCONSTANT" "DEFINE-COMPILER-MACRO" "DEFINE-CONDITION" + "DEFINE-MODIFY-MACRO" "DEFINE-SYMBOL-MACRO" + "DEFMACRO" "DEFPACKAGE" + "DEFPARAMETER" "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR" + "DELETE" "DELETE-DUPLICATES" "DELETE-FILE" "DELETE-IF" + "DELETE-IF-NOT" "DELETE-PACKAGE" + "DENOMINATOR" "DEPOSIT-FIELD" "DESCRIBE" + "DESTRUCTURING-BIND" "DIGIT-CHAR" "DIGIT-CHAR-P" "DIRECTORY" + "DIRECTORY-NAMESTRING" "DISASSEMBLE" "DIVISION-BY-ZERO" "DO" "DO*" + "DO-ALL-SYMBOLS" "DO-EXTERNAL-SYMBOLS" "DO-SYMBOLS" + "DOCUMENTATION" "DOLIST" "DOTIMES" "DOUBLE-FLOAT" + "DOUBLE-FLOAT-EPSILON" "DOUBLE-FLOAT-NEGATIVE-EPSILON" "DPB" + "DRIBBLE" "DYNAMIC-EXTENT" + "ECASE" "ECHO-STREAM" "ECHO-STREAM-INPUT-STREAM" + "ECHO-STREAM-OUTPUT-STREAM" + "ED" "EIGHTH" "ELT" "ENCODE-UNIVERSAL-TIME" + "END-OF-FILE" "ENDP" "ENOUGH-NAMESTRING" + "ENSURE-DIRECTORIES-EXIST" "EQ" "EQL" "EQUAL" + "EQUALP" "ERROR" "ETYPECASE" "EVAL" "EVAL-WHEN" "EVENP" + "EVERY" "EXP" "EXPORT" "EXPT" "EXTENDED-CHAR" "FBOUNDP" "FCEILING" + "FDEFINITION" "FFLOOR" "FIFTH" "FILE-AUTHOR" "FILE-ERROR" + "FILE-ERROR-PATHNAME" "FILE-LENGTH" "FILE-NAMESTRING" + "FILE-POSITION" "FILE-STREAM" "FILE-STRING-LENGTH" + "FILE-WRITE-DATE" "FILL" "FILL-POINTER" "FIND" + "FIND-ALL-SYMBOLS" + "FIND-IF" "FIND-IF-NOT" "FIND-PACKAGE" + "FIND-RESTART" "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FIXNUM" + "FLET" "FLOAT" "FLOAT-DIGITS" "FLOAT-PRECISION" "FLOAT-RADIX" + "FLOAT-SIGN" "FLOATING-POINT-INEXACT" + "FLOATING-POINT-INVALID-OPERATION" + "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW" + "FLOATP" "FLOOR" "FMAKUNBOUND" "FORCE-OUTPUT" "FORMAT" "FORMATTER" + "FOURTH" "FRESH-LINE" "FROUND" "FTRUNCATE" "FTYPE" "FUNCALL" + "FUNCTION" "FUNCTION-LAMBDA-EXPRESSION" "FUNCTIONP" + "GCD" "GENERIC-FUNCTION" "GENSYM" + "GENTEMP" "GET" "GET-DECODED-TIME" "GET-DISPATCH-MACRO-CHARACTER" + "GET-INTERNAL-REAL-TIME" "GET-INTERNAL-RUN-TIME" + "GET-MACRO-CHARACTER" "GET-OUTPUT-STREAM-STRING" "GET-PROPERTIES" + "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GO" "GRAPHIC-CHAR-P" + "HANDLER-BIND" "HANDLER-CASE" "HASH-TABLE" "HASH-TABLE-COUNT" + "HASH-TABLE-P" "HASH-TABLE-REHASH-THRESHOLD" + "HASH-TABLE-REHASH-SIZE" "HASH-TABLE-SIZE" "HASH-TABLE-TEST" + "HOST-NAMESTRING" "IDENTITY" "IF" "IGNORABLE" + "IGNORE" "IGNORE-ERRORS" "IMAGPART" "IMPORT" "IN-PACKAGE" + "INTERACTIVE-STREAM-P" "INCF" + "INLINE" "INPUT-STREAM-P" "INSPECT" "INTEGER" + "INTEGER-DECODE-FLOAT" "INTEGER-LENGTH" "INTEGERP" "INTERN" + "INTERNAL-TIME-UNITS-PER-SECOND" "INTERSECTION" "INVOKE-DEBUGGER" + "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "ISQRT" "KEYWORD" + "KEYWORDP" "LABELS" "LAMBDA" "LAMBDA-LIST-KEYWORDS" + "LAMBDA-PARAMETERS-LIMIT" "LAST" "LCM" "LDB" "LDB-TEST" "LDIFF" + "LEAST-NEGATIVE-DOUBLE-FLOAT" "LEAST-NEGATIVE-LONG-FLOAT" + "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT" + "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" + "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT" + "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" + "LEAST-NEGATIVE-SHORT-FLOAT" "LEAST-NEGATIVE-SINGLE-FLOAT" + "LEAST-POSITIVE-DOUBLE-FLOAT" "LEAST-POSITIVE-LONG-FLOAT" + "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT" + "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" + "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT" + "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" + "LEAST-POSITIVE-SHORT-FLOAT" "LEAST-POSITIVE-SINGLE-FLOAT" + "LENGTH" "LET" "LET*" "LISP-IMPLEMENTATION-TYPE" + "LISP-IMPLEMENTATION-VERSION" "LIST" "LIST*" "LIST-ALL-PACKAGES" + "LIST-LENGTH" "LISTEN" "LISTP" "LOAD" + "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-VALUE" "LOCALLY" + "LOG" "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV" + "LOGICAL-PATHNAME" "LOGICAL-PATHNAME-TRANSLATIONS" + "LOGIOR" "LOGNAND" "LOGNOR" "LOGNOT" "LOGORC1" "LOGORC2" "LOGTEST" + "LOGXOR" "LONG-FLOAT" "LONG-FLOAT-EPSILON" + "LONG-FLOAT-NEGATIVE-EPSILON" "LONG-SITE-NAME" "LOOP" + "LOOP-FINISH" "LOWER-CASE-P" "MACHINE-INSTANCE" "MACHINE-TYPE" + "MACHINE-VERSION" "MACRO-FUNCTION" "MACROEXPAND" "MACROEXPAND-1" + "MACROLET" "MAKE-ARRAY" "MAKE-BROADCAST-STREAM" + "MAKE-CONCATENATED-STREAM" "MAKE-CONDITION" + "MAKE-DISPATCH-MACRO-CHARACTER" "MAKE-ECHO-STREAM" + "MAKE-HASH-TABLE" "MAKE-LIST" "MAKE-PACKAGE" "MAKE-PATHNAME" + "MAKE-RANDOM-STATE" "MAKE-SEQUENCE" "MAKE-STRING" + "MAKE-STRING-INPUT-STREAM" "MAKE-STRING-OUTPUT-STREAM" + "MAKE-SYMBOL" "MAKE-SYNONYM-STREAM" "MAKE-TWO-WAY-STREAM" + "MAKUNBOUND" "MAP" "MAP-INTO" "MAPC" "MAPCAN" "MAPCAR" "MAPCON" + "MAPHASH" "MAPL" "MAPLIST" "MASK-FIELD" "MAX" "MEMBER" "MEMBER-IF" + "MEMBER-IF-NOT" "MERGE" "MERGE-PATHNAMES" "MIN" "MINUSP" + "MISMATCH" "MOD" "MOST-NEGATIVE-DOUBLE-FLOAT" + "MOST-NEGATIVE-FIXNUM" "MOST-NEGATIVE-LONG-FLOAT" + "MOST-NEGATIVE-SHORT-FLOAT" "MOST-NEGATIVE-SINGLE-FLOAT" + "MOST-POSITIVE-DOUBLE-FLOAT" "MOST-POSITIVE-FIXNUM" + "MOST-POSITIVE-LONG-FLOAT" "MOST-POSITIVE-SHORT-FLOAT" + "MOST-POSITIVE-SINGLE-FLOAT" "MUFFLE-WARNING" + "MULTIPLE-VALUE-BIND" "MULTIPLE-VALUE-CALL" "MULTIPLE-VALUE-LIST" + "MULTIPLE-VALUE-PROG1" "MULTIPLE-VALUE-SETQ" + "MULTIPLE-VALUES-LIMIT" "NAME-CHAR" "NAMESTRING" "NBUTLAST" + "NCONC" "NIL" "NINTERSECTION" "NINTH" "NOT" "NOTANY" "NOTEVERY" + "NOTINLINE" "NRECONC" "NREVERSE" "NSET-DIFFERENCE" + "NSET-EXCLUSIVE-OR" "NSTRING-CAPITALIZE" "NSTRING-DOWNCASE" + "NSTRING-UPCASE" "NSUBLIS" "NSUBST" "NSUBST-IF" "NSUBST-IF-NOT" + "NSUBSTITUTE" "NSUBSTITUTE-IF" "NSUBSTITUTE-IF-NOT" "NTH" + "NTH-VALUE" "NTHCDR" "NULL" "NUMBER" "NUMBERP" "NUMERATOR" + "NUNION" "ODDP" "OPEN" "OPEN-STREAM-P" "OPTIMIZE" "OR" "OTHERWISE" + "OUTPUT-STREAM-P" "PACKAGE" "PACKAGE-ERROR" + "PACKAGE-ERROR-PACKAGE" "PACKAGE-NAME" "PACKAGE-NICKNAMES" + "PACKAGE-SHADOWING-SYMBOLS" "PACKAGE-USE-LIST" + "PACKAGE-USED-BY-LIST" "PACKAGEP" "PAIRLIS" "PARSE-ERROR" + "PARSE-INTEGER" "PARSE-NAMESTRING" "PATHNAME" "PATHNAME-DEVICE" + "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-MATCH-P" + "PATHNAME-NAME" "PATHNAME-TYPE" "PATHNAME-VERSION" "PATHNAMEP" + "PEEK-CHAR" "PHASE" "PI" "PLUSP" "POP" "POSITION" "POSITION-IF" + "POSITION-IF-NOT" "PPRINT" "PPRINT-DISPATCH" + "PPRINT-EXIT-IF-LIST-EXHAUSTED" "PPRINT-FILL" "PPRINT-INDENT" + "PPRINT-LINEAR" "PPRINT-LOGICAL-BLOCK" "PPRINT-NEWLINE" + "PPRINT-POP" "PPRINT-TAB" "PPRINT-TABULAR" "PRIN1" + "PRIN1-TO-STRING" "PRINC" "PRINC-TO-STRING" "PRINT" + "PRINT-UNREADABLE-OBJECT" "PROBE-FILE" "PROCLAIM" "PROG" "PROG*" + "PROG1" "PROG2" "PROGN" "PROGRAM-ERROR" "PROGV" "PROVIDE" "PSETF" + "PSETQ" "PUSH" "PUSHNEW" "QUOTE" "RANDOM" "RANDOM-STATE" + "RANDOM-STATE-P" "RASSOC" "RASSOC-IF" "RASSOC-IF-NOT" "RATIO" + "RATIONAL" "RATIONALIZE" "RATIONALP" "READ" "READ-BYTE" + "READ-CHAR" "READ-CHAR-NO-HANG" "READ-DELIMITED-LIST" + "READ-FROM-STRING" "READ-LINE" "READ-PRESERVING-WHITESPACE" + "READ-SEQUENCE" + "READER-ERROR" "READTABLE" "READTABLE-CASE" "READTABLEP" "REAL" + "REALP" "REALPART" "REDUCE" "REM" "REMF" "REMHASH" + "REMOVE" "REMOVE-DUPLICATES" "REMOVE-IF" "REMOVE-IF-NOT" + "REMPROP" "RENAME-FILE" "RENAME-PACKAGE" "REPLACE" "REQUIRE" + "REST" "RESTART" "RESTART-BIND" "RESTART-CASE" "RESTART-NAME" + "RETURN" "RETURN-FROM" "REVAPPEND" "REVERSE" "ROOM" "ROTATEF" + "ROUND" "ROW-MAJOR-AREF" "RPLACA" "RPLACD" "SAFETY" + "SATISFIES" "SBIT" "SCALE-FLOAT" "SCHAR" "SEARCH" "SECOND" + "SEQUENCE" "SERIOUS-CONDITION" "SET" + "SET-DIFFERENCE" "SET-DISPATCH-MACRO-CHARACTER" + "SET-EXCLUSIVE-OR" "SET-MACRO-CHARACTER" "SET-PPRINT-DISPATCH" + "SET-SYNTAX-FROM-CHAR" "SETF" "SETQ" "SEVENTH" "SHADOW" + "SHADOWING-IMPORT" "SHIFTF" "SHORT-FLOAT" + "SHORT-FLOAT-EPSILON" "SHORT-FLOAT-NEGATIVE-EPSILON" + "SHORT-SITE-NAME" "SIGNAL" "SIGNED-BYTE" "SIGNUM" + "SIMPLE-ARRAY" "SIMPLE-BASE-STRING" "SIMPLE-BIT-VECTOR" + "SIMPLE-BIT-VECTOR-P" "SIMPLE-CONDITION" + "SIMPLE-CONDITION-FORMAT-ARGUMENTS" + "SIMPLE-CONDITION-FORMAT-CONTROL" + "SIMPLE-ERROR" + "SIMPLE-STRING" "SIMPLE-STRING-P" "SIMPLE-TYPE-ERROR" + "SIMPLE-VECTOR" "SIMPLE-VECTOR-P" "SIMPLE-WARNING" "SIN" + "SINGLE-FLOAT" "SINGLE-FLOAT-EPSILON" + "SINGLE-FLOAT-NEGATIVE-EPSILON" "SINH" "SIXTH" "SLEEP" + "SOFTWARE-TYPE" "SOFTWARE-VERSION" "SOME" "SORT" "SPACE" + "SPECIAL" "SPECIAL-OPERATOR-P" "SPEED" "SQRT" "STABLE-SORT" + "STANDARD-CHAR" "STANDARD-CHAR-P" "STEP" + "STORAGE-CONDITION" "STORE-VALUE" "STREAM" + "STREAM-ELEMENT-TYPE" "STREAM-ERROR" "STREAM-ERROR-STREAM" + "STREAM-EXTERNAL-FORMAT" + "STREAMP" "STRING" "STRING-CAPITALIZE" + "STRING-DOWNCASE" "STRING-EQUAL" + "STRING-GREATERP" "STRING-LEFT-TRIM" "STRING-LESSP" + "STRING-NOT-EQUAL" "STRING-NOT-GREATERP" "STRING-NOT-LESSP" + "STRING-RIGHT-TRIM" "STRING-STREAM" + "STRING-TRIM" "STRING-UPCASE" "STRING/=" + "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP" + "STRUCTURE" "STRUCTURE-OBJECT" + "SUBLIS" "SUBSEQ" "SUBSETP" "SUBST" "SUBST-IF" + "SUBST-IF-NOT" "SUBSTITUTE" "SUBSTITUTE-IF" + "SUBSTITUTE-IF-NOT" "SUBTYPEP" "SVREF" "SXHASH" "SYMBOL" + "SYMBOL-FUNCTION" "SYMBOL-MACROLET" "SYMBOL-NAME" + "SYMBOL-PACKAGE" "SYMBOL-PLIST" "SYMBOL-VALUE" "SYMBOLP" + "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "T" + "TAGBODY" "TAILP" "TAN" "TANH" "TENTH" "TERPRI" "THE" "THIRD" + "THROW" "TIME" "TRACE" "TRANSLATE-LOGICAL-PATHNAME" + "TRANSLATE-PATHNAME" "TREE-EQUAL" + "TRUENAME" "TRUNCATE" "TWO-WAY-STREAM" + "TWO-WAY-STREAM-INPUT-STREAM" "TWO-WAY-STREAM-OUTPUT-STREAM" + "TYPE" "TYPE-ERROR" "TYPE-ERROR-DATUM" + "TYPE-ERROR-EXPECTED-TYPE" "TYPE-OF" "TYPECASE" "TYPEP" + "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "UNEXPORT" "UNINTERN" + "UNION" "UNLESS" "UNREAD-CHAR" "UNSIGNED-BYTE" "UNTRACE" + "UNUSE-PACKAGE" "UNWIND-PROTECT" "UPGRADED-ARRAY-ELEMENT-TYPE" + "UPGRADED-COMPLEX-PART-TYPE" "UPPER-CASE-P" + "USE-PACKAGE" "USE-VALUE" "USER-HOMEDIR-PATHNAME" "VALUES" "VALUES-LIST" "VARIABLE" "VECTOR" "VECTOR-POP" "VECTOR-PUSH" "VECTOR-PUSH-EXTEND" "VECTORP" "WARN" "WARNING" "WHEN" "WILD-PATHNAME-P" "WITH-COMPILATION-UNIT" @@ -608,16 +827,16 @@ "MAKE-LOAD-FORM" "MAKE-LOAD-FORM-SAVING-SLOTS")) (defpackage "EVAL" - (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*" - "*INTERPRETED-FUNCTION-CACHE-MINIMUM-SIZE*" - "*INTERPRETED-FUNCTION-CACHE-THRESHOLD*" - "FLUSH-INTERPRETED-FUNCTION-CACHE" "INTERNAL-EVAL" - "INTERPRETED-FUNCTION" - "INTERPRETED-FUNCTION-ARGLIST" "INTERPRETED-FUNCTION-CLOSURE" - "INTERPRETED-FUNCTION-LAMBDA-EXPRESSION" - "INTERPRETED-FUNCTION-NAME" "INTERPRETED-FUNCTION-P" - "INTERPRETED-FUNCTION-TYPE" "MAKE-INTERPRETED-FUNCTION" - "TRACE-EVAL")) + (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*" + "*INTERPRETED-FUNCTION-CACHE-MINIMUM-SIZE*" + "*INTERPRETED-FUNCTION-CACHE-THRESHOLD*" + "FLUSH-INTERPRETED-FUNCTION-CACHE" "INTERNAL-EVAL" + "INTERPRETED-FUNCTION" + "INTERPRETED-FUNCTION-ARGLIST" "INTERPRETED-FUNCTION-CLOSURE" + "INTERPRETED-FUNCTION-LAMBDA-EXPRESSION" + "INTERPRETED-FUNCTION-NAME" "INTERPRETED-FUNCTION-P" + "INTERPRETED-FUNCTION-TYPE" "MAKE-INTERPRETED-FUNCTION" + "TRACE-EVAL")) (dolist (name '("%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT" "%RPLACA" "%RPLACD" @@ -637,6 +856,7 @@ '("%SP-SET-DEFINITION" "%SP-SET-PLIST" "ARRAY-HEADER-P" "BASE-CHAR-P" "DOUBLE-FLOAT-P" "LONG-FLOAT-P" "SIMPLE-ARRAY-P" "SINGLE-FLOAT-P")) (intern name "KERNEL")) + (defpackage #+pmax "PMAX" #+sparc "SPARC" #+ibmrt "RT" @@ -829,7 +1049,7 @@ (defpackage "CONDITIONS") (intern "DISASSEMBLE" "LISP") (defpackage "DISASSEM" - (:import-from "LISP" "DISASSEMBLE") + (:import-from "LISP" "DISASSEMBLE") (:export "*NOTE-COLUMN*" "*OPCODE-COLUMN-WIDTH*" "ADD-COMMENT-HOOK" "ADD-HOOK" "ADD-NOTE-HOOK" "ARG-VALUE" "CREATE-DSTATE" "DISASSEM-STATE" "DISASSEMBLE" "DISASSEMBLE-CODE-COMPONENT" @@ -896,21 +1116,21 @@ "*TRACED-FUNCTION-LIST*")) (intern name "EXTENSIONS")) (defpackage "DEBUG" - (:import-from "EXTENSIONS" "*MAX-TRACE-INDENTATION*" - "*TRACE-PRINT-LENGTH*" "*TRACE-PRINT-LEVEL*" - "*TRACED-FUNCTION-LIST*") - (:export "*AUTO-EVAL-IN-FRAME*" "*DEBUG-PRINT-LENGTH*" - "*DEBUG-PRINT-LEVEL*" "*DEBUG-PROMPT*" - "*DEBUG-READTABLE*" "*FLUSH-DEBUG-ERRORS*" - "*HELP-LINE-SCROLL-COUNT*" "*IN-THE-DEBUGGER*" - "*MAX-TRACE-INDENTATION*" "*TRACE-FRAME*" "*TRACE-PRINT-LENGTH*" - "*TRACE-PRINT-LEVEL*" "*TRACED-FUNCTION-LIST*" "ARG" "BACKTRACE" - "INTERNAL-DEBUG" "VAR" "*PRINT-LOCATION-KIND*" - "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*" - "*TRACE-VALUES*" "DO-DEBUG-COMMAND" - "*TRACE-ENCAPSULATE-DEFAULT*" - "*TRACE-ENCAPSULATE-PACKAGE-NAMES*" - "*DEFAULT-PRINT-FRAME-CALL-VERBOSITY*")) + (:import-from "EXTENSIONS" "*MAX-TRACE-INDENTATION*" + "*TRACE-PRINT-LENGTH*" "*TRACE-PRINT-LEVEL*" + "*TRACED-FUNCTION-LIST*") + (:export "*AUTO-EVAL-IN-FRAME*" "*DEBUG-PRINT-LENGTH*" + "*DEBUG-PRINT-LEVEL*" "*DEBUG-PROMPT*" + "*DEBUG-READTABLE*" "*FLUSH-DEBUG-ERRORS*" + "*HELP-LINE-SCROLL-COUNT*" "*IN-THE-DEBUGGER*" + "*MAX-TRACE-INDENTATION*" "*TRACE-FRAME*" "*TRACE-PRINT-LENGTH*" + "*TRACE-PRINT-LEVEL*" "*TRACED-FUNCTION-LIST*" "ARG" "BACKTRACE" + "INTERNAL-DEBUG" "VAR" "*PRINT-LOCATION-KIND*" + "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*" + "*TRACE-VALUES*" "DO-DEBUG-COMMAND" + "*TRACE-ENCAPSULATE-DEFAULT*" + "*TRACE-ENCAPSULATE-PACKAGE-NAMES*" + "*DEFAULT-PRINT-FRAME-CALL-VERBOSITY*")) (intern "CHAR" "LISP") (defpackage "EXTENSIONS" @@ -918,6 +1138,8 @@ (:import-from "LISP" "GET-SETF-METHOD") (:import-from "KERNEL" "*ANSI-DEFSTRUCT-OPTIONS-P*") (:export "*AFTER-GC-HOOKS*" "*AFTER-SAVE-INITIALIZATIONS*" + "DEBUG" + "FLOATING-POINT-INEXACT" "*ALL-MODIFIER-NAMES*" "*ANSI-DEFSTRUCT-OPTIONS-P*" "*AUTOLOAD-TRANSLATIONS*" "*BACKUP-EXTENSION*" "*BEFORE-GC-HOOKS*" @@ -959,7 +1181,6 @@ "COMPLETE-FILE" "CONCAT-PNAMES" "CONNECT-TO-INET-SOCKET" "CONSTANT" "CONSTANT-ARGUMENT" "CONSTANT-FUNCTION" "CREATE-INET-LISTENER" "CREATE-INET-SOCKET" "CREATE-UNIX-LISTENER" - "DEBUG" "DEF-SOURCE-CONTEXT" "DEFAULT-CLX-EVENT-HANDLER" "DEFAULT-DIRECTORY" "DEFINE-CLX-MODIFIER" "DEFINE-HASH-CACHE" "DEFINE-INFO-CLASS" @@ -973,7 +1194,7 @@ "ENCAPSULATE" "ENCAPSULATED-DEFINITION" "ENCAPSULATED-P" "END-BLOCK" "ENUMERATE-SEARCH-LIST" "FILE-COMMENT" "FILE-WRITABLE" "FINALIZE" "FIXNUMP" "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P" - "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" "FLOATING-POINT-INEXACT" + "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" "FLOATING-POINT-INVALID" "FLUSH-DISPLAY-EVENTS" "FORMAT-DECODED-TIME" "FORMAT-UNIVERSAL-TIME" "FREEZE-TYPE" "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED" "GET-BYTES-CONSED-DFIXNUM" @@ -1085,7 +1306,7 @@ (defpackage "STREAM" (:import-from "SYSTEM" "LISP-STREAM") (:import-from "EXTENSIONS" "FUNDAMENTAL-STREAM") - (:import-from "COMMON-LISP" "LINE-LENGTH" "CHARPOS") + (:import-from "LISP" "LINE-LENGTH" "CHARPOS") (:export ;; Stream classes "STREAM" "SIMPLE-STREAM" @@ -1146,47 +1367,48 @@ "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME" "DEBUG-SOURCE-P" "DEBUG-SOURCE-START-POSITIONS")) (intern name "C")) + (defpackage "DEBUG-INTERNALS" - (:nicknames "DI") - (:import-from "C" "DEBUG-SOURCE" "DEBUG-SOURCE-COMPILED" - "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME" - "DEBUG-SOURCE-P" "DEBUG-SOURCE-START-POSITIONS") - (:export "*DEBUGGING-INTERPRETER*" "ACTIVATE-BREAKPOINT" - "AMBIGUOUS-DEBUG-VARIABLES" "AMBIGUOUS-VARIABLE-NAME" "BREAKPOINT" - "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUNCTION" "BREAKPOINT-INFO" - "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION" - "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUNCTION" - "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER" - "CODE-LOCATION-P" "CODE-LOCATION-TOP-LEVEL-FORM-OFFSET" - "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT" - "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P" - "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR" - "DEBUG-FUNCTION" "DEBUG-FUNCTION-FUNCTION" "DEBUG-FUNCTION-KIND" - "DEBUG-FUNCTION-LAMBDA-LIST" "DEBUG-FUNCTION-NAME" - "DEBUG-FUNCTION-P" "DEBUG-FUNCTION-START-LOCATION" - "DEBUG-FUNCTION-SYMBOL-VARIABLES" "DEBUG-SOURCE" - "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM" - "DEBUG-SOURCE-NAME" "DEBUG-SOURCE-P" "DEBUG-SOURCE-ROOT-NUMBER" - "DEBUG-SOURCE-START-POSITIONS" "DEBUG-VARIABLE" - "DEBUG-VARIABLE-ID" "DEBUG-VARIABLE-INFO-AVAILABLE" - "DEBUG-VARIABLE-NAME" "DEBUG-VARIABLE-P" "DEBUG-VARIABLE-PACKAGE" - "DEBUG-VARIABLE-SYMBOL" "DEBUG-VARIABLE-VALID-VALUE" - "DEBUG-VARIABLE-VALIDITY" "DEBUG-VARIABLE-VALUE" - "DELETE-BREAKPOINT" "DELETE-BREAKPOINT-FOR-EDITOR" "DO-BLOCKS" - "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUNCTION-BLOCKS" - "DO-DEBUG-FUNCTION-VARIABLES" "EVAL-IN-FRAME" - "FORM-NUMBER-TRANSLATIONS" "FRAME" "FRAME-CATCHES" - "FRAME-CODE-LOCATION" "FRAME-DEBUG-FUNCTION" "FRAME-DOWN" - "FRAME-FUNCTION-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP" - "FUNCTION-DEBUG-FUNCTION" "FUNCTION-END-COOKIE-VALID-P" - "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE" - "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS" - "NO-DEBUG-FUNCTION-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL" - "RETURN-FROM-FRAME" "SET-BREAKPOINT-FOR-EDITOR" - "SET-LOCATION-BREAKPOINT-FOR-EDITOR" "SOURCE-PATH-CONTEXT" - "TOP-FRAME" "UNHANDLED-CONDITION" "UNKNOWN-CODE-LOCATION" - "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VARIABLE" - "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE")) + (:nicknames "DI") + (:import-from "C" "DEBUG-SOURCE" "DEBUG-SOURCE-COMPILED" + "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME" + "DEBUG-SOURCE-P" "DEBUG-SOURCE-START-POSITIONS") + (:export "*DEBUGGING-INTERPRETER*" "ACTIVATE-BREAKPOINT" + "AMBIGUOUS-DEBUG-VARIABLES" "AMBIGUOUS-VARIABLE-NAME" "BREAKPOINT" + "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUNCTION" "BREAKPOINT-INFO" + "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION" + "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUNCTION" + "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER" + "CODE-LOCATION-P" "CODE-LOCATION-TOP-LEVEL-FORM-OFFSET" + "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT" + "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P" + "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR" + "DEBUG-FUNCTION" "DEBUG-FUNCTION-FUNCTION" "DEBUG-FUNCTION-KIND" + "DEBUG-FUNCTION-LAMBDA-LIST" "DEBUG-FUNCTION-NAME" + "DEBUG-FUNCTION-P" "DEBUG-FUNCTION-START-LOCATION" + "DEBUG-FUNCTION-SYMBOL-VARIABLES" "DEBUG-SOURCE" + "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM" + "DEBUG-SOURCE-NAME" "DEBUG-SOURCE-P" "DEBUG-SOURCE-ROOT-NUMBER" + "DEBUG-SOURCE-START-POSITIONS" "DEBUG-VARIABLE" + "DEBUG-VARIABLE-ID" "DEBUG-VARIABLE-INFO-AVAILABLE" + "DEBUG-VARIABLE-NAME" "DEBUG-VARIABLE-P" "DEBUG-VARIABLE-PACKAGE" + "DEBUG-VARIABLE-SYMBOL" "DEBUG-VARIABLE-VALID-VALUE" + "DEBUG-VARIABLE-VALIDITY" "DEBUG-VARIABLE-VALUE" + "DELETE-BREAKPOINT" "DELETE-BREAKPOINT-FOR-EDITOR" "DO-BLOCKS" + "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUNCTION-BLOCKS" + "DO-DEBUG-FUNCTION-VARIABLES" "EVAL-IN-FRAME" + "FORM-NUMBER-TRANSLATIONS" "FRAME" "FRAME-CATCHES" + "FRAME-CODE-LOCATION" "FRAME-DEBUG-FUNCTION" "FRAME-DOWN" + "FRAME-FUNCTION-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP" + "FUNCTION-DEBUG-FUNCTION" "FUNCTION-END-COOKIE-VALID-P" + "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE" + "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS" + "NO-DEBUG-FUNCTION-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL" + "RETURN-FROM-FRAME" "SET-BREAKPOINT-FOR-EDITOR" + "SET-LOCATION-BREAKPOINT-FOR-EDITOR" "SOURCE-PATH-CONTEXT" + "TOP-FRAME" "UNHANDLED-CONDITION" "UNKNOWN-CODE-LOCATION" + "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VARIABLE" + "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE")) (dolist (name '("%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT" @@ -1369,89 +1591,94 @@ "XREF-CONTEXT-NAME" "XREF-CONTEXT-FILE" "XREF-CONTEXT-SOURCE-PATH")) + (defpackage "WIRE" - (:export "*CURRENT-WIRE*" "CONNECT-TO-REMOTE-SERVER" - "CREATE-REQUEST-SERVER" "DESTROY-REQUEST-SERVER" - "FORGET-REMOTE-TRANSLATION" "MAKE-REMOTE-OBJECT" "MAKE-WIRE" - "REMOTE" "REMOTE-OBJECT" "REMOTE-OBJECT-EQ" - "REMOTE-OBJECT-LOCAL-P" "REMOTE-OBJECT-P" "REMOTE-OBJECT-VALUE" - "REMOTE-VALUE" "REMOTE-VALUE-BIND" "WIRE-EOF" "WIRE-ERROR" - "WIRE-FD" "WIRE-FORCE-OUTPUT" "WIRE-GET-BIGNUM" "WIRE-GET-BYTE" - "WIRE-GET-NUMBER" "WIRE-GET-OBJECT" "WIRE-GET-STRING" - "WIRE-IO-ERROR" "WIRE-LISTEN" "WIRE-OUTPUT-BIGNUM" - "WIRE-OUTPUT-BYTE" "WIRE-OUTPUT-FUNCALL" "WIRE-OUTPUT-NUMBER" - "WIRE-OUTPUT-OBJECT" "WIRE-OUTPUT-STRING" "WIRE-P")) + (:export "*CURRENT-WIRE*" "CONNECT-TO-REMOTE-SERVER" + "CREATE-REQUEST-SERVER" "DESTROY-REQUEST-SERVER" + "FORGET-REMOTE-TRANSLATION" "MAKE-REMOTE-OBJECT" "MAKE-WIRE" + "REMOTE" "REMOTE-OBJECT" "REMOTE-OBJECT-EQ" + "REMOTE-OBJECT-LOCAL-P" "REMOTE-OBJECT-P" "REMOTE-OBJECT-VALUE" + "REMOTE-VALUE" "REMOTE-VALUE-BIND" "WIRE-EOF" "WIRE-ERROR" + "WIRE-FD" "WIRE-FORCE-OUTPUT" "WIRE-GET-BIGNUM" "WIRE-GET-BYTE" + "WIRE-GET-NUMBER" "WIRE-GET-OBJECT" "WIRE-GET-STRING" + "WIRE-IO-ERROR" "WIRE-LISTEN" "WIRE-OUTPUT-BIGNUM" + "WIRE-OUTPUT-BYTE" "WIRE-OUTPUT-FUNCALL" "WIRE-OUTPUT-NUMBER" + "WIRE-OUTPUT-OBJECT" "WIRE-OUTPUT-STRING" "WIRE-P")) + (defpackage "PRETTY-PRINT" - (:nicknames "PP") - (:export "PRETTY-STREAM" "PRETTY-STREAM-P")) + (:nicknames "PP") + (:export "PRETTY-STREAM" "PRETTY-STREAM-P")) + (intern "LOAD-FOREIGN" "EXTENSIONS") (defpackage "SYSTEM" - (:nicknames "SYS") - (:import-from "EXTENSIONS" "LOAD-FOREIGN") - (:export "%ASSEMBLER-CODE-TYPE" "%BIND-ALIGNED-SAP" "%PRIMITIVE" - "%SP-BYTE-BLT" "%SP-FIND-CHARACTER" - "%SP-FIND-CHARACTER-WITH-ATTRIBUTE" - "%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE" "%STANDARD-CHAR-P" - "*BEEP-FUNCTION*" - "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*" - "*SOFTWARE-TYPE*" "*STDERR*" "*STDIN*" "*STDOUT*" "*TASK-DATA*" - "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*" - "*XWINDOW-TABLE*" - "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER" "ADD-PORT-OBJECT" - "ADD-XWINDOW-OBJECT" "ALLOCATE-SYSTEM-MEMORY" "BEEP" "BITS" - "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK=" "COMPILER-VERSION" - "CT-A-VAL" "CT-A-VAL-OFFSET" "CT-A-VAL-P" "CT-A-VAL-SAP" - "CT-A-VAL-SIZE" "CT-A-VAL-TYPE" "DEALLOCATE-SYSTEM-MEMORY" - "DEFAULT-INTERRUPT" "DEFENUMERATION" "DEFOPERATOR" "DEFRECORD" - "DEPORT-BOOLEAN" "DEPORT-INTEGER" "DOUBLE-FLOAT-RADIX" - "ENABLE-INTERRUPT" "ENUMERATION" "FD-STREAM" "FD-STREAM-FD" - "FD-STREAM-P" "FIND-IF-IN-CLOSURE" "FOREIGN-SYMBOL-ADDRESS" - "FOREIGN-SYMBOL-CODE-ADDRESS" "FOREIGN-SYMBOL-DATA-ADDRESS" - "GET-PAGE-SIZE" "GET-SYSTEM-INFO" - "IGNORE-INTERRUPT" - "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT" - "LISP-STREAM" "LONG-FLOAT-RADIX" "LONG-WORDS" - "MACRO" "MAKE-CT-A-VAL" "MAKE-FD-STREAM" - "MAKE-INDENTING-STREAM" "MAKE-OBJECT-SET" "MAP-PORT" "MAP-XWINDOW" - "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" "NULL-TERMINATED-STRING" - "OBJECT-SET-OPERATION" "OUTPUT-RAW-BYTES" "PARSE-BODY" - "PERQ-STRING" "POINTER" "POINTER<" "POINTER>" "PORT" "PRIMEP" - "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE" - "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER" - "REMOVE-PORT-OBJECT" "REMOVE-XWINDOW-OBJECT" - "RESOLVE-LOADED-ASSEMBLER-REFERENCES" "SAP+" "SAP-" "SAP-INT" - "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8" - "SAP-REF-DESCRIPTOR" - "SAP-REF-DOUBLE" "SAP-REF-LONG" "SAP-REF-SAP" "SAP-REF-SINGLE" - "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>=" - "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS" - "SERVE-EVENT" "SERVER" "SERVER-MESSAGE" "SHORT-FLOAT-RADIX" - "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32" - "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8" - "SINGLE-FLOAT-RADIX" "SYMBOL-MACRO-LET" "SYSTEM-AREA-POINTER" - "SYSTEM-AREA-POINTER-P" "VECTOR-SAP" - "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS" "WITH-FD-HANDLER" - "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING" - "WITHOUT-HEMLOCK" "WITHOUT-INTERRUPTS" "WORDS" - "OS-INIT" "ALLOCATE-SYSTEM-MEMORY-AT" - "ALTERNATE-GET-GLOBAL-ADDRESS")) + (:nicknames "SYS") + (:import-from "EXTENSIONS" "LOAD-FOREIGN") + (:export "%ASSEMBLER-CODE-TYPE" "%BIND-ALIGNED-SAP" "%PRIMITIVE" + "%SP-BYTE-BLT" "%SP-FIND-CHARACTER" + "%SP-FIND-CHARACTER-WITH-ATTRIBUTE" + "%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE" "%STANDARD-CHAR-P" + "*BEEP-FUNCTION*" + "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*" + "*SOFTWARE-TYPE*" "*STDERR*" "*STDIN*" "*STDOUT*" "*TASK-DATA*" + "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*" + "*XWINDOW-TABLE*" + "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER" "ADD-PORT-OBJECT" + "ADD-XWINDOW-OBJECT" "ALLOCATE-SYSTEM-MEMORY" "BEEP" "BITS" + "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK=" "COMPILER-VERSION" + "CT-A-VAL" "CT-A-VAL-OFFSET" "CT-A-VAL-P" "CT-A-VAL-SAP" + "CT-A-VAL-SIZE" "CT-A-VAL-TYPE" "DEALLOCATE-SYSTEM-MEMORY" + "DEFAULT-INTERRUPT" "DEFENUMERATION" "DEFOPERATOR" "DEFRECORD" + "DEPORT-BOOLEAN" "DEPORT-INTEGER" "DOUBLE-FLOAT-RADIX" + "ENABLE-INTERRUPT" "ENUMERATION" "FD-STREAM" "FD-STREAM-FD" + "FD-STREAM-P" "FIND-IF-IN-CLOSURE" "FOREIGN-SYMBOL-ADDRESS" + "FOREIGN-SYMBOL-CODE-ADDRESS" "FOREIGN-SYMBOL-DATA-ADDRESS" + "GET-PAGE-SIZE" "GET-SYSTEM-INFO" + "IGNORE-INTERRUPT" + "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT" + "LISP-STREAM" "LONG-FLOAT-RADIX" "LONG-WORDS" + "MACRO" "MAKE-CT-A-VAL" "MAKE-FD-STREAM" + "MAKE-INDENTING-STREAM" "MAKE-OBJECT-SET" "MAP-PORT" "MAP-XWINDOW" + "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" "NULL-TERMINATED-STRING" + "OBJECT-SET-OPERATION" "OUTPUT-RAW-BYTES" "PARSE-BODY" + "PERQ-STRING" "POINTER" "POINTER<" "POINTER>" "PORT" "PRIMEP" + "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE" + "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER" + "REMOVE-PORT-OBJECT" "REMOVE-XWINDOW-OBJECT" + "RESOLVE-LOADED-ASSEMBLER-REFERENCES" "SAP+" "SAP-" "SAP-INT" + "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8" + "SAP-REF-DESCRIPTOR" + "SAP-REF-DOUBLE" "SAP-REF-LONG" "SAP-REF-SAP" "SAP-REF-SINGLE" + "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>=" + "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS" + "SERVE-EVENT" "SERVER" "SERVER-MESSAGE" "SHORT-FLOAT-RADIX" + "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32" + "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8" + "SINGLE-FLOAT-RADIX" "SYMBOL-MACRO-LET" "SYSTEM-AREA-POINTER" + "SYSTEM-AREA-POINTER-P" "VECTOR-SAP" + "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS" "WITH-FD-HANDLER" + "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING" + "WITHOUT-HEMLOCK" "WITHOUT-INTERRUPTS" "WORDS" + "OS-INIT" "ALLOCATE-SYSTEM-MEMORY-AT" + "ALTERNATE-GET-GLOBAL-ADDRESS")) + (dolist (name '("*" "ARRAY" "BOOLEAN" "DOUBLE-FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT" "SINGLE-FLOAT" "UNION" "VALUES")) (intern name "LISP")) + (defpackage "ALIEN" - (:import-from "LISP" "*" "ARRAY" "DOUBLE-FLOAT" "FUNCTION" - "BOOLEAN" "INTEGER" "LONG-FLOAT" "SINGLE-FLOAT" "UNION" "VALUES") - (:import-from "VM" "CALLBACK-ACCESSOR-FORM" "MAKE-CALLBACK-TRAMPOLINE") - (:export "*" "ADDR" "ALIEN" "ALIEN-FUNCALL" "ALIEN-SAP" - "ALIEN-SIZE" "ARRAY" "BOOLEAN" "CAST" "DEF-ALIEN-ROUTINE" - "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE" "DEF-BUILTIN-ALIEN-TYPE" - "DEREF" "DOUBLE-FLOAT" "ENUM" "EXTERN-ALIEN" "FUNCTION" "INTEGER" - "LONG-FLOAT" "SAP-ALIEN" "SIGNED" "SINGLE-FLOAT" "SLOT" "STRUCT" - "UNION" "UNSIGNED" "VALUES" "WITH-ALIEN" "FREE-ALIEN" "NULL-ALIEN" - "MAKE-ALIEN" "LOAD-FOREIGN" "SYSTEM-AREA-POINTER" - "DEF-CALLBACK" "CALLBACK")) + (:import-from "LISP" "*" "ARRAY" "DOUBLE-FLOAT" "FUNCTION" + "BOOLEAN" "INTEGER" "LONG-FLOAT" "SINGLE-FLOAT" "UNION" "VALUES") + (:import-from "VM" "CALLBACK-ACCESSOR-FORM" "MAKE-CALLBACK-TRAMPOLINE") + (:export "*" "ADDR" "ALIEN" "ALIEN-FUNCALL" "ALIEN-SAP" + "ALIEN-SIZE" "ARRAY" "BOOLEAN" "CAST" "DEF-ALIEN-ROUTINE" + "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE" "DEF-BUILTIN-ALIEN-TYPE" + "DEREF" "DOUBLE-FLOAT" "ENUM" "EXTERN-ALIEN" "FUNCTION" "INTEGER" + "LONG-FLOAT" "SAP-ALIEN" "SIGNED" "SINGLE-FLOAT" "SLOT" "STRUCT" + "UNION" "UNSIGNED" "VALUES" "WITH-ALIEN" "FREE-ALIEN" "NULL-ALIEN" + "MAKE-ALIEN" "LOAD-FOREIGN" "SYSTEM-AREA-POINTER" + "DEF-CALLBACK" "CALLBACK")) (dolist (name @@ -1491,87 +1718,90 @@ "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")) (intern name "ALIEN")) + (defpackage "ALIEN-INTERNALS" - (:import-from "ALIEN" "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" - "%HEAP-ALIEN-ADDR" "%LOCAL-ALIEN-ADDR" - "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" "%SET-DEREF" - "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" "%SLOT-ADDR" - "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE" - "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" - "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" - "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P" - "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE" - "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE" - "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P" - "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE" - "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" - "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P" - "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P" - "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD" - "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET" - "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE" - "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS" - "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE" - "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE" - "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS" - "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE" - "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" - "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE" - "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA" - "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE" - "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS" - "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" - "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" - "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" - "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN" - "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P" - "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE" - "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE" - "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" - "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE") - (:export "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR" - "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" - "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" - "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE" - "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" - "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" - "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P" - "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE" - "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE" - "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P" - "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE" - "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" - "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P" - "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P" - "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD" - "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET" - "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE" - "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS" - "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE" - "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE" - "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS" - "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE" - "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" - "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE" - "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA" - "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE" - "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS" - "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" - "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" - "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" - "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN" - "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P" - "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE" - "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE" - "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" - "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")) + (:import-from "ALIEN" "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" + "%HEAP-ALIEN-ADDR" "%LOCAL-ALIEN-ADDR" + "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" "%SET-DEREF" + "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" "%SLOT-ADDR" + "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE" + "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" + "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" + "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P" + "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE" + "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE" + "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P" + "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE" + "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" + "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P" + "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P" + "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD" + "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET" + "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE" + "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS" + "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE" + "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE" + "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS" + "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE" + "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" + "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE" + "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA" + "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE" + "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS" + "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" + "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" + "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" + "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN" + "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P" + "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE" + "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE" + "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" + "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE") + (:export "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR" + "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" + "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" + "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE" + "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" + "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" + "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P" + "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE" + "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE" + "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P" + "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE" + "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" + "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P" + "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P" + "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD" + "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET" + "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE" + "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS" + "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE" + "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE" + "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS" + "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE" + "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" + "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE" + "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA" + "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE" + "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS" + "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" + "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" + "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" + "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN" + "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P" + "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE" + "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE" + "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" + "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")) + (defpackage "PROFILE" - (:export - "*DEFAULT-REPORT-TIME-PRINTFUNCTION*" "*INSERT-SPACEREPORTS*" - "*TIMED-FUNCTIONS*" "DELETE-SPACEREPORTS" "PRINT-SPACEREPORTS" - "PROFILE" "PROFILE-ALL" "REPORT-TIME" "REPORT-TIME-CUSTOM" - "RESET-SPACEREPORTS" "RESET-TIME" "UNPROFILE" "WITH-SPACEREPORT" - "*NO-CALLS-LIMIT*" "*NO-CALLS*")) + (:export + "*DEFAULT-REPORT-TIME-PRINTFUNCTION*" "*INSERT-SPACEREPORTS*" + "*TIMED-FUNCTIONS*" "DELETE-SPACEREPORTS" "PRINT-SPACEREPORTS" + "PROFILE" "PROFILE-ALL" "REPORT-TIME" "REPORT-TIME-CUSTOM" + "RESET-SPACEREPORTS" "RESET-TIME" "UNPROFILE" "WITH-SPACEREPORT" + "*NO-CALLS-LIMIT*" "*NO-CALLS*")) + (dolist (name '("ARRAY-RANK" "ARRAY-TOTAL-SIZE" "BOOLEAN" "CHAR-INT" "FLOAT-DIGITS" @@ -1920,7 +2150,6 @@ "PUSH-FWRAPPER" "DELETE-FWRAPPER" "LAST-FWRAPPER" - "DO-FWRAPPERS" - )) + "DO-FWRAPPERS")) diff --git a/code/float-trap.lisp b/code/float-trap.lisp index 948de6d80fb733bf6164f2c424c1338f5c740f59..53e501aad9ea35ff6ab5a5e68fb14655c843933e 100644 --- a/code/float-trap.lisp +++ b/code/float-trap.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.21 2003/04/14 21:03:25 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.22 2003/06/18 09:23:11 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -228,7 +228,7 @@ :operation fop :operands operands)) ((not (zerop (logand float-inexact-trap-bit traps))) - (error 'ext:floating-point-inexact + (error 'floating-point-inexact :operation fop :operands operands)) #+BSD diff --git a/code/hash-new.lisp b/code/hash-new.lisp index 12c2d3decb0d72bbb6febdbcb7a6bfc6d5c56a22..851cac32d03c2c1d2356be7d0762ee979d51534d 100644 --- a/code/hash-new.lisp +++ b/code/hash-new.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.24 2003/05/06 13:26:41 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.25 2003/06/18 09:23:11 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -15,7 +15,7 @@ ;;; Hash table functions rewritten by Douglas Crosher, 1997. ;;; Equalp hashing by William Newman, Cadabra Inc, and Douglas Crosher, 2000. ;;; -(in-package :common-lisp) +(in-package :lisp) (export '(hash-table hash-table-p make-hash-table gethash remhash maphash clrhash @@ -26,7 +26,7 @@ (in-package :ext) (export '(define-hash-table-test)) -(in-package :common-lisp) +(in-package :lisp) ;;;; The hash-table structures. diff --git a/code/hash.lisp b/code/hash.lisp index fac6843727b1488e40371f100790ee3ba725f28c..91542af0652976140f88dd099e5f5c553275c932 100644 --- a/code/hash.lisp +++ b/code/hash.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.42 2003/03/22 16:15:21 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.43 2003/06/18 09:23:11 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -14,7 +14,7 @@ ;;; Everything except SXHASH rewritten by William Lott. ;;; Equalp hashing by William Newman, Cadabra Inc, and Douglas Crosher, 2000. ;;; -(in-package :common-lisp) +(in-package :lisp) (export '(hash-table hash-table-p make-hash-table gethash remhash maphash clrhash @@ -25,7 +25,7 @@ (in-package :ext) (export '(define-hash-table-test)) -(in-package :common-lisp) +(in-package :lisp) ;;;; The hash-table structures. diff --git a/code/macros.lisp b/code/macros.lisp index 9760e7dd03e49b81c75d7b3aad0104c5c042e078..41bc27876ce3101ed7043f4ca022613703a03f8e 100644 --- a/code/macros.lisp +++ b/code/macros.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.93 2003/05/12 16:30:41 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.94 2003/06/18 09:23:11 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -75,7 +75,7 @@ ;;; definition is done by %defmacro which we expand into. ;;; (defmacro defmacro (name lambda-list &body body) - (when cl::*enable-package-locked-errors* + (when lisp::*enable-package-locked-errors* (multiple-value-bind (valid block-name) (ext:valid-function-name-p name) (declare (ignore valid)) @@ -83,7 +83,7 @@ (when package (when (ext:package-definition-lock package) (restart-case - (error 'cl::package-locked-error + (error 'lisp::package-locked-error :package package :format-control "defining macro ~A" :format-arguments (list name)) @@ -204,11 +204,11 @@ "Syntax like DEFMACRO, but defines a new type." (unless (symbolp name) (simple-program-error "~S -- Type name not a symbol." name)) - (and cl::*enable-package-locked-errors* + (and lisp::*enable-package-locked-errors* (symbol-package name) (ext:package-definition-lock (symbol-package name)) (restart-case - (error 'cl::package-locked-error + (error 'lisp::package-locked-error :package (symbol-package name) :format-control "defining type ~A" :format-arguments (list name)) diff --git a/code/ntrace.lisp b/code/ntrace.lisp index 8b163a4c607e8d80b9bd908f083815514b75e54b..490ba8e979c5d456bcb45b4c04a9e33cd15bc6d0 100644 --- a/code/ntrace.lisp +++ b/code/ntrace.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.26 2003/06/12 09:24:03 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.27 2003/06/18 09:23:11 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -38,7 +38,8 @@ "The default value for the :ENCAPSULATE option to trace.") (defvar *trace-encapsulate-package-names* - '("COMMON-LISP" + '("LISP" + "COMMON-LISP" "CONDITIONS" "DEBUG" "EXTENSIONS" diff --git a/code/package.lisp b/code/package.lisp index 4c6fbb85c000f4044ad3268c5778483376b5f08c..e1975e1b6bb5823bb3ad9d95be33b7f874b5b121 100644 --- a/code/package.lisp +++ b/code/package.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.69 2003/06/14 14:37:00 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.70 2003/06/18 09:23:10 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -142,7 +142,7 @@ (simple-condition-format-arguments condition))))) (defun package-locks-init () - (let ((package-names '("COMMON-LISP" "PCL" "CLOS-MOP" "EVAL" + (let ((package-names '("COMMON-LISP" "LISP" "PCL" "CLOS-MOP" "EVAL" "NEW-ASSEM" "DISASSEM" "LOOP" "ANSI-LOOP" "INSPECT" "C" "PROFILE" "WIRE" "BIGNUM" "VM" "FORMAT" "DFIXNUM" "PRETTY-PRINT" "C-CALL" "ALIEN" @@ -1691,15 +1691,14 @@ (external-symbol-count pkg)) (do-symbols (sym package) (multiple-value-bind (s w) - (find-external-symbol (symbol-name sym) pkg) + (find-external-symbol (symbol-name sym) pkg) (when (and w (not (eq s sym)) (not (member sym shadowing-symbols))) (push sym cset)))) (dolist (p use-list) (do-external-symbols (sym p) (multiple-value-bind (s w) - (find-external-symbol (symbol-name sym) - pkg) + (find-external-symbol (symbol-name sym) pkg) (when (and w (not (eq s sym)) (not (member (find-symbol (symbol-name sym) package) @@ -1708,7 +1707,7 @@ (t (do-external-symbols (sym pkg) (multiple-value-bind (s w) - (find-symbol (symbol-name sym) package) + (find-symbol (symbol-name sym) package) (when (and w (not (eq s sym)) (not (member s shadowing-symbols))) (push s cset)))))) @@ -1926,7 +1925,7 @@ (makunbound '*initial-symbols*) ; So it gets GC'ed. ;; Make some other packages that should be around in the cold load: - (make-package "COMMON-LISP-USER" :nicknames '("CL-USER" "USER")) + (make-package "COMMON-LISP-USER" :nicknames '("CL-USER")) ;; Now do the *deferred-use-packages*: (dolist (args *deferred-use-packages*) diff --git a/code/print.lisp b/code/print.lisp index de3b73d67cec039e19e4ae230d23f06210ae9a30..0c111e2ba34960477d86af888d6d1af5d540d570 100644 --- a/code/print.lisp +++ b/code/print.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.84 2003/01/06 22:27:16 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.85 2003/06/18 09:23:10 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -102,7 +102,7 @@ `(%with-standard-io-syntax #'(lambda () ,@body))) (defun %with-standard-io-syntax (function) - (let ((*package* (find-package "USER")) + (let ((*package* (find-package "CL-USER")) (*print-array* t) (*print-base* 10) (*print-case* :upcase) diff --git a/code/save.lisp b/code/save.lisp index 01b3b5db51197bb3cad9f81b009a1f2854c3b58a..460164def30ce63abab5e10b44bfd1f2a614646e 100644 --- a/code/save.lisp +++ b/code/save.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.50 2003/03/19 03:28:36 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.51 2003/06/18 09:23:10 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -318,7 +318,7 @@ ;;;; Random functions used by worldload. (defun assert-user-package () - (unless (eq *package* (find-package "USER")) + (unless (eq *package* (find-package "CL-USER")) (error "Change *PACKAGE* to the USER package and try again."))) ;;; MAYBE-BYTE-LOAD -- Interface diff --git a/code/stream.lisp b/code/stream.lisp index 773b9fe7f2b44b496b8fa4fdba718ab1c58533df..2db3d1ba18e06f5d708eb02eafc0f8921c8381e0 100644 --- a/code/stream.lisp +++ b/code/stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.62 2003/06/07 17:56:28 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.63 2003/06/18 09:23:10 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2551,7 +2551,7 @@ SEQ: a proper SEQUENCE (type index start) (type sequence-end end) (values index)) - (when (not (cl::lisp-stream-p stream)) + (when (not (lisp::lisp-stream-p stream)) (return-from read-sequence (stream-read-sequence seq stream start end))) (let ((end (or end (length seq)))) (declare (type index end)) @@ -2609,7 +2609,7 @@ SEQ: a proper SEQUENCE (type index start) (type sequence-end end) (values sequence)) - (when (not (cl::lisp-stream-p stream)) + (when (not (lisp::lisp-stream-p stream)) (return-from write-sequence (stream-write-sequence seq stream start end))) (let ((end (or end (length seq)))) (declare (type index start end)) diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp index 95a684dd93090cb3f09f81abd289b454945a7dfc..508bb8745280d8e3630e649c206ffc56c483efb8 100644 --- a/compiler/generic/objdef.lisp +++ b/compiler/generic/objdef.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.47 2002/09/04 11:21:02 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.48 2003/06/18 09:23:10 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -467,7 +467,7 @@ (flushable movable)) #+x86 -(defknown symbol-hash (symbol) cl::hash +(defknown symbol-hash (symbol) lisp::hash (flushable movable)) (define-primitive-object (symbol :lowtag other-pointer-type diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt index f3d10b550056a3530e209818040c04eb0994e08a..c66afe6664433097458f6643f04c61ae6d44d740 100644 --- a/general-info/release-19a.txt +++ b/general-info/release-19a.txt @@ -117,6 +117,9 @@ New in this release: - DEFCLASS redefining a class with the given name only if the name is the proper name of an existing class. - KEYWORD package no longer having nickname "". + - COMMON-LISP-USER package no longer having nickname USER. + - COMMON-LISP package no longer having nickname LISP; LISP + and COMMON-LISP are now separate packages. - SLOT-VALUE, (SETF SLOT-VALUE), SLOT-BOUNDP, SLOT-MAKUNBOUND returning values specified by the standard when SLOT-UNBOUND or SLOT-MISSING are called and return. diff --git a/hemlock/lispmode.lisp b/hemlock/lispmode.lisp index b6ad9c64240a600c680a1fd184afb3ac2283ab2e..3bf26b1cc255b332ceff06b81196fa346ce91a55 100644 --- a/hemlock/lispmode.lisp +++ b/hemlock/lispmode.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispmode.lisp,v 1.10 2001/03/13 15:49:55 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispmode.lisp,v 1.11 2003/06/18 09:23:09 gerd Rel $") ;;; ;;; ********************************************************************** ;;; @@ -1700,7 +1700,7 @@ (defhvar "Current Package" "The package used for evaluation of Lisp in this buffer." :buffer buffer - :value "USER"))) + :value "CL-USER"))) diff --git a/interface/initial.lisp b/interface/initial.lisp index c41a88d917c49dbfdbdf0156061daeb0b8811f00..1140c41a7b785e0d8cf6f53d39d787407a2942d1 100644 --- a/interface/initial.lisp +++ b/interface/initial.lisp @@ -5,11 +5,11 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/interface/initial.lisp,v 1.6 2001/12/12 20:21:13 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/interface/initial.lisp,v 1.7 2003/06/18 09:23:09 gerd Rel $") ;;; ;;; ********************************************************************** ;;; -(in-package "USER") +(in-package "CL-USER") (pushnew :motif *features*) diff --git a/motif/lisp/initial.lisp b/motif/lisp/initial.lisp index ff84767ded581d4a3e163de761b494cb577285f4..b0b941305bd94f9aa5d7d166cf53be619cf7db35 100644 --- a/motif/lisp/initial.lisp +++ b/motif/lisp/initial.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/initial.lisp,v 1.7 2001/12/11 00:51:47 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/initial.lisp,v 1.8 2003/06/18 09:23:09 gerd Rel $") ;;; ;;; ********************************************************************** ;;; @@ -14,7 +14,7 @@ ;;; This file is the initial startup code for the Motif Toolkit ;;; -(in-package "USER") +(in-package "CL-USER") diff --git a/pcl/braid.lisp b/pcl/braid.lisp index e4e3524d03f5d30461afb3fe5e4477b4c1a20755..dc95368468b112921faf15ebe3c6a607f8c4c1a3 100644 --- a/pcl/braid.lisp +++ b/pcl/braid.lisp @@ -25,7 +25,7 @@ ;;; ************************************************************************* (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.45 2003/06/11 19:17:25 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.46 2003/06/18 09:23:09 gerd Exp $") ;;; ;;; Bootstrapping the meta-braid. @@ -630,7 +630,7 @@ (setf (kernel::find-class name) kernel-class (kernel:%class-name kernel-class) name))))) -(defun common-lisp::sxhash-instance (instance) +(defun lisp::sxhash-instance (instance) (get-hash instance)) #-loadable-pcl diff --git a/pcl/defsys.lisp b/pcl/defsys.lisp index 7ff63a8d3133137eb140513e61a91a0b30173eb9..96a89fe9cebf460eb9f3145d7f63583e1c4b307d 100644 --- a/pcl/defsys.lisp +++ b/pcl/defsys.lisp @@ -25,7 +25,7 @@ ;;; ************************************************************************* (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.33 2003/06/07 17:56:28 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.34 2003/06/18 09:23:09 gerd Exp $") ;;; ;;; Some support stuff for compiling and loading PCL. It would be nice if ;;; there was some portable make-system we could all agree to share for a @@ -53,7 +53,7 @@ ;;; loaded into the same world it was compiled in. ;;; -(in-package :user) +(in-package :cl-user) (defpackage "WALKER" (:use :common-lisp :ext)) (defpackage "PCL" (:use :walker :common-lisp :ext)) @@ -66,7 +66,7 @@ ;;; (defvar *the-pcl-package* (find-package :pcl)) -(defvar *pcl-system-date* "$Date: 2003/06/07 17:56:28 $") +(defvar *pcl-system-date* "$Date: 2003/06/18 09:23:09 $") (setf (getf ext:*herald-items* :pcl) `(" CLOS based on Gerd's PCL " ,(subseq *pcl-system-date* 7 26))) diff --git a/pcl/env.lisp b/pcl/env.lisp index fb8219d7477d854e559f2edabc8914d36f35a489..9f9eb9259b16288625c5a2bbaed30296869993ad 100644 --- a/pcl/env.lisp +++ b/pcl/env.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.25 2003/06/13 08:53:09 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.26 2003/06/18 09:23:09 gerd Rel $") ;;; ;;; Basic environmental stuff. ;;; @@ -274,7 +274,7 @@ ;;;; MAKE-LOAD-FORM -(export '(cl::make-load-form cl::make-load-form-saving-slots) "CL") +(export '(lisp::make-load-form lisp::make-load-form-saving-slots) "CL") (defgeneric make-load-form (object &optional environment)) diff --git a/pcl/macros.lisp b/pcl/macros.lisp index 63d1479fef71575baf9223c7f147aec697b35143..3c0c547fac2cc0daf4edd5127cf82f3c2513bf3a 100644 --- a/pcl/macros.lisp +++ b/pcl/macros.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.28 2003/05/23 11:05:16 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.29 2003/06/18 09:23:09 gerd Rel $") ;;; ;;; Macros global variable definitions, and other random support stuff used ;;; by the rest of the system. @@ -75,7 +75,7 @@ '(class-predicate slot-accessor method fast-method effective-method)))) -(import '(cl::make-keyword)) +(import '(lisp::make-keyword)) (defmacro posq (item list) `(position ,item ,list :test #'eq)) diff --git a/pcl/simple-streams/classes.lisp b/pcl/simple-streams/classes.lisp index b12a19ca8649e21155ff4b99b4661c2ff1bc6d1c..32e4448d635824cac56f487134e331f183ff194c 100644 --- a/pcl/simple-streams/classes.lisp +++ b/pcl/simple-streams/classes.lisp @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/classes.lisp,v 1.2 2003/06/07 17:56:28 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/classes.lisp,v 1.3 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -57,12 +57,12 @@ ((%flags :initform 0 :type fixnum) (plist :initform nil :type list :accessor stream-plist) - (j-listen :initform #'cl::ill-in-any :type j-listen-fn) - (j-read-char :initform #'cl::ill-in-any :type j-read-char-fn) - (j-read-chars :initform #'cl::ill-in-any :type j-read-chars-fn) - (j-unread-char :initform #'cl::ill-in-any :type j-unread-char-fn) - (j-write-char :initform #'cl::ill-out-any :type j-write-char-fn) ;@@ - (j-write-chars :initform #'cl::ill-out-any :type j-write-chars-fn) ;@@ + (j-listen :initform #'lisp::ill-in-any :type j-listen-fn) + (j-read-char :initform #'lisp::ill-in-any :type j-read-char-fn) + (j-read-chars :initform #'lisp::ill-in-any :type j-read-chars-fn) + (j-unread-char :initform #'lisp::ill-in-any :type j-unread-char-fn) + (j-write-char :initform #'lisp::ill-out-any :type j-write-char-fn) ;@@ + (j-write-chars :initform #'lisp::ill-out-any :type j-write-chars-fn) ;@@ (external-format :initform :default) @@ -183,12 +183,12 @@ (call-next-method) (setf (sm input-handle stream) nil (sm output-handle stream) nil - (sm j-listen stream) #'cl::closed-flame - (sm j-read-char stream) #'cl::closed-flame - (sm j-read-chars stream) #'cl::closed-flame - (sm j-unread-char stream) #'cl::closed-flame - (sm j-write-char stream) #'cl::closed-flame ;@@ - (sm j-write-chars stream) #'cl::closed-flame) ;@@ + (sm j-listen stream) #'lisp::closed-flame + (sm j-read-char stream) #'lisp::closed-flame + (sm j-read-chars stream) #'lisp::closed-flame + (sm j-unread-char stream) #'lisp::closed-flame + (sm j-write-char stream) #'lisp::closed-flame ;@@ + (sm j-write-chars stream) #'lisp::closed-flame) ;@@ (remove-stream-instance-flags stream :input :output) (ext:cancel-finalization stream)))) diff --git a/pcl/simple-streams/file.lisp b/pcl/simple-streams/file.lisp index f7aa44868f0c1185a2ca2d4c4b28f5eb9b55d495..0ca77a3b4e6aaf68c83fb5973fb6231762dfd990 100644 --- a/pcl/simple-streams/file.lisp +++ b/pcl/simple-streams/file.lisp @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/file.lisp,v 1.2 2003/06/07 17:56:28 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/file.lisp,v 1.3 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -46,8 +46,8 @@ stream) (t (multiple-value-bind (fd namestring original delete-original) - (cl::fd-open filename direction if-exists if-exists-given - if-does-not-exist if-does-not-exist-given) + (lisp::fd-open filename direction if-exists if-exists-given + if-does-not-exist if-does-not-exist-given) (when fd (add-stream-instance-flags stream :simple) (setf (sm pathname stream) filename @@ -101,11 +101,11 @@ (cond (abort ;; Remove any fd-handler (when (any-stream-instance-flags stream :output) - (cl::revert-file (sm filename stream) (sm original stream)))) + (lisp::revert-file (sm filename stream) (sm original stream)))) (t (when (sm delete-original stream) - (cl::delete-original (sm filename stream) - (sm original stream))))) + (lisp::delete-original (sm filename stream) + (sm original stream))))) (unix:unix-close fd) ;; if buffer is a sap, put it back on cl::*available-buffers* (setf (sm buffer stream) nil))) diff --git a/pcl/simple-streams/impl.lisp b/pcl/simple-streams/impl.lisp index 4cb99d8312f37de58f18924cba4b099e39ff3ec9..646435f8f6ccd3a2473b28e7bde3756bb5bec19e 100644 --- a/pcl/simple-streams/impl.lisp +++ b/pcl/simple-streams/impl.lisp @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/impl.lisp,v 1.2 2003/06/07 17:56:28 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/impl.lisp,v 1.3 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -22,13 +22,13 @@ (%uninitialized stream)) ((and (eq kind :open) (not (any-stream-instance-flags stream :input :output))) - (cl::closed-flame stream)) + (lisp::closed-flame stream)) ((and (or (eq kind :input) (eq kind :io)) (not (any-stream-instance-flags stream :input))) - (cl::ill-in-any stream)) + (lisp::ill-in-any stream)) ((and (or (eq kind :output) (eq kind :io)) (not (any-stream-instance-flags stream :output))) - (cl::ill-out-any stream)))) + (lisp::ill-out-any stream)))) #+count-sm (progn @@ -162,7 +162,7 @@ (when done ;; If there's only one buffer in use, return it directly (when (null (cdr bufs)) - (return (values (cl::shrink-vector cbuf index) + (return (values (lisp::shrink-vector cbuf index) (eq done :eof)))) ;; If total fits in final buffer, use it #-(or) @@ -174,7 +174,7 @@ (declare (type simple-base-string buf)) (replace cbuf buf :start1 idx) (incf idx (length buf)))) - (return (values (cl::shrink-vector cbuf index) + (return (values (lisp::shrink-vector cbuf index) (eq done :eof)))) ;; Allocate new string of appropriate length (let ((string (make-string total)) @@ -229,7 +229,7 @@ eof-error-p stream t))) ((or (eq char stream) - (not (cl::whitespace-char-p char))) + (not (lisp::whitespace-char-p char))) (unless (eq char stream) (funcall-stm-handler j-unread-char encap t)) (if (eq char stream) eof-value char)))) @@ -282,7 +282,7 @@ (with-stream-class (simple-stream stream) (%check stream :input) (if (any-stream-instance-flags stream :eof) - (cl::eof-or-lose stream eof-error-p eof-value) + (lisp::eof-or-lose stream eof-error-p eof-value) (simple-stream-dispatch stream ;; single-channel-simple-stream (sc-read-byte stream eof-error-p eof-value t) diff --git a/pcl/simple-streams/internal.lisp b/pcl/simple-streams/internal.lisp index 5c9c5be1a7797f770a66d42c1b2f1a7c1b106e5b..f86e7721459adfa16a808db3f68b5b16b3c74ff8 100644 --- a/pcl/simple-streams/internal.lisp +++ b/pcl/simple-streams/internal.lisp @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/internal.lisp,v 1.2 2003/06/07 17:56:28 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/internal.lisp,v 1.3 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -43,13 +43,13 @@ (* length 8)))) (defun allocate-buffer (size) - (if (= size cl::bytes-per-buffer) - (cl::next-available-buffer) + (if (= size lisp::bytes-per-buffer) + (lisp::next-available-buffer) (make-array size :element-type '(unsigned-byte 8)))) (defun free-buffer (buffer) (when (sys:system-area-pointer-p buffer) - (push buffer cl::*available-buffers*)) + (push buffer lisp::*available-buffers*)) t) diff --git a/pcl/simple-streams/null.lisp b/pcl/simple-streams/null.lisp index d99d2b4309673cb1a8532968029c7bbd53280b61..da063e20add6366d50995596d1706730d9986a19 100644 --- a/pcl/simple-streams/null.lisp +++ b/pcl/simple-streams/null.lisp @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/null.lisp,v 1.1 2003/06/06 16:23:46 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/null.lisp,v 1.2 2003/06/18 09:23:08 gerd Rel $") ;;; ;;; ********************************************************************** ;;; @@ -21,7 +21,7 @@ (declaim (ftype j-read-char-fn null-read-char)) (defun null-read-char (stream eof-error-p eof-value blocking) (declare (ignore blocking)) - (cl::eof-or-lose stream eof-error-p eof-value)) + (lisp::eof-or-lose stream eof-error-p eof-value)) (declaim (ftype j-read-chars-fn null-read-chars)) (defun null-read-chars (stream string search start end blocking) diff --git a/pcl/simple-streams/strategy.lisp b/pcl/simple-streams/strategy.lisp index 48f3a3f85eaa57bda9b5463acc10db36d684737b..fdb3ef14fac155c1a1e07ca11197b5d2d05b510a 100644 --- a/pcl/simple-streams/strategy.lisp +++ b/pcl/simple-streams/strategy.lisp @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.3 2003/06/11 16:10:21 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.4 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -136,7 +136,7 @@ (setq char (funcall (the (or symbol function) (svref ctrl code)) stream char)))) (if (null char) - (cl::eof-or-lose stream eof-error-p eof-value) + (lisp::eof-or-lose stream eof-error-p eof-value) char)))) (declaim (ftype j-read-char-fn (sc read-char :iso8859-1 buffer))) @@ -158,7 +158,7 @@ (setq char (funcall (the (or symbol function) (svref ctrl code)) stream char)))) (if (null char) - (cl::eof-or-lose stream eof-error-p eof-value) + (lisp::eof-or-lose stream eof-error-p eof-value) char)))) (declaim (ftype j-read-chars-fn (sc read-chars :iso8859-1))) @@ -317,7 +317,7 @@ (setf (sm buffer-ptr stream) bytes ptr 0) (return-from sc-read-byte - (cl::eof-or-lose stream eof-error-p eof-value))))) + (lisp::eof-or-lose stream eof-error-p eof-value))))) (setf (sm buffpos stream) (1+ ptr)) (setf (sm last-char-read-size stream) 0) (bref (sm buffer stream) ptr)))) @@ -362,7 +362,7 @@ (setq char (funcall (the (or symbol function) (svref ctrl code)) stream char)))) (if (null char) - (cl::eof-or-lose stream eof-error-p eof-value) + (lisp::eof-or-lose stream eof-error-p eof-value) char)))) (declaim (ftype j-read-chars-fn (dc read-chars :iso8859-1))) @@ -476,7 +476,7 @@ (setf (sm buffer-ptr stream) bytes ptr 0) (return-from dc-read-byte - (cl::eof-or-lose stream eof-error-p eof-value))))) + (lisp::eof-or-lose stream eof-error-p eof-value))))) (setf (sm buffpos stream) (1+ ptr)) (setf (sm last-char-read-size stream) 0) (bref (sm buffer stream) ptr)))) @@ -490,13 +490,13 @@ #|(optimize (speed 3) (space 2) (safety 0) (debug 0))|#) (with-stream-class (string-input-simple-stream stream) (when (any-stream-instance-flags stream :eof) - (cl::eof-or-lose stream eof-error-p eof-value)) + (lisp::eof-or-lose stream eof-error-p eof-value)) (let* ((ptr (sm buffpos stream)) (char (if (< ptr (sm buffer-ptr stream)) (schar (sm buffer stream) ptr) nil))) (if (null char) - (cl::eof-or-lose stream eof-error-p eof-value) + (lisp::eof-or-lose stream eof-error-p eof-value) (progn (setf (sm last-char-read-size stream) 1) ;; do string-streams do control-in processing? diff --git a/tools/clmcom.lisp b/tools/clmcom.lisp index 7f5906d914b7c113650e8bf3710dc866ff5e99d5..1044ca4532f5a958fd446105c0a00b7aea3fe24c 100644 --- a/tools/clmcom.lisp +++ b/tools/clmcom.lisp @@ -7,14 +7,14 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.19 1997/11/04 16:29:36 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.20 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; ;;; File for compiling the Motif toolkit and related interface ;;; stuff. ;;; -(in-package "USER") +(in-package "CL-USER") ;;; If CLX and PCL have not been loaded, then load them. diff --git a/tools/clxcom.lisp b/tools/clxcom.lisp index 2e396db6247ce9060af0c7ec8d4b91d45bad0559..19eea60579b897a49afd4fd61d562380f3426956 100644 --- a/tools/clxcom.lisp +++ b/tools/clxcom.lisp @@ -3,11 +3,11 @@ ;;; ********************************************************************** ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clxcom.lisp,v 1.26 1999/01/09 11:05:20 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clxcom.lisp,v 1.27 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; -(in-package "USER") +(in-package "CL-USER") #+bootstrap (unless (find-package "OLD-XLIB") diff --git a/tools/comcom.lisp b/tools/comcom.lisp index b7d44b4e9af3d68e260c6a96725643870d1b3b96..11b32b9d142be4680342013e23470fa8903f0c14 100644 --- a/tools/comcom.lisp +++ b/tools/comcom.lisp @@ -3,13 +3,13 @@ ;;; ********************************************************************** ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/comcom.lisp,v 1.54 2003/02/05 19:32:21 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/comcom.lisp,v 1.55 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; ;;; Loading this file causes the CMUCL compiler to be compiled. ;;; -(in-package "USER") +(in-package "CL-USER") #+bootstrap (copy-packages (cons (c::backend-name c::*target-backend*) '("NEW-ASSEM" "C"))) diff --git a/tools/config.lisp b/tools/config.lisp index fa71bb6393072ffb5bd8330f30b5dae7b3dbb4ce..50a970e2d1cb849895e24f6af982be3b79950184 100644 --- a/tools/config.lisp +++ b/tools/config.lisp @@ -7,13 +7,13 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.5 2000/06/06 10:01:24 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.6 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; ;;; Utility to load subsystems and save a new core. ;;; -(in-package "USER") +(in-package "CL-USER") (block abort diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp index 1e543fbe71527e9c0e2f99fc30f4841571f470f4..469b8f3f4dec4f8910e3d9d7495cec9bfe5d5d39 100644 --- a/tools/hemcom.lisp +++ b/tools/hemcom.lisp @@ -3,7 +3,7 @@ ;;; ********************************************************************** ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/hemcom.lisp,v 1.10 2003/02/25 15:21:43 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/hemcom.lisp,v 1.11 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -37,7 +37,7 @@ (export 'c::compile-from-stream (find-package "C")) -(in-package "USER") +(in-package "CL-USER") (defvar *byte-compile* #+small t #-small :maybe) diff --git a/tools/mk-lisp b/tools/mk-lisp index 3a21ca64f000a801b942a1cce7107865d6047f92..13949993a3b0e366f4fef088ec137d5502e0f29e 100755 --- a/tools/mk-lisp +++ b/tools/mk-lisp @@ -2,7 +2,7 @@ # # mk-lisp -- script for building full lisp cores. # -# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/mk-lisp,v 1.17 1997/02/05 18:13:01 pw Exp $ +# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/mk-lisp,v 1.18 2003/06/18 09:23:08 gerd Exp $ # ignore historical option if ($#argv) then @@ -54,7 +54,7 @@ echo "Features: $features" $dest/lisp/lisp -core $core << EOF (setf *features* (list* $features *features*)) (setf (search-list "target:") '("$dest/" "$src/")) -(in-package "USER") +(in-package "CL-USER") (load (open "target:tools/worldload.lisp")) $version (quit) diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp index b041e8ed4057bce9a4e2d713f0795c41e3a3f7d7..8b39bf4ae76629e31151885234c81259506af8f7 100644 --- a/tools/pclcom.lisp +++ b/tools/pclcom.lisp @@ -3,11 +3,11 @@ ;;; ********************************************************************** ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.29 2003/06/07 17:56:28 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.30 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; -(in-package "USER") +(in-package "CL-USER") (when (find-package "PCL") ;; Load the lisp:documentation functions. diff --git a/tools/setup.lisp b/tools/setup.lisp index 608add3ae1941830f2deac8202d7a94d6002fad9..54d38cfad37266ac93f835c8716d58362636ab92 100644 --- a/tools/setup.lisp +++ b/tools/setup.lisp @@ -3,7 +3,7 @@ ;;; ********************************************************************** ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/setup.lisp,v 1.35 2003/06/11 13:03:25 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/setup.lisp,v 1.36 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -29,7 +29,7 @@ Be sure to re-compile the startup code." (genesis-c-header-file-name c))))) -(in-package "USER") +(in-package "CL-USER") ;; these forward declarations are only intended to avoid compiler @@ -77,9 +77,9 @@ stream::%write-string debug::all-method-functions-in-package profile::reinitialize-method-function - cl::make-instance - cl::class-of - cl::sxhash-instance + lisp::make-instance + lisp::class-of + lisp::sxhash-instance hemlock::ts-stream-p hemlock::ts-stream-wire ext::call-display-event-handler diff --git a/tools/snapshot-update.lisp b/tools/snapshot-update.lisp index 7619ee6bfd5d3b9f8d336708f60bf669c8159ee0..292600302380d3b41c1fb8600a8f0355963198d3 100644 --- a/tools/snapshot-update.lisp +++ b/tools/snapshot-update.lisp @@ -7,14 +7,14 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/snapshot-update.lisp,v 1.2 1992/02/24 14:23:25 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/snapshot-update.lisp,v 1.3 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; ;;; A hack to generate a log of the changes since a particular snapshot. We ;;; generate a shell script and run it to avoid many calls to run-program. ;;; -(in-package "USER") +(in-package "CL-USER") (defun snapshot-updates (&key (snapshot-file "RCSSNAP") (output diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp index 42c3d185e5622c20de46f810394d352faab1d345..786006a28731e8720c8b0023b94decca050f50eb 100644 --- a/tools/worldcom.lisp +++ b/tools/worldcom.lisp @@ -7,14 +7,14 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.87 2003/05/23 13:34:04 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.88 2003/06/18 09:23:08 gerd Exp $") ;;; ;;; ********************************************************************** ;;; ;;; This file contains noise to compile the lisp world. ;;; -(in-package "USER") +(in-package "CL-USER") (defvar *byte-compile* #+small t #-small :maybe) (defvar *original-%deftype* #'lisp::%deftype) diff --git a/tools/worldload.lisp b/tools/worldload.lisp index fb8d4e3a3f9353c1f964d255a5be98fc5bdbca84..33636da151b3e947b4c116051919ff064717d4d0 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -6,7 +6,7 @@ ;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.100 2003/05/23 13:34:04 gerd Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.101 2003/06/18 09:23:08 gerd Exp $ ;;; ;;; ********************************************************************** ;;; @@ -28,7 +28,7 @@ ;;; into the dynamic space during worldload; overrides the above when ;;; enabled. Enable by default for GENCGC. May also be safe with CGC ;;; but untested. -;(setf cl::*enable-dynamic-space-code* t) +;(setf lisp::*enable-dynamic-space-code* t) ;;; Get some data on this core. @@ -226,7 +226,7 @@ ;;; (progn ;; We want to be in the USER package when the command line switches run. - (in-package "USER") + (in-package "CL-USER") ;; Clean random top-level specials. (setq - nil) (setq + nil) @@ -254,7 +254,7 @@ ;;; GENCGC can move native code so all code can be loaded into the ;;; dynamic space; overrides the above when enabled. - #+gencgc (setf cl::*enable-dynamic-space-code* t) + #+gencgc (setf lisp::*enable-dynamic-space-code* t) ;;; Reset the counter of the number of native code fixups. #+x86 (setf x86::*num-fixups* 0)