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