Skip to content
Snippets Groups Projects
Commit f5aa843d authored by rtoy's avatar rtoy
Browse files

No functional changes; just group some of the symbols in EXT together

in some logical groups instead spread all over.
parent 3dcb8151
No related branches found
No related tags found
No related merge requests found
......@@ -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")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment