diff --git a/code/exports.lisp b/code/exports.lisp index e5e32deca5fba47ee840caf112f5474c2cdb733f..cd559930cbfa9941dd051d0bb32608bd304ed279 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.273 2008/11/12 15:04:23 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.274 2008/12/29 23:31:37 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1385,47 +1385,51 @@ "DEFINE-FUNCTION-NAME-SYNTAX" "VALID-FUNCTION-NAME-P" - ;; Gray streams extension. - "FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM" - "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM" - "FUNDAMENTAL-CHARACTER-INPUT-STREAM" - "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM" - "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM" - "FUNDAMENTAL-STREAM" - "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT" - "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT" - "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH" - "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE" - "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE" - "STREAM-START-LINE-P" "STREAM-TERPRI" "STREAM-UNREAD-CHAR" - "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-STRING" - "STREAM-READ-SEQUENCE" "STREAM-WRITE-SEQUENCE" - "MAKE-INDENTING-STREAM" "INDENTING-STREAM-P" "&PARSE-BODY" - ;; PCL declaration identifiers. - "SLOTS" "AUTO-COMPILE" "NOT-AUTO-COMPILE" - "*TRUST-DYNAMIC-EXTENT-DECLARATIONS*" - ;; From internet.lisp - "ACCEPT-NETWORK-STREAM" + + "INVALID-FASL") + ;; Gray streams extension. + (:export "FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM" + "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM" + "FUNDAMENTAL-CHARACTER-INPUT-STREAM" + "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM" + "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM" + "FUNDAMENTAL-STREAM" + "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT" + "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT" + "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH" + "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE" + "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE" + "STREAM-START-LINE-P" "STREAM-TERPRI" "STREAM-UNREAD-CHAR" + "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-STRING" + "STREAM-READ-SEQUENCE" "STREAM-WRITE-SEQUENCE") + ;; PCL declaration identifiers. + (:export "SLOTS" "AUTO-COMPILE" "NOT-AUTO-COMPILE") + + ;; From internet.lisp + (:export "ACCEPT-NETWORK-STREAM" "INET-RECVFROM" "INET-SENDTO" "INET-SHUTDOWN" "OPEN-NETWORK-STREAM" - "SHUT-RD" "SHUT-WR" "SHUT-RDWR" - - "BINARY-TEXT-STREAM" "READ-VECTOR" "WRITE-VECTOR" + "SHUT-RD" "SHUT-WR" "SHUT-RDWR") - "INVALID-FASL") + ;; CLtL2 environment access. (:export "VARIABLE-INFORMATION" "FUNCTION-INFORMATION" "DECLARATION-INFORMATION" "PARSE-MACRO" "AUGMENT-ENVIRONMENT") + + ;; CMUCL extension for binary/text streams + (:export "BINARY-TEXT-STREAM" "READ-VECTOR" "WRITE-VECTOR") + #+double-double (:export "DOUBLE-DOUBLE-FLOAT" "DD-PI") + (:import-from "STREAM" "STRING-TO-OCTETS" "OCTETS-TO-STRING" "*DEFAULT-EXTERNAL-FORMAT*" "STRING-ENCODE" "STRING-DECODE")