From 801fcbf0eb39c79f8d6966fffb5ff0a9492ed7e8 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Fri, 13 Dec 2002 03:23:56 +0000 Subject: [PATCH] Update the exports to get rid of some warnings when compiling CMUCL. --- code/exports.lisp | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index 5200a14da..4d66de847 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.195 2002/11/15 15:08:11 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.196 2002/12/13 03:23:56 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -924,6 +924,7 @@ "*TOP-LEVEL-AUTO-DECLARE*" "COMPILER-MACROEXPAND-1" "COMPILER-MACROEXPAND" "*UNDEFINED-WARNING-LIMIT*" "ACCEPT-TCP-CONNECTION" + "ACCEPT-UNIX-CONNECTION" "ADD-OOB-HANDLER" "AMBIGUOUS-FILES" "ARGUMENT-LIST" "ASSQ" "BASIC-DEFINITION" "BIGNUMP" "BITP" "CACHE-HASH-EQ" "CALL-USER-MISCOP" "CANCEL-FINALIZATION" "CAREFUL-SYMBOL-FUNCTION" @@ -935,7 +936,8 @@ "COMPACT-INFO-ENVIRONMENT" "COMPILE-FROM-STREAM" "COMPILEDP" "COMPLETE-FILE" "CONCAT-PNAMES" "CONNECT-TO-INET-SOCKET" "CONSTANT" "CONSTANT-ARGUMENT" "CONSTANT-FUNCTION" - "CREATE-INET-LISTENER" "CREATE-INET-SOCKET" "DEBUG" + "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" @@ -952,7 +954,8 @@ "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" "FLOATING-POINT-INEXACT" "FLOATING-POINT-INVALID" "FLUSH-DISPLAY-EVENTS" "FORMAT-DECODED-TIME" "FORMAT-UNIVERSAL-TIME" "FREEZE-TYPE" "GC" - "GC-OFF" "GC-ON" "GET-BYTES-CONSED" "GET-CODE-POINTER" + "GC-OFF" "GC-ON" "GET-BYTES-CONSED" "GET-BYTES-CONSED-DFIXNUM" + "GET-CODE-POINTER" "GET-COMMAND-LINE-SWITCH" "GET-DATA-POINTER" "GET-FLOATING-POINT-MODES" "GET-PEER-HOST-AND-PORT" "GET-SOCKET-HOST-AND-PORT" @@ -961,6 +964,7 @@ "HOST-ENTRY-ALIASES" "HOST-ENTRY-NAME" "HTONL" "HTONS" "INADDR-ANY" "INDENTING-FURTHER" "INFO" "INHIBIT-WARNINGS" "INTERACTIVE-EVAL" "IPPROTO-TCP" "IPPROTO-UDP" + "IP-STRING" "ITERATE" "KEY-EVENT" "KEY-EVENT-BIT-P" "KEY-EVENT-BITS" "KEY-EVENT-BITS-MODIFIERS" "KEY-EVENT-CHAR" "KEY-EVENT-KEYSYM" "KEY-EVENT-MODIFIER-MASK" "KEY-EVENT-P" "KEYSYM-NAMES" @@ -1457,8 +1461,11 @@ "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")) (defpackage "PROFILE" - (:export "*TIMED-FUNCTIONS*" "PROFILE" "PROFILE-ALL" "REPORT-TIME" - "RESET-TIME" "UNPROFILE")) + (: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")) (dolist (name '("ARRAY-RANK" "ARRAY-TOTAL-SIZE" "BOOLEAN" "CHAR-INT" "FLOAT-DIGITS" @@ -1642,7 +1649,8 @@ "TYPE-INIT" "TYPE-INTERSECT" "TYPE-INTERSECTION" "TYPE-SPECIFIER" "TYPE-SPECIFIER-SYMBOLS" "TYPE-UNION" "TYPE/=" "TYPE=" "TYPES-INTERSECT" "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY" - "UNDEFINED-SYMBOL-ERROR" "UNION-TYPE" "UNION-TYPE-P" + "UNDEFINED-SYMBOL-ERROR" "UNDEFINED-FOREIGN-SYMBOL-ERROR" + "UNION-TYPE" "UNION-TYPE-P" "UNION-TYPE-TYPES" "UNKNOWN-ERROR" "UNKNOWN-KEYWORD-ARGUMENT-ERROR" "UNKNOWN-TYPE" "UNKNOWN-TYPE-P" "UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR" -- GitLab