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