From d4307665635ecdfd62c61cc375ad6fdaeb2819f7 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 7 Oct 1994 20:27:08 +0000
Subject: [PATCH] add some more exports.

---
 code/exports.lisp | 30 ++++++++++++++++++++++++------
 1 file changed, 24 insertions(+), 6 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 1c4615a73..870ad7b53 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.102 1994/10/04 12:23:34 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.103 1994/10/07 20:27:08 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -245,7 +245,13 @@
              "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"))
+             "ELOCAL" "UNIX-SIGSETMASK" "EREMOTE" "ESOCKTNOSUPPORT"
+	     "VTIME" "TTY-ICANON" "TTY-ICRNL" "VSUSP" "C-IFLAG"
+	     "UNIX-TCGETATTR" "C-LFLAG" "VDSUSP" "C-OFLAG" "VSTOP"
+	     "C-CFLAG" "TTY-OCRNL" "VMIN" "VEOF" "TCSAFLUSH"
+	     "TTY-IXON" "C-CC" "SIOCSPGRP" "TERMIOS" "VQUIT"
+	     "UNIX-TCSETATTR" "VINTR" "VSTART"))
+  
 (defpackage "FORMAT")
 (defpackage "COMMON-LISP"
 	    (:nicknames "CL" "LISP")
@@ -534,7 +540,10 @@
              "GET-SETF-EXPANSION" "STYLE-WARNING" "SPECIAL-OPERATOR-P"
              "COMPILER-MACRO" "PRINT-NOT-READABLE-OBJECT"
              "DEFINE-SETF-EXPANDER" "PRINT-NOT-READABLE" "METHOD"
-	     "METHOD-COMBINATION" "DYNAMIC-EXTENT"))
+	     "METHOD-COMBINATION" "DYNAMIC-EXTENT"
+
+	     "MAP-INTO" "MAKE-LOAD-FORM"
+	     "MAKE-LOAD-FORM-SAVING-SLOTS" "COMPILE-FILE-PATHNAME"))
 
 (defpackage "EVAL"
             (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*"
@@ -712,7 +721,8 @@
 	   "LIST-ALLOCATED-OBJECTS"
 	   "FUNCALLABLE-INSTANCE-LAYOUT-SLOT"
 	   "FUNCALLABLE-INSTANCE-LEXENV-SLOT"
-	   ))
+	   "FP-DOUBLE-ZERO-SC-NUMBER" "FP-SINGLE-ZERO-SC-NUMBER"
+	   "SINGLE-STEP-BREAKPOINT-TRAP"))
 
 (defpackage "CONDITIONS")
 (intern "DISASSEMBLE" "LISP")
@@ -917,7 +927,8 @@
                           "*EFFICIENCY-NOTE-COST-THRESHOLD*"
                           "*USE-IMPLEMENTATION-TYPES*"
 			  "*BYTE-COMPILE-TOP-LEVEL*"
-			  "*BYTE-COMPILE-DEFAULT*"))
+			  "*BYTE-COMPILE-DEFAULT*"
+			  "PURIFY" "MAP-APROPOS"))
 (defpackage "LOOP")
 (dolist
     (name
@@ -1115,6 +1126,7 @@
 "LARGE-ALLOC"
 "%SET-FUNCTION-SELF"
 "IR2-COMPONENT-DYNCOUNT-INFO"
+"DYNCOUNT-INFO" "DYNCOUNT-INFO-P")
 ))
 (defpackage "WIRE"
             (:export "*CURRENT-WIRE*" "CONNECT-TO-REMOTE-SERVER"
@@ -1503,7 +1515,13 @@
 	   "BYTE-CLOSURE-FUNCTION" "REGISTER-LAYOUT" "BYTE-CLOSURE-DATA"
 	   "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX" "MAKE-RANDOM-PCL-CLASS"
 	   "INSTANCE-LAMBDA" "%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
-	   "%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH"))
+	   "%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH"
+
+	   "MAKE-UNDEFINED-CLASS" "%COMPILER-ONLY-DEFSTRUCT"
+	   "CLASS-DIRECT-SUPERCLASSES" "MAKE-LAYOUT" "SIMPLE-STYLE-WARNING"
+	   "BYTE-FUNCTION-TYPE" "SLOT-CLASS-PRINT-FUNCTION"
+	   "REDEFINE-LAYOUT-WARNING" "SLOT-CLASS" "INSURED-FIND-CLASS"
+	   "CONDITION-FUNCTION-NAME"))
 
 (dolist
     (name
-- 
GitLab