From cbde15e92cbf190f3ddb9b84c60d12b7b6b80f5f Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 31 Dec 2008 17:50:01 +0000
Subject: [PATCH] Group the Spice Lisp extensions together.

---
 code/exports.lisp | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 63600d27d..6d503f2ac 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.277 2008/12/31 00:52:50 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.278 2008/12/31 17:50:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1267,46 +1267,41 @@
 	     "COMPILER-MACROEXPAND-1" "COMPILER-MACROEXPAND"
              "*UNDEFINED-WARNING-LIMIT*"
              "AMBIGUOUS-FILES" "ARGUMENT-LIST" "ASSQ"
-             "BASIC-DEFINITION" "BIGNUMP" "BITP" "CACHE-HASH-EQ"
+             "BASIC-DEFINITION" "BIGNUMP" "BITP"
              "CALL-USER-MISCOP" "CANCEL-FINALIZATION" "CAREFUL-SYMBOL-FUNCTION"
              "CHAR"
              "CLEAN-UP-COMPILER" "CLEAR-INFO" "CLEAR-SEARCH-LIST"
-             "COLLECT"
              "COMPACT-INFO-ENVIRONMENT" "COMPILE-FROM-STREAM" "COMPILEDP"
-             "COMPLETE-FILE" "CONCAT-PNAMES"
+             "COMPLETE-FILE"
              "CONSTANT" "CONSTANT-ARGUMENT" "CONSTANT-FUNCTION"
 	     "DEF-SOURCE-CONTEXT"
              "DEFAULT-DIRECTORY"
-             "DEFINE-HASH-CACHE" "DEFINE-INFO-CLASS"
+             "DEFINE-INFO-CLASS"
              "DEFINE-INFO-TYPE"
-             "DEFMODULE" "DEFUN-CACHED"
-             "DELETEF" "DELQ"
-             "DO-ANONYMOUS" "DO-INFO"
-             "DOVECTOR"
+             "DEFMODULE"
+             "DELQ"
+             "DO-INFO"
              "ENCAPSULATE" "ENCAPSULATED-DEFINITION" "ENCAPSULATED-P"
-             "END-BLOCK" "ENUMERATE-SEARCH-LIST" "FILE-COMMENT" "FILE-WRITABLE"
+             "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-STREAM-COMMAND"
-             "INDENTING-FURTHER" "INFO"
+             "INFO"
              "INHIBIT-WARNINGS" "INTERACTIVE-EVAL"
-             "ITERATE"
-             "LETF" "LETF*" "LISTEN-SKIP-WHITESPACE"
              "LOAD-FOREIGN"
              "MAKE-CASE-FROB-STREAM" "MAKE-INFO-ENVIRONMENT"
              "MAKE-SCAVENGER-HOOK"
 	     "MAKE-STREAM-COMMAND" "MAKE-WEAK-POINTER"
              "MAYBE-INLINE" "MEMQ"
-             "ONCE-ONLY"
              "OPTIMIZE-INTERFACE"
 	     "PACKAGE-CHILDREN" "PACKAGE-PARENT" "PARSE-TIME"
              "PACKAGE-LOCK" "PACKAGE-DEFINITION-LOCK" "WITHOUT-PACKAGE-LOCKS"
 	     "UNLOCK-ALL-PACKAGES"
              "PRINT-DIRECTORY" "PRINT-HERALD"
              "PUTF" "PURGE-BACKUP-FILES" "QUIT" "RATIOP"
-             "READ-CHAR-NO-EDIT" "REALP"
-             "REQUIRED-ARGUMENT" "RESET-FOREIGN-POINTERS"
+             "REALP"
+             "RESET-FOREIGN-POINTERS"
              "SAVE" "SAVE-LISP"
              "SCAVENGER-HOOK" "SCAVENGER-HOOK-P"
 	     "SCAVENGER-HOOK-VALUE" "SCAVENGER-HOOK-FUNCTION"
@@ -1317,7 +1312,7 @@
              "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
 	     "INSTANCEP" "SYMBOLICATE"
              "TRULY-THE" "UNCOMPILE"
-             "UNDEFINED-VALUE" "UNENCAPSULATE" "UNIX-NAMESTRING" "WEAK-POINTER"
+             "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"
@@ -1325,7 +1320,6 @@
 	     "*DEFAULT-PACKAGE-USE-LIST*" "*GC-RUN-TIME*"
 	     "DEFINE-HASH-TABLE-TEST"
 
-	     "DO-HASH"
 	     "*EFFICIENCY-NOTE-LIMIT*"
 	     "*ERROR-PRINT-LINES*"
 	     "*INLINE-EXPANSION-LIMIT*"
@@ -1364,6 +1358,13 @@
 	   "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.
   (:export "FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM"
 	   "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
-- 
GitLab