Commit 3cc64006 authored by wlott's avatar wlott
Browse files

Flushed the MACH package, 'cause it's os dependent.

parent 588c05ec
......@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.71 1992/02/14 23:44:37 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.72 1992/02/15 16:03:15 wlott Exp $")
;;;
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.71 1992/02/14 23:44:37 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.72 1992/02/15 16:03:15 wlott Exp $
;;;
;;; All the stuff necessary to export various symbols from various packages.
;;;
......@@ -38,9 +38,6 @@
(if (find-package "WALKER")
(rename-package "WALKER" "WALKER" 'nil)
(make-package "WALKER" :nicknames 'nil :use nil))
(if (find-package "MACH")
(rename-package "MACH" "MACH" 'nil)
(make-package "MACH" :nicknames 'nil :use nil))
(if (find-package "UNIX")
(rename-package "UNIX" "UNIX" 'nil)
(make-package "UNIX" :nicknames 'nil :use nil))
......@@ -127,7 +124,6 @@
(use-package '("KERNEL" "EXTENSIONS" "LISP") "INSPECT")
(use-package '("LISP" "KERNEL") "BIGNUM")
(use-package '("LISP") "WALKER")
(use-package '("C-CALL" "SYSTEM" "LISP" "EXTENSIONS" "MACH" "KERNEL") "MACH")
(use-package '("LISP") "UNIX")
(use-package '("WALKER" "ITERATE" "LISP") "PCL")
(use-package '("KERNEL" "LISP" "EXTENSIONS") "FORMAT")
......@@ -143,7 +139,7 @@
(use-package '("EXTENSIONS" "LISP") "CONDITIONS")
(use-package '("LISP") "DISASSEM")
(use-package '("EXTENSIONS" "LISP" "SYSTEM") "DEBUG")
(use-package '("C-CALL" "ALIEN" "LISP" "SYSTEM" "MACH") "EXTENSIONS")
(use-package '("C-CALL" "ALIEN" "LISP" "SYSTEM") "EXTENSIONS")
(use-package '("LISP") "LOOP")
(use-package '("LISP" "SYSTEM" "EXTENSIONS") "HEMLOCK-INTERNALS")
(use-package '("LISP" "SYSTEM" "EXTENSIONS" "KERNEL") "DEBUG-INTERNALS")
......@@ -404,109 +400,6 @@
"NESTED-WALK-FORM" "VARIABLE-DECLARATION"
"VARIABLE-GLOBALLY-SPECIAL-P" "VARIABLE-LEXICAL-P"
"VARIABLE-SPECIAL-P" "WALK-FORM"))
(dolist
(name
'("*INTERRUPT-PENDING*" "*INTERRUPTS-ENABLED*" "DO-PENDING-INTERRUPT"))
(intern name "UNIX"))
(defpackage "MACH"
(:import-from "UNIX" "*INTERRUPT-PENDING*" "*INTERRUPTS-ENABLED*"
"DO-PENDING-INTERRUPT")
(:export "*SIGCONTEXT" "AF-INET" "AF-UNIX" "BADMSGID" "BADREPLY"
"CHECK" "CLOSE-DIR" "CMU-GETAID" "DIRECT" "E2BIG" "EACCES"
"EADDRINUSE" "EADDRNOTAVAIL" "EAFNOSUPPORT" "EAGAIN" "EALREADY"
"EBADF" "EBUSY" "ECHILD" "ECONNABORTED" "ECONNREFUSED"
"ECONNRESET" "EDEADLK" "EDESTADDRREQ" "EDOM" "EDQUOT" "EEXIST"
"EFAULT" "EFBIG" "EHOSTDOWN" "EHOSTUNREACH" "EINPROGRESS" "EINTR"
"EINVAL" "EIO" "EISCONN" "EISDIR" "ELOCAL" "ELOOP" "EMFILE"
"EMLINK" "EMSGSIZE" "ENAMETOOLONG" "ENETDOWN" "ENETRESET"
"ENETUNREACH" "ENFILE" "ENOBUFS" "ENODEV" "ENOENT" "ENOEXEC"
"ENOMEM" "ENOPROTOOPT" "ENOSPC" "ENOTBLK" "ENOTCONN" "ENOTDIR"
"ENOTEMPTY" "ENOTSOCK" "ENOTTY" "ENXIO" "EOPNOTSUPP" "EPERM"
"EPFNOSUPPORT" "EPIPE" "EPROCLIM" "EPROTONOSUPPORT" "EPROTOTYPE"
"ERANGE" "EREMOTE" "ERESTART" "EROFS" "ESHUTDOWN"
"ESOCKTNOSUPPORT" "ESPIPE" "ESRCH" "ESUCCESS" "ETIMEDOUT"
"ETOOMANYREFS" "ETXTBSY" "EUSERS" "EVICEERR" "EVICEOP"
"EWOULDBLOCK" "EXDEV" "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD"
"F-GETFD" "F-GETFL" "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN"
"FAPPEND" "FASYNC" "FCREAT" "FDARRAY" "FEXCL" "FILDES" "FIONREAD"
"FNDELAY" "FTRUNC" "F_OK" "GET-UNIX-ERROR-MSG"
"INDIRECT-*SIGCONTEXT" "INT-ARRAY" "INT-ARRAY-REF" "ITIMER-PROF"
"ITIMER-REAL" "ITIMER-VIRTUAL" "KBDARG" "KBDARG-END"
"KBDARG-INDEX" "KBDARG-SCAN" "KBDARG-TEXT" "KBDCGET" "KBDCRESET"
"KBDCRST" "KBDCSET" "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET"
"KERN-FAILURE" "KERN-INVALID-ADDRESS" "KERN-INVALID-ARGUMENT"
"KERN-NO-ACCESS" "KERN-NO-SPACE" "KERN-NOT-RECEIVER"
"KERN-PROTECTION-FAILURE" "KERN-RESOURCE-SHORTAGE" "KERN-SUCCESS"
"LOCK-EX" "LOCK-NB" "LOCK-SH" "LOCK-UN" "LTCHARS" "L_INCR" "L_SET"
"L_XTND" "MACH" "MACH-TASK_DATA" "MACH-TASK_NOTIFY"
"MACH-TASK_SELF" "MSG" "MSG-DONTROUTE" "MSG-ID" "MSG-LOCALPORT"
"MSG-MSGSIZE" "MSG-MSGTYPE" "MSG-OOB" "MSG-OPTION-NONE" "MSG-PEEK"
"MSG-RECEIVE" "MSG-REMOTEPORT" "MSG-SEND" "MSG-SIMPLEMSG"
"NOREPLY" "NOTIFY-LAST" "NOTIFY-MSG-ACCEPTED"
"NOTIFY-OWNERSHIP-RIGHTS" "NOTIFY-PORT-DELETED"
"NOTIFY-RECEIVE-RIGHTS" "NULLPORT" "OPEN-DIR" "O_APPEND" "O_CREAT"
"O_EXCL" "O_RDONLY" "O_RDWR" "O_TRUNC" "O_WRONLY" "PORT-ENABLED"
"PRIO-MAX" "PRIO-MIN" "PRIO-PGRP" "PRIO-PROCESS" "PRIO-USER"
"RCV-INTERRUPTED" "RCV-INVALID-MEMORY" "RCV-INVALID-PORT"
"RCV-NO-SENDERS" "RCV-NOT-ENOUGH-MEMORY" "RCV-ONLY-SENDER"
"RCV-SUCCESS" "RCV-TIMED-OUT" "RCV-TIMEOUT" "RCV-TOO-LARGE"
"READ-DIR" "READGRP" "READOTH" "READOWN" "RFS-AUTHENTICATE"
"RFSIOCGETRW" "RFSIOCGETS" "RFSIOCIDENTIFY" "RFSIOCSETRW"
"RFSIOCSETS" "RFSRW_ACCOUNT" "RFSRW_GROUP" "RFSRW_LOOKUP"
"RFSRW_NONE" "RFSRW_PASSWORD" "RFSRW_T" "RFSRW_USER" "RLIMIT-CORE"
"RLIMIT-CPU" "RLIMIT-DATA" "RLIMIT-FSIZE" "RLIMIT-INFINITY"
"RLIMIT-NLIMITS" "RLIMIT-RSS" "RLIMIT-STACK" "RPC-SUCCESS"
"RUSAGE" "RUSAGE_CHILDREN" "RUSAGE_SELF" "R_OK" "SAVETEXT"
"SEND-INTERRUPTED" "SEND-INVALID-MEMORY" "SEND-INVALID-PORT"
"SEND-KERNEL-REFUSED" "SEND-MSG-TOO-LARGE" "SEND-MSG-TOO-SMALL"
"SEND-NOTIFY" "SEND-SUCCESS" "SEND-TIMED-OUT" "SEND-TIMEOUT"
"SEND-WILL-NOTIFY-SEND-NOTIFY-IN-PROGRESS" "SET-UTARRAY"
"SETGIDEXEC" "SETUIDEXEC" "SGTTY" "SGTTY-ERASE" "SGTTY-FLAGS"
"SGTTY-ISPEED" "SGTTY-KILL" "SGTTY-OSPEED" "SIGALRM" "SIGBUS"
"SIGCHLD" "SIGCONT" "SIGCONTEXT" "SIGCONTEXT-BADPADDR"
"SIGCONTEXT-BADVADDR" "SIGCONTEXT-CAUSE" "SIGCONTEXT-FPC_CSR"
"SIGCONTEXT-FPC_EIR" "SIGCONTEXT-FPREGS" "SIGCONTEXT-MASK"
"SIGCONTEXT-MDHI" "SIGCONTEXT-MDLO" "SIGCONTEXT-ONSTACK"
"SIGCONTEXT-OWNEDFP" "SIGCONTEXT-PC" "SIGCONTEXT-REGS" "SIGEMSG"
"SIGEMT" "SIGFPE" "SIGHUP" "SIGILL" "SIGINT" "SIGIO" "SIGIOT"
"SIGKILL" "SIGMASK" "SIGMSG" "SIGPIPE" "SIGPROF" "SIGQUIT"
"SIGSEGV" "SIGSTOP" "SIGSYS" "SIGTERM" "SIGTRAP" "SIGTSTP"
"SIGTTIN" "SIGTTOU" "SIGURG" "SIGUSR1" "SIGUSR2" "SIGVTALRM"
"SIGWINCH" "SIGXCPU" "SIGXFSZ" "SIG_DFL" "SIG_IGN" "SOCK-DGRAM"
"SOCK-RAW" "SOCK-STREAM" "STAT" "TCHARS" "TERMINAL-SPEEDS"
"TIMEVAL" "TIMEZONE" "TIOCFLUSH" "TIOCGETC" "TIOCGETP" "TIOCGLTC"
"TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" "TIOCSETC" "TIOCSETP"
"TIOCSLTC" "TIOCSPGRP" "TIOCSWINSZ" "TTY-CBREAK" "TTY-CRMOD"
"TTY-ECHO" "TTY-LCASE" "TTY-RAW" "TTY-TANDEM" "TYPETYPE"
"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-FILE-KIND" "UNIX-FLOCK" "UNIX-FORK" "UNIX-FSTAT"
"UNIX-FSYNC" "UNIX-FTRUNCATE" "UNIX-GETDTABLESIZE" "UNIX-GETEGID"
"UNIX-GETGID" "UNIX-GETGROUPS" "UNIX-GETHOSTID" "UNIX-GETHOSTNAME"
"UNIX-GETITIMER" "UNIX-GETPAGESIZE" "UNIX-GETPGRP" "UNIX-GETPID"
"UNIX-GETPPID" "UNIX-GETPRIORITY" "UNIX-GETRLIMIT"
"UNIX-GETRUSAGE" "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-IOCTL"
"UNIX-ISATTY" "UNIX-ISCONSOLE" "UNIX-KILL" "UNIX-KILLPG"
"UNIX-LINK" "UNIX-LISTEN" "UNIX-LSEEK" "UNIX-LSTAT"
"UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY" "UNIX-MKDIR" "UNIX-OPEN"
"UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-RECV"
"UNIX-RECVFROM" "UNIX-RENAME" "UNIX-RESOLVE-LINKS" "UNIX-RMDIR"
"UNIX-SELECT" "UNIX-SEND" "UNIX-SENDTO" "UNIX-SETGROUPS"
"UNIX-SETHOSTID" "UNIX-SETHOSTNAME" "UNIX-SETITIMER"
"UNIX-SETPGRP" "UNIX-SETPRIORITY" "UNIX-SETQUOTA" "UNIX-SETREGID"
"UNIX-SETREUID" "UNIX-SETRLIMIT" "UNIX-SETTIMEOFDAY"
"UNIX-SIGBLOCK" "UNIX-SIGNAL-DESCRIPTION" "UNIX-SIGNAL-NAME"
"UNIX-SIGNAL-NUMBER" "UNIX-SIGPAUSE" "UNIX-SIGSETMASK"
"UNIX-SIMPLIFY-PATHNAME" "UNIX-SOCKET" "UNIX-STAT" "UNIX-SYMLINK"
"UNIX-SYNC" "UNIX-TRUNCATE" "UNIX-TTYNAME" "UNIX-UNLINK"
"UNIX-UTIMES" "UNIX-WAIT" "UNIX-WRITE" "UNSPECEXCEPTION"
"VM_ALLOCATE" "VM_COPY" "VM_DEALLOCATE" "VM_STATISTICS" "WINSIZE"
"WINSIZE-WS_COL" "WINSIZE-WS_ROW" "WINSIZE-WS_XPIXEL"
"WINSIZE-WS_YPIXEL" "WITH-TRAP-ARG-BLOCK" "WNOHANG" "WRITEGRP"
"WRITEOTH" "WRITEOWN" "WRONGARGS" "WSTOPPED" "WUNTRACED" "W_OK"
"X_OK"))
(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"
......@@ -1411,7 +1304,7 @@
"%SP-BYTE-BLT" "%SP-FIND-CHARACTER"
"%SP-FIND-CHARACTER-WITH-ATTRIBUTE"
"%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE" "%STANDARD-CHAR-P"
"%STRING-CHAR-P" "*BEEP-FUNCTION*" "*GR-MESSAGES*"
"%STRING-CHAR-P" "*BEEP-FUNCTION*"
"*IN-THE-COMPILER*" "*LONG-SITE-NAME*"
"*MAXIMUM-INTERPRETER-ERROR-CHECKING*" "*NAMESERVERPORT*"
"*PORNOGRAPHY-OF-DEATH*" "*PORT-OWNERSHIP-RIGHTS-HANDLERS*"
......@@ -1429,7 +1322,7 @@
"ENABLE-INTERRUPT" "ENUMERATION" "FD-STREAM" "FD-STREAM-FD"
"FD-STREAM-P" "FEXPR" "FIND-IF-IN-CLOSURE"
"FOREIGN-SYMBOL-ADDRESS" "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
"GR-BIND" "GR-CALL" "GR-CALL*" "GR-ERROR" "IGNORE-INTERRUPT"
"IGNORE-INTERRUPT"
"INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT" "LONG-FLOAT-RADIX"
"LONG-WORDS" "MACRO" "MAKE-CT-A-VAL" "MAKE-FD-STREAM"
"MAKE-INDENTING-STREAM" "MAKE-OBJECT-SET" "MAP-PORT" "MAP-XWINDOW"
......@@ -1571,12 +1464,14 @@
"PATHNAME-TYPE" "PATHNAME-VERSION"))
(intern name "LISP"))
(intern "BOOLEAN" "ALIEN")
(intern "VOID" "C-CALL")
(defpackage "KERNEL"
(:import-from "LISP" "ARRAY-RANK" "ARRAY-TOTAL-SIZE" "CHAR-INT"
"FLOAT-DIGITS" "FLOAT-RADIX" "PATHNAME-DEVICE"
"PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-NAME"
"PATHNAME-TYPE" "PATHNAME-VERSION")
(:import-from "ALIEN" "BOOLEAN")
(:import-from "C-CALL" "VOID")
(:export "%ACOS" "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS"
"%ARRAY-DATA-VECTOR" "%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
"%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
......@@ -1713,5 +1608,5 @@
"VALUES-TYPE-INTERSECTION" "VALUES-TYPE-KEYP"
"VALUES-TYPE-KEYWORDS" "VALUES-TYPE-OPTIONAL" "VALUES-TYPE-P"
"VALUES-TYPE-REQUIRED" "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
"VALUES-TYPES" "VALUES-TYPES-INTERSECT"
"VALUES-TYPES" "VALUES-TYPES-INTERSECT" "VOID"
"WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment