Commit 84111a10 authored by rtoy's avatar rtoy
Browse files

Sync to CVS HEAD, tag label-2009-03-16.

But don't sync Config.FreeBSD_gencgc, Config.x86_freebsd,
FreeBSD-os.c, and FreeBSD-os.h.  Let Alex sync those later.

The result seems to work as expected on Solaris and x86/linux.
Darwin (ppc or x86) untested.
parent 5ea89704
Loading
Loading
Loading
Loading
+63 −0
Original line number Diff line number Diff line
;;;;
;;;; Boot file for changing the fasl file version numbers to 19e.
;;;;

(in-package :c)

(setf lisp::*enable-package-locked-errors* nil)

;;;
;;; Note that BYTE-FASL-FILE-VERSION is a constant.
;;;
;;; (Be sure to change BYTE-FASL-FILE-VERSION in
;;; compiler/byte-comp.lisp to the correct value too!)
;;;
(setf (symbol-value 'byte-fasl-file-version)       #x19f)
(setf (backend-fasl-file-version *target-backend*) #x19f)

;;;
;;; Don't check fasl versions in the compiling Lisp because we'll
;;; load files compiled with the new version numbers.
;;;
(setq lisp::*skip-fasl-file-version-check* t)

;;;
;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in
;;; OPEN-FASL-FILE.  To make the new version number take effect, we
;;; have to redefine the function.
;;;
(defun open-fasl-file (name where &optional byte-p)
  (declare (type pathname name))
  (let* ((stream (open name :direction :output
		       :if-exists :new-version
		       :element-type '(unsigned-byte 8)))
	 (res (make-fasl-file :stream stream)))
    (multiple-value-bind
	(version f-vers f-imp)
	(if byte-p
	    (values "Byte code"
		    byte-fasl-file-version
		    (backend-byte-fasl-file-implementation *backend*))
	    (values (backend-version *backend*)
		    (backend-fasl-file-version *backend*)
		    (backend-fasl-file-implementation *backend*)))
      (format stream
	      "FASL FILE output from ~A.~@
	       Compiled ~A on ~A~@
	       Compiler ~A, Lisp ~A~@
	       Targeted for ~A, FASL version ~X~%"
	      where
	      (ext:format-universal-time nil (get-universal-time))
	      (machine-instance) compiler-version
	      (lisp-implementation-version)
	      version f-vers)
      ;;
      ;; Terminate header.
      (dump-byte 255 res)
      ;;
      ;; Specify code format.
      (dump-fop 'lisp::fop-long-code-format res)
      (dump-byte f-imp res)
      (dump-unsigned-32 f-vers res))
    res))
+16 −0
Original line number Diff line number Diff line
;; Bootstrap for x86 to change the location of the floating-point
;; fields.  The fields must now match the definitions for the SSE2
;; MXCSR register, even for x87.
;;
;; (Really only needed if we're not compiling for sse2.)
(in-package "VM")

#+(and x86 (not sse2))
(handler-bind ((error (lambda (c)
			(declare (ignore c))
			(invoke-restart 'continue))))
  (defconstant float-rounding-mode     (byte 2 13))
  (defconstant float-sticky-bits       (byte 6  0))
  (defconstant float-traps-byte        (byte 6  7))
  (defconstant float-exceptions-byte   (byte 6  0))
  )
+11 −2
Original line number Diff line number Diff line
@@ -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/commandline.lisp,v 1.15.18.1 2008/12/18 21:50:17 rtoy Exp $")
  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/commandline.lisp,v 1.15.18.2 2009/03/16 21:10:55 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -14,13 +14,16 @@
;;;

(in-package "EXTENSIONS")
(export '(*command-line-words* *command-line-switches*
(export '(*command-line-application-arguments* *command-line-words* *command-line-switches*
	  *command-switch-demons* *command-line-utility-name*
	  *command-line-strings* *batch-mode*
	  cmd-switch-string command-line-switch-p
	  cmd-switch-name cmd-switch-value cmd-switch-words command-line-switch
	  defswitch cmd-switch-arg get-command-line-switch))

(defvar *command-line-application-arguments* ()
  "A list of all the command line arguments after --")

(defvar *command-line-switches* ()
  "A list of cmd-switch's representing the arguments used to invoke
  this process.")
@@ -107,10 +110,16 @@
	      (push (make-cmd-switch switch value (nreverse word-list))
		    *command-line-switches*)
	      (return nil))
	    
	    (unless (zerop (length (the simple-string str)))
	      (when (char= #\- (schar str 0))
		(push (make-cmd-switch switch value (nreverse word-list))
		      *command-line-switches*)
		(when (and (= (length str) 2)
			   (char= #\- (schar str 1)))
		  ;; Gather up everything after --, and exit.
		  (setf *command-line-application-arguments* cmd-strings)
		  (setf str nil))
		(return nil))
	      (push str word-list))
	    (setq str (pop cmd-strings))))))))
+5 −1
Original line number Diff line number Diff line
@@ -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/error.lisp,v 1.85.12.1 2008/12/18 21:50:17 rtoy Exp $")
  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.85.12.2 2009/03/16 21:10:55 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -554,6 +554,10 @@
		    thing))
	 (class (typecase thing
		  (condition-class thing)
		  (pcl::condition-class
		   ;; Punt to CLOS
		   (return-from make-condition
		     (apply #'make-instance thing args)))
		  (class
		   (error 'simple-type-error
			  :datum thing
+146 −116
Original line number Diff line number Diff line
@@ -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.267.2.6 2008/12/18 21:50:17 rtoy Exp $")
  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.267.2.7 2009/03/16 21:10:55 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -1242,14 +1242,12 @@
  (:export   "*AFTER-GC-HOOKS*" "*AFTER-SAVE-INITIALIZATIONS*"
	     "DEBUG"
	     "FLOATING-POINT-INEXACT"
	     "*ALL-MODIFIER-NAMES*" "*ANSI-DEFSTRUCT-OPTIONS-P*"
	     "*ANSI-DEFSTRUCT-OPTIONS-P*"
	     "*AUTOLOAD-TRANSLATIONS*"
	     "*BACKUP-EXTENSION*" "*BEFORE-GC-HOOKS*"
             "*BEFORE-SAVE-INITIALIZATIONS*" "*BLOCK-COMPILE-DEFAULT*"
             "*BYTES-CONSED-BETWEEN-GCS*" "*CHAR" "*CLX-FDS-TO-DISPLAYS*"
             "*COMMAND-LINE-STRINGS*" "*COMMAND-LINE-SWITCHES*"
             "*COMMAND-LINE-UTILITY-NAME*" "*COMMAND-LINE-WORDS*"
             "*COMMAND-SWITCH-DEMONS*" "*COMPATIBILITY-WARNINGS*"
             "*BYTES-CONSED-BETWEEN-GCS*"
             "*COMPATIBILITY-WARNINGS*"
             "*COMPILE-PROGRESS*" "*DERIVE-FUNCTION-TYPES*"
             "*DESCRIBE-IMPLEMENTATION-DETAILS*" "*DESCRIBE-INDENTATION*"
             "*DESCRIBE-LEVEL*" "*DESCRIBE-PRINT-LENGTH*"
@@ -1260,120 +1258,71 @@
             "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*GC-INHIBIT-HOOK*"
             "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-VERBOSE*"
	     "GET-SETF-METHOD" ; temp until uses are converted to g-s-expansion
             "*HEMLOCK-VERSION*" "*IGNORE-FLOATING-POINT-UNDERFLOW*"
             "*IGNORE-FLOATING-POINT-UNDERFLOW*"
             "*INFO-ENVIRONMENT*" "*INTEXP-MAXIMUM-EXPONENT*"
             "*KEYWORD-PACKAGE*" "*LISP-PACKAGE*" "*LOAD-IF-SOURCE-NEWER*"
             "*MAX-OLD-TRACE-INDENTATION*" "*MAX-STEP-INDENTATION*"
             "*MAX-TRACE-INDENTATION*" "*MODULE-FILE-TRANSLATIONS*"
	     "*PROMPT*" "*REQUIRE-VERBOSE*" "*MODULE-PROVIDER-FUNCTIONS*"
	     "*SETF-FDEFINITION-HOOK*"
             "*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"
             "*UNDEFINED-WARNING-LIMIT*"
             "AMBIGUOUS-FILES" "ARGUMENT-LIST" "ASSQ"
             "BASIC-DEFINITION" "BIGNUMP" "BITP"
             "CALL-USER-MISCOP" "CANCEL-FINALIZATION" "CAREFUL-SYMBOL-FUNCTION"
             "CAREFULLY-ADD-FONT-PATHS" "CHAR" "CHAR-KEY-EVENT"
             "CHAR"
             "CLEAN-UP-COMPILER" "CLEAR-INFO" "CLEAR-SEARCH-LIST"
             "CLOSE-SOCKET" "CMD-SWITCH-ARG" "CMD-SWITCH-NAME"
             "CMD-SWITCH-STRING" "CMD-SWITCH-VALUE" "CMD-SWITCH-WORDS"
             "COLLECT" "COMMAND-LINE-SWITCH" "COMMAND-LINE-SWITCH-P"
             "COMPACT-INFO-ENVIRONMENT" "COMPILE-FROM-STREAM" "COMPILEDP"
             "COMPLETE-FILE" "CONCAT-PNAMES" "CONNECT-TO-INET-SOCKET"
             "COMPLETE-FILE"
             "CONSTANT" "CONSTANT-ARGUMENT" "CONSTANT-FUNCTION"
	     "BIND-INET-SOCKET"
             "CREATE-INET-LISTENER" "CREATE-INET-SOCKET" "CREATE-UNIX-LISTENER"
	     "DEF-SOURCE-CONTEXT"
             "DEFAULT-CLX-EVENT-HANDLER" "DEFAULT-DIRECTORY"
             "DEFINE-CLX-MODIFIER" "DEFINE-HASH-CACHE" "DEFINE-INFO-CLASS"
             "DEFINE-INFO-TYPE" "DEFINE-KEY-EVENT-MODIFIER"
             "DEFINE-KEYBOARD-MODIFIER" "DEFINE-KEYSYM" "DEFINE-MOUSE-CODE"
             "DEFINE-MOUSE-KEYSYM" "DEFMODULE" "DEFSWITCH" "DEFUN-CACHED"
             "DELETEF" "DELQ" "DISABLE-CLX-EVENT-HANDLING"
             "DO-ALPHA-KEY-EVENTS" "DO-ANONYMOUS" "DO-INFO"
             "DOUBLE-FLOAT-NEGATIVE-INFINITY" "DOUBLE-FLOAT-POSITIVE-INFINITY"
             "DOUBLE-FLOATP" "DOVECTOR" "ENABLE-CLX-EVENT-HANDLING"
             "DEFAULT-DIRECTORY"
             "DEFINE-INFO-CLASS"
             "DEFINE-INFO-TYPE"
             "DEFMODULE"
             "DELQ"
             "DO-INFO"
             "ENCAPSULATE" "ENCAPSULATED-DEFINITION" "ENCAPSULATED-P"
             "END-BLOCK" "ENUMERATE-SEARCH-LIST" "FILE-COMMENT" "FILE-WRITABLE"
             "FINALIZE" "FIXNUMP" "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P"
             "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
             "FLOATING-POINT-INVALID" "FLUSH-DISPLAY-EVENTS"
             "END-BLOCK" "ENUMERATE-SEARCH-LIST" "FILE-WRITABLE"
             "FINALIZE" "FIXNUMP"
             "FORMAT-DECODED-TIME" "FORMAT-UNIVERSAL-TIME" "FREEZE-TYPE" "GC"
             "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"
	     "GET-STREAM-COMMAND"
             "HOST-ENTRY" "HOST-ENTRY-ADDR" "HOST-ENTRY-ADDR-LIST"
             "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"
             "KEYSYM-PREFERRED-NAME" "LETF" "LETF*" "LISTEN-SKIP-WHITESPACE"
             "LOAD-FOREIGN" "LONG-FLOAT-NEGATIVE-INFINITY"
             "LONG-FLOAT-POSITIVE-INFINITY" "LONG-FLOATP" "LOOKUP-HOST-ENTRY"
             "MAKE-CASE-FROB-STREAM" "MAKE-INFO-ENVIRONMENT" "MAKE-KEY-EVENT"
             "MAKE-KEY-EVENT-BITS" "MAKE-SCAVENGER-HOOK"
             "INFO"
             "INHIBIT-WARNINGS" "INTERACTIVE-EVAL"
             "LOAD-FOREIGN"
             "MAKE-CASE-FROB-STREAM" "MAKE-INFO-ENVIRONMENT"
             "MAKE-SCAVENGER-HOOK"
	     "MAKE-STREAM-COMMAND" "MAKE-WEAK-POINTER"
             "MAYBE-INLINE" "MEMQ" "NAME-KEYSYM" "NTOHL" "NTOHS"
             "OBJECT-SET-EVENT-HANDLER" "OLD-TRACE" "OLD-UNTRACE" "ONCE-ONLY"
             "OPEN-CLX-DISPLAY" "OPTIMIZE-INTERFACE"
             "MAYBE-INLINE" "MEMQ"
             "OPTIMIZE-INTERFACE"
	     "PACKAGE-CHILDREN" "PACKAGE-PARENT" "PARSE-TIME"
             "PACKAGE-LOCK" "PACKAGE-DEFINITION-LOCK" "WITHOUT-PACKAGE-LOCKS"
	     "UNLOCK-ALL-PACKAGES"
             "PRINT-DIRECTORY" "PRINT-HERALD" "PRINT-PRETTY-KEY"
             "PRINT-PRETTY-KEY-EVENT" "PROCESS-ALIVE-P" "PROCESS-CLOSE"
             "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
             "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
             "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
             "PROCESS-STATUS-HOOK" "PROCESS-WAIT" "PUTF" "PURGE-BACKUP-FILES" "QUIT" "RATIOP"
             "READ-CHAR-NO-EDIT" "REALP" "REMOVE-ALL-OOB-HANDLERS"
             "REMOVE-OOB-HANDLER" "REQUIRED-ARGUMENT" "RESET-FOREIGN-POINTERS"
             "RUN-PROGRAM" "SAVE" "SAVE-LISP"
             "PRINT-DIRECTORY" "PRINT-HERALD"
             "PUTF" "PURGE-BACKUP-FILES" "QUIT" "RATIOP"
             "REALP"
             "RESET-FOREIGN-POINTERS"
             "SAVE" "SAVE-LISP"
             "SCAVENGER-HOOK" "SCAVENGER-HOOK-P"
	     "SCAVENGER-HOOK-VALUE" "SCAVENGER-HOOK-FUNCTION"
	     "SEARCH-LIST"
             "SEND-CHARACTER-OUT-OF-BAND" "SERVE-BUTTON-PRESS"
             "SERVE-BUTTON-RELEASE" "SERVE-CIRCULATE-NOTIFY"
             "SERVE-CIRCULATE-REQUEST" "SERVE-CLIENT-MESSAGE"
             "SERVE-COLORMAP-NOTIFY" "SERVE-CONFIGURE-NOTIFY"
             "SERVE-CONFIGURE-REQUEST" "SERVE-CREATE-NOTIFY"
             "SERVE-DESTROY-NOTIFY" "SERVE-ENTER-NOTIFY" "SERVE-EXPOSURE"
             "SERVE-FOCUS-IN" "SERVE-FOCUS-OUT" "SERVE-GRAPHICS-EXPOSURE"
             "SERVE-GRAVITY-NOTIFY" "SERVE-KEY-PRESS" "SERVE-KEY-RELEASE"
             "SERVE-LEAVE-NOTIFY" "SERVE-MAP-NOTIFY" "SERVE-MAP-REQUEST"
             "SERVE-MOTION-NOTIFY" "SERVE-NO-EXPOSURE" "SERVE-PROPERTY-NOTIFY"
             "SERVE-REPARENT-NOTIFY" "SERVE-RESIZE-REQUEST"
             "SERVE-SELECTION-CLEAR" "SERVE-SELECTION-NOTIFY"
             "SERVE-SELECTION-REQUEST" "SERVE-UNMAP-NOTIFY"
             "SERVE-VISIBILITY-NOTIFY" "SET-FLOATING-POINT-MODES"
             "SET-SYMBOL-FUNCTION-CAREFULLY" "SHORT-FLOAT-NEGATIVE-INFINITY"
             "SHORT-FLOAT-POSITIVE-INFINITY" "SHORT-FLOATP"
             "SINGLE-FLOAT-NEGATIVE-INFINITY" "SINGLE-FLOAT-POSITIVE-INFINITY"
             "SINGLE-FLOATP" "SOCKET-ERROR" "START-BLOCK" "STREAM-COMMAND"

             "SET-SYMBOL-FUNCTION-CAREFULLY"
             "START-BLOCK" "STREAM-COMMAND"
             "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
	     "INSTANCEP" "SYMBOLICATE" "TRANSLATE-CHARACTER"
             "TRANSLATE-KEY-EVENT" "TRANSLATE-MOUSE-CHARACTER"
             "TRANSLATE-MOUSE-KEY-EVENT" "TRULY-THE" "UNCOMPILE"
             "UNDEFINED-VALUE" "UNENCAPSULATE" "UNIX-NAMESTRING" "WEAK-POINTER"
             "WEAK-POINTER-P" "WEAK-POINTER-VALUE" "WITH-CLX-EVENT-HANDLING"
	     "WITH-FLOAT-TRAPS-MASKED"
	     "INSTANCEP" "SYMBOLICATE"
             "TRULY-THE" "UNCOMPILE"
             "UNENCAPSULATE" "UNIX-NAMESTRING" "WEAK-POINTER"
             "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
	     "FEATUREP" "*IGNORE-EXTRA-CLOSE-PARENTHESES*" "*HERALD-ITEMS*"
	     "SEARCH-LIST-DEFINED-P" "BYTES-CONSED-BETWEEN-GCS"
	     "*LOAD-SOURCE-TYPES*" "*LOAD-OBJECT-TYPES*"
	     "*DEFAULT-PACKAGE-USE-LIST*" "*GC-RUN-TIME*"
	     "CONNECT-TO-UNIX-SOCKET"
	     "DEFINE-HASH-TABLE-TEST"

	     "DO-HASH"
	     "*EFFICIENCY-NOTE-LIMIT*"
	     "*ERROR-PRINT-LINES*"
	     "CREATE-UNIX-SOCKET"
	     "*INLINE-EXPANSION-LIMIT*"
	     "INSTANCE"
	     "*EFFICIENCY-NOTE-COST-THRESHOLD*"
@@ -1381,13 +1330,44 @@
	     "*BYTE-COMPILE-TOP-LEVEL*"
	     "*BYTE-COMPILE-DEFAULT*"
	     "PURIFY" "MAP-APROPOS"
	     "*BATCH-MODE*"
	     "COMPILER-LET"
	     "DEFINE-FUNCTION-NAME-SYNTAX"
	     "VALID-FUNCTION-NAME-P"

             "MAKE-INDENTING-STREAM" "INDENTING-STREAM-P"

	     "&PARSE-BODY"

	     "*TRUST-DYNAMIC-EXTENT-DECLARATIONS*"

	     "INVALID-FASL")

  ;; run-program
  (:export "RUN-PROGRAM" "PROCESS-ALIVE-P" "PROCESS-CLOSE"
	   "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
	   "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
	   "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
	   "PROCESS-STATUS-HOOK" "PROCESS-WAIT")

  ;; Float extensions
  (:export "SINGLE-FLOAT-POSITIVE-INFINITY" "SHORT-FLOAT-POSITIVE-INFINITY"
	   "DOUBLE-FLOAT-POSITIVE-INFINITY" "LONG-FLOAT-POSITIVE-INFINITY"
	   "SINGLE-FLOAT-NEGATIVE-INFINITY" "SHORT-FLOAT-NEGATIVE-INFINITY"
	   "DOUBLE-FLOAT-NEGATIVE-INFINITY" "LONG-FLOAT-NEGATIVE-INFINITY"
	   "GET-FLOATING-POINT-MODES" "SET-FLOATING-POINT-MODES"
	   "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P"
	   "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" 
	   "WITH-FLOAT-TRAPS-MASKED")

  ;; Spice lisp extensions
  (:export "LETF*" "LETF" "DOVECTOR" "DELETEF" "INDENTING-FURTHER" "FILE-COMMENT"
	   "READ-CHAR-NO-EDIT" "LISTEN-SKIP-WHITESPACE" "CONCAT-PNAMES"
	   "ITERATE" "ONCE-ONLY" "COLLECT" "DO-ANONYMOUS" "UNDEFINED-VALUE"
	   "REQUIRED-ARGUMENT" "DEFINE-HASH-CACHE" "DEFUN-CACHED"
	   "CACHE-HASH-EQ" "DO-HASH")
  
  ;; Gray streams extension.
	     "FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM"
  (:export "FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM"
	   "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
	   "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
	   "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
@@ -1400,33 +1380,82 @@
	   "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"
	   "STREAM-READ-SEQUENCE" "STREAM-WRITE-SEQUENCE")

             "MAKE-INDENTING-STREAM" "INDENTING-STREAM-P"

	     "&PARSE-BODY"
  ;; Commandline parsing
  (:export "*COMMAND-LINE-WORDS*" "*COMMAND-LINE-SWITCHES*"
	   "*COMMAND-SWITCH-DEMONS*" "*COMMAND-LINE-UTILITY-NAME*"
	   "*COMMAND-LINE-STRINGS*" "*BATCH-MODE*"
	   "*COMMAND-LINE-APPLICATION-ARGUMENTS*"
	   "CMD-SWITCH-STRING" "COMMAND-LINE-SWITCH-P"
	   "CMD-SWITCH-NAME" "CMD-SWITCH-VALUE" "CMD-SWITCH-WORDS" "COMMAND-LINE-SWITCH"
	   "DEFSWITCH" "CMD-SWITCH-ARG" "GET-COMMAND-LINE-SWITCH")
  
  ;; PCL declaration identifiers.
	     "SLOTS" "AUTO-COMPILE" "NOT-AUTO-COMPILE"

	     "*TRUST-DYNAMIC-EXTENT-DECLARATIONS*"
  (:export "SLOTS" "AUTO-COMPILE" "NOT-AUTO-COMPILE")

  ;; From internet.lisp
	     "ACCEPT-NETWORK-STREAM"
  (:export "HTONL" "NTOHL" "HTONS" "NTOHS" "LOOKUP-HOST-ENTRY" "HOST-ENTRY"
	   "HOST-ENTRY-NAME" "HOST-ENTRY-ALIASES" "HOST-ENTRY-ADDR-LIST"
	   "HOST-ENTRY-ADDR" "IP-STRING" "BIND-INET-SOCKET"
	   "CREATE-UNIX-SOCKET" "CONNECT-TO-UNIX-SOCKET"
	   "CREATE-UNIX-LISTENER" "ACCEPT-UNIX-CONNECTION" "CREATE-INET-SOCKET"
	   "CONNECT-TO-INET-SOCKET" "CREATE-INET-LISTENER" "ACCEPT-TCP-CONNECTION"
	   "CLOSE-SOCKET" "IPPROTO-TCP" "IPPROTO-UDP" "INADDR-ANY" "ADD-OOB-HANDLER"
	   "REMOVE-OOB-HANDLER" "REMOVE-ALL-OOB-HANDLERS"
	   "SEND-CHARACTER-OUT-OF-BAND"
	   "SOCKET-ERROR" 
	   "INET-RECVFROM" "INET-SENDTO" "INET-SHUTDOWN"
	     "OPEN-NETWORK-STREAM"
	   "SHUT-RD" "SHUT-WR" "SHUT-RDWR"
	   "GET-PEER-HOST-AND-PORT" "GET-SOCKET-HOST-AND-PORT"

	     "BINARY-TEXT-STREAM" "READ-VECTOR" "WRITE-VECTOR"
	   "OPEN-NETWORK-STREAM" "ACCEPT-NETWORK-STREAM")

	     "INVALID-FASL")
  ;; CLX extensions
  (:export "OPEN-CLX-DISPLAY" "WITH-CLX-EVENT-HANDLING" "ENABLE-CLX-EVENT-HANDLING"
	   "DISABLE-CLX-EVENT-HANDLING" "OBJECT-SET-EVENT-HANDLER"
	   "DEFAULT-CLX-EVENT-HANDLER"
	   "FLUSH-DISPLAY-EVENTS" "CAREFULLY-ADD-FONT-PATHS"
	   ;; Not sure if this should be exported or not.  It's not
	   ;; listed in clx-ext.lisp.
	   "*CLX-FDS-TO-DISPLAYS*"
	   
	   "SERVE-KEY-PRESS" "SERVE-KEY-RELEASE" "SERVE-BUTTON-PRESS"
	   "SERVE-BUTTON-RELEASE" "SERVE-MOTION-NOTIFY" "SERVE-ENTER-NOTIFY"
	   "SERVE-LEAVE-NOTIFY" "SERVE-FOCUS-IN" "SERVE-FOCUS-OUT" 
	   "SERVE-EXPOSURE" "SERVE-GRAPHICS-EXPOSURE" "SERVE-NO-EXPOSURE"
	   "SERVE-VISIBILITY-NOTIFY" "SERVE-CREATE-NOTIFY" "SERVE-DESTROY-NOTIFY"
	   "SERVE-UNMAP-NOTIFY" "SERVE-MAP-NOTIFY" "SERVE-MAP-REQUEST"
	   "SERVE-REPARENT-NOTIFY" "SERVE-CONFIGURE-NOTIFY" "SERVE-GRAVITY-NOTIFY"
	   "SERVE-RESIZE-REQUEST" "SERVE-CONFIGURE-REQUEST" "SERVE-CIRCULATE-NOTIFY"
	   "SERVE-CIRCULATE-REQUEST" "SERVE-PROPERTY-NOTIFY" "SERVE-SELECTION-CLEAR"
	   "SERVE-SELECTION-REQUEST" "SERVE-SELECTION-NOTIFY" "SERVE-COLORMAP-NOTIFY"
	   "SERVE-CLIENT-MESSAGE")

  ;; 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")

  ;; Hemlock (main.lisp, key-event.lisp, keytran.lisp)
  (:export "DEFINE-KEYSYM" "DEFINE-MOUSE-KEYSYM" "NAME-KEYSYM" "KEYSYM-NAMES"
	   "KEYSYM-PREFERRED-NAME" "DEFINE-KEY-EVENT-MODIFIER" "DEFINE-CLX-MODIFIER"
	   "MAKE-KEY-EVENT-BITS" "KEY-EVENT-MODIFIER-MASK" "KEY-EVENT-BITS-MODIFIERS"
	   "*ALL-MODIFIER-NAMES*" "TRANSLATE-KEY-EVENT" "TRANSLATE-MOUSE-KEY-EVENT"
	   "MAKE-KEY-EVENT" "KEY-EVENT" "KEY-EVENT-P" "KEY-EVENT-BITS" "KEY-EVENT-KEYSYM"
	   "CHAR-KEY-EVENT" "KEY-EVENT-CHAR" "KEY-EVENT-BIT-P" "DO-ALPHA-KEY-EVENTS"
	   "PRINT-PRETTY-KEY" "PRINT-PRETTY-KEY-EVENT" "*HEMLOCK-VERSION*"
	   "DEFINE-MOUSE-CODE" "DEFINE-KEYBOARD-MODIFIER"
	   "TRANSLATE-CHARACTER" "TRANSLATE-MOUSE-CHARACTER")

  #+double-double
  (:export "DOUBLE-DOUBLE-FLOAT" "DD-PI")
  
  (:import-from "STREAM"
		"STRING-TO-OCTETS" "OCTETS-TO-STRING" "*DEFAULT-EXTERNAL-FORMAT*"
		"STRING-ENCODE" "STRING-DECODE")
@@ -1436,7 +1465,8 @@
(defpackage "STREAM"
  (:import-from "SYSTEM" "LISP-STREAM")
  (:import-from "EXTENSIONS" "FUNDAMENTAL-STREAM")
  (:import-from "LISP" "LINE-LENGTH" "CHARPOS")
  (:import-from "LISP" "LINE-LENGTH" "CHARPOS"
		"BREF" "BUFFER-COPY" "BUFFER-SAP" "ENDIAN-SWAP-VALUE" "VECTOR-ELT-WIDTH")
  (:export ;; Stream classes
           "STREAM"
           "SIMPLE-STREAM"
Loading