From 084e0759ae82513cc4a0bb84eb015765dcfa736c Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 8 Feb 1993 22:26:20 +0000
Subject: [PATCH] Added new exports.  Flushed some random IMPORT-FROM cruft.

---
 code/exports.lisp | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 359e1861b..3dff50e59 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.85.1.1 1993/01/15 15:27:40 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.85.1.2 1993/02/08 22:26:20 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1219,7 +1219,8 @@
              "FASL-FILE-IMPLEMENTATIONS" "FAST-SAFE-COERCE-TO-FUNCTION"
              "FAST-SYMBOL-FUNCTION" "FAST-SYMBOL-VALUE" "FLUSHABLE" "FOLDABLE"
              "FORCE-TN-TO-STACK" "FOREIGN-SYMBOL-ADDRESS" "GET-VECTOR-SUBTYPE"
-             "HALT" "IF-EQ" "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
+             "HALT" "IF-EQ" "INSTANCE-REF" "INSTANCE-SET"
+	     "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
              "IR2-ENVIRONMENT-NUMBER-STACK-P" "KNOWN-CALL-LOCAL" "KNOWN-RETURN"
              "LAMBDA-EVAL-INFO-ARGS-PASSED" "LAMBDA-EVAL-INFO-ENTRIES"
              "LAMBDA-EVAL-INFO-FRAME-SIZE" "LAMBDA-EVAL-INFO-FUNCTION"
@@ -1464,10 +1465,6 @@
 (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"
@@ -1533,7 +1530,9 @@
              "INTEGER-DECODE-SINGLE-FLOAT" "INTERNAL-TIME"
              "INVALID-ARGUMENT-COUNT-ERROR" "INVALID-ARRAY-INDEX-ERROR"
              "INVALID-UNWIND-ERROR" "IRRATIONAL" "KEY-INFO" "KEY-INFO-NAME"
-             "KEY-INFO-P" "KEY-INFO-TYPE" "LEXICAL-ENVIRONMENT" "LRA"
+             "KEY-INFO-P" "KEY-INFO-TYPE"
+	     "LAYOUT-INVALID-ERROR"
+	     "LEXICAL-ENVIRONMENT" "LRA"
              "LRA-CODE-HEADER" "LRA-P" "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
              "MAKE-ARRAY-HEADER" "MAKE-DOUBLE-FLOAT" "MAKE-FUNCTION-TYPE"
              "MAKE-KEY-INFO" "MAKE-LISP-OBJ" "MAKE-MEMBER-TYPE"
@@ -1552,7 +1551,8 @@
              "OBJECT-NOT-COMPLEX-ERROR" "OBJECT-NOT-CONS-ERROR"
              "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
              "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUNCTION-ERROR"
-             "OBJECT-NOT-FUNCTION-OR-SYMBOL-ERROR" "OBJECT-NOT-INTEGER-ERROR"
+             "OBJECT-NOT-FUNCTION-OR-SYMBOL-ERROR" "OBJECT-NOT-INSTANCE-ERROR"
+	     "OBJECT-NOT-INTEGER-ERROR"
              "OBJECT-NOT-LIST-ERROR" "OBJECT-NOT-NUMBER-ERROR"
              "OBJECT-NOT-RATIO-ERROR" "OBJECT-NOT-RATIONAL-ERROR"
              "OBJECT-NOT-REAL-ERROR" "OBJECT-NOT-SAP-ERROR"
-- 
GitLab