From a3b751543d96ef3303deb8e5a0dd7c56e2a701da Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 1 Sep 1993 00:52:32 +0000
Subject: [PATCH] Delete package setup for optional subsystems (hemlock, etc.)

---
 code/exports.lisp | 347 +---------------------------------------------
 1 file changed, 2 insertions(+), 345 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 063e4176c..b5b094e86 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.92 1993/07/22 22:29:36 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.93 1993/09/01 00:52:32 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,9 +16,6 @@
 
 (in-package "LISP")
 
-(if (find-package "XLIB")
-    (rename-package "XLIB" "XLIB" '("OLD-XLIB"))
-    (make-package "XLIB" :nicknames '("OLD-XLIB") :use nil))
 (if (find-package "C-CALL")
     (rename-package "C-CALL" "C-CALL" 'nil)
     (make-package "C-CALL" :nicknames 'nil :use nil))
@@ -28,37 +25,18 @@
 (if (find-package "BIGNUM")
     (rename-package "BIGNUM" "BIGNUM" 'nil)
     (make-package "BIGNUM" :nicknames 'nil :use nil))
-(if (find-package "WALKER")
-    (rename-package "WALKER" "WALKER" 'nil)
-    (make-package "WALKER" :nicknames 'nil :use nil))
 (if (find-package "UNIX")
     (rename-package "UNIX" "UNIX" 'nil)
     (make-package "UNIX" :nicknames 'nil :use nil))
-(if (find-package "PCL")
-    (rename-package "PCL" "PCL" 'nil)
-    (make-package "PCL" :nicknames 'nil :use nil))
-(shadow '("DOCUMENTATION" "DESTRUCTURING-BIND"  "FIND-CLASS" "CLASS-NAME"
-	  "CLASS-OF" "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
-	  "STRUCTURE-OBJECT" "STANDARD-CLASS" "DOTIMES")
-	"PCL")
 (if (find-package "FORMAT")
     (rename-package "FORMAT" "FORMAT" 'nil)
     (make-package "FORMAT" :nicknames 'nil :use nil))
-(if (find-package "HEMLOCK")
-    (rename-package "HEMLOCK" "HEMLOCK" '("ED"))
-    (make-package "HEMLOCK" :nicknames '("ED") :use nil))
-(if (find-package "SPELL")
-    (rename-package "SPELL" "SPELL" 'nil)
-    (make-package "SPELL" :nicknames 'nil :use nil))
 (if (find-package "COMMON-LISP")
     (rename-package "COMMON-LISP" "COMMON-LISP" '("CL" "LISP"))
     (make-package "LISP" :nicknames 'nil :use nil))
 (if (find-package "EVAL")
     (rename-package "EVAL" "EVAL" 'nil)
     (make-package "EVAL" :nicknames 'nil :use nil))
-(if (find-package "ITERATE")
-    (rename-package "ITERATE" "ITERATE" 'nil)
-    (make-package "ITERATE" :nicknames 'nil :use nil))
 #+pmax
 (if (find-package "MIPS")
     (rename-package "MIPS" "MIPS" '("VM" "OLD-MIPS"))
@@ -94,19 +72,12 @@
 (if (find-package "LOOP")
     (rename-package "LOOP" "LOOP" 'nil)
     (make-package "LOOP" :nicknames 'nil :use nil))
-(if (find-package "HEMLOCK-INTERNALS")
-    (rename-package "HEMLOCK-INTERNALS" "HEMLOCK-INTERNALS" '("HI"))
-    (make-package "HEMLOCK-INTERNALS" :nicknames '("HI") :use nil))
 (if (find-package "DEBUG-INTERNALS")
     (rename-package "DEBUG-INTERNALS" "DEBUG-INTERNALS" '("DI"))
     (make-package "DEBUG-INTERNALS" :nicknames '("DI") :use nil))
 (if (find-package "C")
     (rename-package "C" "C" '("OLD-C"))
     (make-package "C" :nicknames '("OLD-C") :use nil))
-(if (find-package "DIRED")
-    (rename-package "DIRED" "DIRED" 'nil)
-    (make-package "DIRED" :nicknames 'nil :use nil))
-(shadow '("DELETE-FILE" "RENAME-FILE") "DIRED")
 (if (find-package "WIRE")
     (rename-package "WIRE" "WIRE" 'nil)
     (make-package "WIRE" :nicknames 'nil :use nil))
@@ -134,19 +105,14 @@
 (if (find-package "NEW-ASSEM")
     (rename-package "NEW-ASSEM" "NEW-ASSEM" 'nil)
     (make-package "NEW-ASSEM" :nicknames 'nil :use nil))
-(use-package '("LISP") "XLIB")
+
 (use-package '("SYSTEM" "ALIEN-INTERNALS" "ALIEN" "LISP") "C-CALL")
 (use-package '("KERNEL" "EXTENSIONS" "LISP") "INSPECT")
 (use-package '("LISP" "KERNEL") "BIGNUM")
-(use-package '("LISP") "WALKER")
 (use-package '("LISP") "UNIX")
-(use-package '("WALKER" "ITERATE" "LISP") "PCL")
 (use-package '("KERNEL" "LISP" "EXTENSIONS") "FORMAT")
-(use-package '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM") "HEMLOCK")
-(use-package '("LISP" "EXTENSIONS" "SYSTEM") "SPELL")
 (use-package '("EXTENSIONS" "SYSTEM" "DEBUG" "KERNEL" "BIGNUM") "LISP")
 (use-package '("LISP" "KERNEL") "EVAL")
-(use-package '("LISP" "WALKER") "ITERATE")
 (use-package
  '("C-CALL" "ALIEN-INTERNALS" "ALIEN" "BIGNUM" "LISP" "KERNEL" "EXTENSIONS"
    "SYSTEM" "C")
@@ -156,12 +122,10 @@
 (use-package '("EXTENSIONS" "LISP" "SYSTEM") "DEBUG")
 (use-package '("C-CALL" "ALIEN" "LISP" "SYSTEM") "EXTENSIONS")
 (use-package '("LISP") "LOOP")
-(use-package '("LISP" "SYSTEM" "EXTENSIONS") "HEMLOCK-INTERNALS")
 (use-package '("LISP" "SYSTEM" "EXTENSIONS" "KERNEL") "DEBUG-INTERNALS")
 (use-package
  '("ALIEN-INTERNALS" "ALIEN" "LISP" "EXTENSIONS" "KERNEL" "SYSTEM" "BIGNUM")
  "C")
-(use-package '("LISP") "DIRED")
 (use-package '("LISP") "WIRE")
 (use-package '("KERNEL" "EXTENSIONS" "LISP") "PRETTY-PRINT")
 (use-package '("EXTENSIONS" "LISP") "SYSTEM")
@@ -173,185 +137,6 @@
              "KERNEL")
 (use-package '("LISP") "NEW-ASSEM")
 
-(defpackage "XLIB"
-  (:nicknames "OLD-XLIB")
-  (:shadow "DEFINE-CONDITION")
-  (:export "*VERSION*" "ACCESS-CONTROL" "ACCESS-ERROR" "ACCESS-HOSTS"
-	   "ACTIVATE-SCREEN-SAVER" "ADD-ACCESS-HOST" "ADD-RESOURCE"
-	   "ADD-TO-SAVE-SET" "ALIST" "ALLOC-COLOR" "ALLOC-COLOR-CELLS"
-	   "ALLOC-COLOR-PLANES" "ALLOC-ERROR" "ALLOW-EVENTS" "ANGLE"
-	   "ARC-SEQ" "ARRAY-INDEX" "ATOM-ERROR" "ATOM-NAME" "BELL"
-	   "BIT-GRAVITY" "BITMAP" "BITMAP-FORMAT" "BITMAP-FORMAT-LSB-FIRST-P"
-	   "BITMAP-FORMAT-P" "BITMAP-FORMAT-PAD" "BITMAP-FORMAT-UNIT"
-	   "BITMAP-IMAGE" "BOOLE-CONSTANT" "BOOLEAN" "CARD16" "CARD29"
-	   "CARD32" "CARD8" "CARD8->CHAR" "CHANGE-ACTIVE-POINTER-GRAB"
-	   "CHANGE-KEYBOARD-CONTROL" "CHANGE-KEYBOARD-MAPPING"
-	   "CHANGE-POINTER-CONTROL" "CHANGE-PROPERTY" "CHAR->CARD8"
-	   "CHAR-ASCENT" "CHAR-ATTRIBUTES" "CHAR-DESCENT" "CHAR-LEFT-BEARING"
-	   "CHAR-RIGHT-BEARING" "CHAR-WIDTH" "CHARACTER->KEYSYMS"
-	   "CHARACTER-IN-MAP-P" "CIRCULATE-WINDOW-DOWN" "CIRCULATE-WINDOW-UP"
-	   "CLEAR-AREA" "CLOSE-DISPLAY" "CLOSE-DOWN-MODE" "CLOSE-FONT"
-	   "CLOSED-DISPLAY" "COLOR" "COLOR-BLUE" "COLOR-GREEN" "COLOR-P"
-	   "COLOR-RED" "COLOR-RGB" "COLORMAP" "COLORMAP-DISPLAY"
-	   "COLORMAP-EQUAL" "COLORMAP-ERROR" "COLORMAP-ID" "COLORMAP-P"
-	   "COLORMAP-PLIST" "COLORMAP-VISUAL-INFO" "CONNECTION-FAILURE"
-	   "CONVERT-SELECTION" "COPY-AREA" "COPY-COLORMAP-AND-FREE"
-	   "COPY-GCONTEXT" "COPY-GCONTEXT-COMPONENTS" "COPY-IMAGE"
-	   "COPY-PLANE" "CREATE-COLORMAP" "CREATE-CURSOR" "CREATE-GCONTEXT"
-	   "CREATE-GLYPH-CURSOR" "CREATE-IMAGE" "CREATE-PIXMAP"
-	   "CREATE-WINDOW" "CURSOR" "CURSOR-DISPLAY" "CURSOR-EQUAL"
-	   "CURSOR-ERROR" "CURSOR-ID" "CURSOR-P" "CURSOR-PLIST" "CUT-BUFFER"
-	   "DECLARE-EVENT" "DECODE-CORE-ERROR" "DEFAULT-ERROR-HANDLER"
-	   "DEFAULT-KEYSYM-INDEX" "DEFAULT-KEYSYM-TRANSLATE" "DEFINE-ERROR"
-	   "DEFINE-EXTENSION" "DEFINE-GCONTEXT-ACCESSOR" "DEFINE-KEYSYM"
-	   "DEFINE-KEYSYM-SET" "DELETE-PROPERTY" "DELETE-RESOURCE"
-	   "DESTROY-SUBWINDOWS" "DESTROY-WINDOW" "DEVICE-BUSY"
-	   "DEVICE-EVENT-MASK" "DEVICE-EVENT-MASK-CLASS"
-	   "DISCARD-CURRENT-EVENT" "DISCARD-FONT-INFO" "DISPLAY"
-	   "DISPLAY-AFTER-FUNCTION" "DISPLAY-AUTHORIZATION-DATA"
-	   "DISPLAY-AUTHORIZATION-NAME" "DISPLAY-BITMAP-FORMAT"
-	   "DISPLAY-BYTE-ORDER" "DISPLAY-DEFAULT-SCREEN" "DISPLAY-DISPLAY"
-	   "DISPLAY-ERROR-HANDLER" "DISPLAY-FINISH-OUTPUT"
-	   "DISPLAY-FORCE-OUTPUT" "DISPLAY-HOST" "DISPLAY-IMAGE-LSB-FIRST-P"
-	   "DISPLAY-INVOKE-AFTER-FUNCTION" "DISPLAY-KEYCODE-RANGE"
-	   "DISPLAY-MAX-KEYCODE" "DISPLAY-MAX-REQUEST-LENGTH"
-	   "DISPLAY-MIN-KEYCODE" "DISPLAY-MOTION-BUFFER-SIZE"
-	   "DISPLAY-NSCREENS" "DISPLAY-P" "DISPLAY-PIXMAP-FORMATS"
-	   "DISPLAY-PLIST" "DISPLAY-PROTOCOL-MAJOR-VERSION"
-	   "DISPLAY-PROTOCOL-MINOR-VERSION" "DISPLAY-PROTOCOL-VERSION"
-	   "DISPLAY-RELEASE-NUMBER" "DISPLAY-REPORT-ASYNCHRONOUS-ERRORS"
-	   "DISPLAY-RESOURCE-ID-BASE" "DISPLAY-RESOURCE-ID-MASK"
-	   "DISPLAY-ROOTS" "DISPLAY-VENDOR" "DISPLAY-VENDOR-NAME"
-	   "DISPLAY-XDEFAULTS" "DISPLAY-XID" "DRAW-ARC" "DRAW-ARCS"
-	   "DRAW-DIRECTION" "DRAW-GLYPH" "DRAW-GLYPHS" "DRAW-IMAGE-GLYPH"
-	   "DRAW-IMAGE-GLYPHS" "DRAW-LINE" "DRAW-LINES" "DRAW-POINT"
-	   "DRAW-POINTS" "DRAW-RECTANGLE" "DRAW-RECTANGLES" "DRAW-SEGMENTS"
-	   "DRAWABLE" "DRAWABLE-BORDER-WIDTH" "DRAWABLE-DEPTH"
-	   "DRAWABLE-DISPLAY" "DRAWABLE-EQUAL" "DRAWABLE-ERROR"
-	   "DRAWABLE-HEIGHT" "DRAWABLE-ID" "DRAWABLE-P" "DRAWABLE-PLIST"
-	   "DRAWABLE-ROOT" "DRAWABLE-WIDTH" "DRAWABLE-X" "DRAWABLE-Y"
-	   "ERROR-KEY" "EVENT-CASE" "EVENT-COND" "EVENT-HANDLER" "EVENT-KEY"
-	   "EVENT-LISTEN" "EVENT-MASK" "EVENT-MASK-CLASS" "EXTENSION-OPCODE"
-	   "FIND-ATOM" "FONT" "FONT-ALL-CHARS-EXIST-P" "FONT-ASCENT"
-	   "FONT-DEFAULT-CHAR" "FONT-DESCENT" "FONT-DIRECTION" "FONT-DISPLAY"
-	   "FONT-EQUAL" "FONT-ERROR" "FONT-ID" "FONT-MAX-BYTE1"
-	   "FONT-MAX-BYTE2" "FONT-MAX-CHAR" "FONT-MIN-BYTE1" "FONT-MIN-BYTE2"
-	   "FONT-MIN-CHAR" "FONT-NAME" "FONT-P" "FONT-PATH" "FONT-PLIST"
-	   "FONT-PROPERTIES" "FONT-PROPERTY" "FONTABLE"
-	   "FORCE-GCONTEXT-CHANGES" "FREE-COLORMAP" "FREE-COLORS"
-	   "FREE-CURSOR" "FREE-GCONTEXT" "FREE-PIXMAP" "GCONTEXT"
-	   "GCONTEXT-ARC-MODE" "GCONTEXT-BACKGROUND" "GCONTEXT-CACHE-P"
-	   "GCONTEXT-CAP-STYLE" "GCONTEXT-CLIP-MASK" "GCONTEXT-CLIP-ORDERING"
-	   "GCONTEXT-CLIP-X" "GCONTEXT-CLIP-Y" "GCONTEXT-DASH-OFFSET"
-	   "GCONTEXT-DASHES" "GCONTEXT-DISPLAY" "GCONTEXT-EQUAL"
-	   "GCONTEXT-ERROR" "GCONTEXT-EXPOSURES" "GCONTEXT-FILL-RULE"
-	   "GCONTEXT-FILL-STYLE" "GCONTEXT-FONT" "GCONTEXT-FOREGROUND"
-	   "GCONTEXT-FUNCTION" "GCONTEXT-ID" "GCONTEXT-JOIN-STYLE"
-	   "GCONTEXT-KEY" "GCONTEXT-LINE-STYLE" "GCONTEXT-LINE-WIDTH"
-	   "GCONTEXT-P" "GCONTEXT-PLANE-MASK" "GCONTEXT-PLIST"
-	   "GCONTEXT-STIPPLE" "GCONTEXT-SUBWINDOW-MODE" "GCONTEXT-TILE"
-	   "GCONTEXT-TS-X" "GCONTEXT-TS-Y" "GET-EXTERNAL-EVENT-CODE"
-	   "GET-IMAGE" "GET-PROPERTY" "GET-RAW-IMAGE" "GET-RESOURCE"
-	   "GET-SEARCH-RESOURCE" "GET-SEARCH-TABLE" "GET-STANDARD-COLORMAP"
-	   "GET-WM-CLASS" "GLOBAL-POINTER-POSITION" "GRAB-BUTTON" "GRAB-KEY"
-	   "GRAB-KEYBOARD" "GRAB-POINTER" "GRAB-SERVER" "GRAB-STATUS"
-	   "ICON-SIZES" "ICONIFY-WINDOW" "ID-CHOICE-ERROR"
-	   "ILLEGAL-REQUEST-ERROR" "IMAGE" "IMAGE-BLUE-MASK" "IMAGE-DEPTH"
-	   "IMAGE-GREEN-MASK" "IMAGE-HEIGHT" "IMAGE-NAME" "IMAGE-PIXMAP"
-	   "IMAGE-PLIST" "IMAGE-RED-MASK" "IMAGE-WIDTH" "IMAGE-X"
-	   "IMAGE-X-HOT" "IMAGE-X-P" "IMAGE-XY" "IMAGE-XY-BITMAP-LIST"
-	   "IMAGE-XY-P" "IMAGE-Y-HOT" "IMAGE-Z" "IMAGE-Z-BITS-PER-PIXEL"
-	   "IMAGE-Z-P" "IMAGE-Z-PIXARRAY" "IMPLEMENTATION-ERROR"
-	   "INPUT-FOCUS" "INSTALL-COLORMAP" "INSTALLED-COLORMAPS" "INT16"
-	   "INT32" "INT8" "INTERN-ATOM" "INVALID-FONT" "KEYBOARD-CONTROL"
-	   "KEYBOARD-MAPPING" "KEYCODE->CHARACTER" "KEYCODE->KEYSYM" "KEYSYM"
-	   "KEYSYM->CHARACTER" "KEYSYM->KEYCODES" "KEYSYM-IN-MAP-P"
-	   "KEYSYM-SET" "KILL-CLIENT" "KILL-TEMPORARY-CLIENTS" "LENGTH-ERROR"
-	   "LIST-EXTENSIONS" "LIST-FONT-NAMES" "LIST-FONTS" "LIST-PROPERTIES"
-	   "LOAD-CLX" "LOOKUP-COLOR" "LOOKUP-ERROR" "MAKE-COLOR"
-	   "MAKE-EVENT-HANDLERS" "MAKE-EVENT-KEYS" "MAKE-EVENT-MASK"
-	   "MAKE-RESOURCE-DATABASE" "MAKE-STATE-KEYS" "MAKE-STATE-MASK"
-	   "MAKE-WM-HINTS" "MAKE-WM-SIZE-HINTS" "MAP-RESOURCE"
-	   "MAP-SUBWINDOWS" "MAP-WINDOW" "MAPPING-NOTIFY" "MASK16" "MASK32"
-	   "MATCH-ERROR" "MAX-CHAR-ASCENT" "MAX-CHAR-ATTRIBUTES"
-	   "MAX-CHAR-DESCENT" "MAX-CHAR-LEFT-BEARING"
-	   "MAX-CHAR-RIGHT-BEARING" "MAX-CHAR-WIDTH" "MERGE-RESOURCES"
-	   "MIN-CHAR-ASCENT" "MIN-CHAR-ATTRIBUTES" "MIN-CHAR-DESCENT"
-	   "MIN-CHAR-LEFT-BEARING" "MIN-CHAR-RIGHT-BEARING" "MIN-CHAR-WIDTH"
-	   "MISSING-PARAMETER" "MODIFIER-KEY" "MODIFIER-MAPPING"
-	   "MODIFIER-MASK" "MOTION-EVENTS" "NAME-ERROR" "NO-OPERATION"
-	   "OPEN-DISPLAY" "OPEN-FONT" "PIXARRAY" "PIXEL" "PIXMAP"
-	   "PIXMAP-DISPLAY" "PIXMAP-EQUAL" "PIXMAP-ERROR" "PIXMAP-FORMAT"
-	   "PIXMAP-FORMAT-BITS-PER-PIXEL" "PIXMAP-FORMAT-DEPTH"
-	   "PIXMAP-FORMAT-P" "PIXMAP-FORMAT-SCANLINE-PAD" "PIXMAP-ID"
-	   "PIXMAP-P" "PIXMAP-PLIST" "POINT-SEQ" "POINTER-CONTROL"
-	   "POINTER-EVENT-MASK" "POINTER-EVENT-MASK-CLASS" "POINTER-MAPPING"
-	   "POINTER-POSITION" "PROCESS-EVENT" "PUT-IMAGE" "PUT-RAW-IMAGE"
-	   "QUERY-BEST-CURSOR" "QUERY-BEST-STIPPLE" "QUERY-BEST-TILE"
-	   "QUERY-COLORS" "QUERY-EXTENSION" "QUERY-KEYMAP" "QUERY-POINTER"
-	   "QUERY-TREE" "QUEUE-EVENT" "READ-BITMAP-FILE" "READ-RESOURCES"
-	   "RECOLOR-CURSOR" "RECT-SEQ" "REMOVE-ACCESS-HOST"
-	   "REMOVE-FROM-SAVE-SET" "REPARENT-WINDOW" "REPEAT-SEQ"
-	   "REPLY-LENGTH-ERROR" "REPLY-TIMEOUT" "REQUEST-ERROR"
-	   "RESET-SCREEN-SAVER" "RESOURCE-DATABASE"
-	   "RESOURCE-DATABASE-TIMESTAMP" "RESOURCE-ERROR" "RESOURCE-ID"
-	   "RESOURCE-KEY" "RGB-COLORMAPS" "RGB-VAL" "ROOT-RESOURCES"
-	   "ROTATE-CUT-BUFFERS" "ROTATE-PROPERTIES" "SCREEN"
-	   "SCREEN-BACKING-STORES" "SCREEN-BLACK-PIXEL"
-	   "SCREEN-DEFAULT-COLORMAP" "SCREEN-DEPTHS"
-	   "SCREEN-EVENT-MASK-AT-OPEN" "SCREEN-HEIGHT"
-	   "SCREEN-HEIGHT-IN-MILLIMETERS" "SCREEN-MAX-INSTALLED-MAPS"
-	   "SCREEN-MIN-INSTALLED-MAPS" "SCREEN-P" "SCREEN-PLIST"
-	   "SCREEN-ROOT" "SCREEN-ROOT-DEPTH" "SCREEN-ROOT-VISUAL"
-	   "SCREEN-ROOT-VISUAL-INFO" "SCREEN-SAVE-UNDERS-P" "SCREEN-SAVER"
-	   "SCREEN-WHITE-PIXEL" "SCREEN-WIDTH" "SCREEN-WIDTH-IN-MILLIMETERS"
-	   "SEG-SEQ" "SELECTION-OWNER" "SEND-EVENT" "SEQUENCE-ERROR"
-	   "SET-ACCESS-CONTROL" "SET-CLOSE-DOWN-MODE" "SET-INPUT-FOCUS"
-	   "SET-MODIFIER-MAPPING" "SET-POINTER-MAPPING" "SET-SCREEN-SAVER"
-	   "SET-SELECTION-OWNER" "SET-STANDARD-COLORMAP"
-	   "SET-STANDARD-PROPERTIES" "SET-WM-CLASS" "SET-WM-PROPERTIES"
-	   "SET-WM-RESOURCES" "STATE-KEYSYM-P" "STATE-MASK-KEY" "STORE-COLOR"
-	   "STORE-COLORS" "STRINGABLE" "TEXT-EXTENTS" "TEXT-WIDTH"
-	   "TIMESTAMP" "TRANSIENT-FOR" "TRANSLATE-COORDINATES"
-	   "TRANSLATE-DEFAULT" "TRANSLATION-FUNCTION" "TYPE-ERROR"
-	   "UNDEFINE-KEYSYM" "UNEXPECTED-REPLY" "UNGRAB-BUTTON" "UNGRAB-KEY"
-	   "UNGRAB-KEYBOARD" "UNGRAB-POINTER" "UNGRAB-SERVER"
-	   "UNINSTALL-COLORMAP" "UNKNOWN-ERROR" "UNMAP-SUBWINDOWS"
-	   "UNMAP-WINDOW" "VALUE-ERROR" "VISUAL-INFO"
-	   "VISUAL-INFO-BITS-PER-RGB" "VISUAL-INFO-BLUE-MASK"
-	   "VISUAL-INFO-CLASS" "VISUAL-INFO-COLORMAP-ENTRIES"
-	   "VISUAL-INFO-DISPLAY" "VISUAL-INFO-GREEN-MASK" "VISUAL-INFO-ID"
-	   "VISUAL-INFO-P" "VISUAL-INFO-PLIST" "VISUAL-INFO-RED-MASK"
-	   "WARP-POINTER" "WARP-POINTER-IF-INSIDE" "WARP-POINTER-RELATIVE"
-	   "WARP-POINTER-RELATIVE-IF-INSIDE" "WIN-GRAVITY" "WINDOW"
-	   "WINDOW-ALL-EVENT-MASKS" "WINDOW-BACKGROUND"
-	   "WINDOW-BACKING-PIXEL" "WINDOW-BACKING-PLANES"
-	   "WINDOW-BACKING-STORE" "WINDOW-BIT-GRAVITY" "WINDOW-BORDER"
-	   "WINDOW-CLASS" "WINDOW-COLORMAP" "WINDOW-COLORMAP-INSTALLED-P"
-	   "WINDOW-CURSOR" "WINDOW-DISPLAY" "WINDOW-DO-NOT-PROPAGATE-MASK"
-	   "WINDOW-EQUAL" "WINDOW-ERROR" "WINDOW-EVENT-MASK" "WINDOW-GRAVITY"
-	   "WINDOW-ID" "WINDOW-MAP-STATE" "WINDOW-OVERRIDE-REDIRECT"
-	   "WINDOW-P" "WINDOW-PLIST" "WINDOW-PRIORITY" "WINDOW-SAVE-UNDER"
-	   "WINDOW-VISUAL" "WINDOW-VISUAL-INFO" "WITH-DISPLAY"
-	   "WITH-EVENT-QUEUE" "WITH-GCONTEXT" "WITH-SERVER-GRABBED"
-	   "WITH-STATE" "WITHDRAW-WINDOW" "WM-CLIENT-MACHINE"
-	   "WM-COLORMAP-WINDOWS" "WM-COMMAND" "WM-HINTS" "WM-HINTS-FLAGS"
-	   "WM-HINTS-ICON-MASK" "WM-HINTS-ICON-PIXMAP" "WM-HINTS-ICON-WINDOW"
-	   "WM-HINTS-ICON-X" "WM-HINTS-ICON-Y" "WM-HINTS-INITIAL-STATE"
-	   "WM-HINTS-INPUT" "WM-HINTS-P" "WM-HINTS-WINDOW-GROUP"
-	   "WM-ICON-NAME" "WM-NAME" "WM-NORMAL-HINTS" "WM-PROTOCOLS"
-	   "WM-RESOURCES" "WM-SIZE-HINTS" "WM-SIZE-HINTS-BASE-HEIGHT"
-	   "WM-SIZE-HINTS-BASE-WIDTH" "WM-SIZE-HINTS-HEIGHT"
-	   "WM-SIZE-HINTS-HEIGHT-INC" "WM-SIZE-HINTS-MAX-ASPECT"
-	   "WM-SIZE-HINTS-MAX-HEIGHT" "WM-SIZE-HINTS-MAX-WIDTH"
-	   "WM-SIZE-HINTS-MIN-ASPECT" "WM-SIZE-HINTS-MIN-HEIGHT"
-	   "WM-SIZE-HINTS-MIN-WIDTH" "WM-SIZE-HINTS-P"
-	   "WM-SIZE-HINTS-USER-SPECIFIED-POSITION-P"
-	   "WM-SIZE-HINTS-USER-SPECIFIED-SIZE-P" "WM-SIZE-HINTS-WIDTH"
-	   "WM-SIZE-HINTS-WIDTH-INC" "WM-SIZE-HINTS-WIN-GRAVITY"
-	   "WM-SIZE-HINTS-X" "WM-SIZE-HINTS-Y" "WM-ZOOM-HINTS"
-	   "WRITE-BITMAP-FILE" "WRITE-RESOURCES" "XATOM"))
-
 (defpackage "C-CALL"
             (:export "C-STRING" "CHAR" "DOUBLE" "FLOAT" "INT" "LONG" "SHORT"
              "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT"
@@ -375,12 +160,6 @@
              "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM"
              "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS"
              "NEGATE-BIGNUM" "SUBTRACT-BIGNUM"))
-(defpackage "WALKER"
-            (:export "*VARIABLE-DECLARATIONS*" "DEFINE-WALKER-TEMPLATE"
-             "NESTED-WALK-FORM" "VARIABLE-DECLARATION"
-             "VARIABLE-GLOBALLY-SPECIAL-P" "VARIABLE-LEXICAL-P"
-             "VARIABLE-SPECIAL-P" "WALK-FORM"
-	     "WALK-FORM-EXPAND-MACROS-P" "MACROEXPAND-ALL"))
 
 (defpackage "UNIX"
             (:export "CADDR-T" "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN"
@@ -455,22 +234,7 @@
              "SIGTTOU" "EEXIST" "SIGPROF" "SIGSTOP" "ENETRESET" "SIGURG"
              "ENOBUFS" "EPROCLIM" "EROFS" "ETOOMANYREFS" "UNIX-FILE-KIND"
              "ELOCAL" "UNIX-SIGSETMASK" "EREMOTE" "ESOCKTNOSUPPORT"))
-(intern "FUNCALLABLE-INSTANCE-P" "KERNEL")
-(defpackage "PCL"
-            (:import-from "KERNEL" "FUNCALLABLE-INSTANCE-P")
-            (:shadow "DESTRUCTURING-BIND" "DOCUMENTATION"
-		     "FIND-CLASS" "CLASS-NAME" "CLASS-OF"
-		     "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
-		     "STRUCTURE-OBJECT" "STANDARD-CLASS" "DOCUMENTATION"
-		     "DOTIMES"))
 (defpackage "FORMAT")
-(defpackage "HEMLOCK" (:nicknames "ED"))
-(defpackage "SPELL"
-            (:export "CORRECT-SPELLING" "MAX-ENTRY-LENGTH"
-             "MAYBE-READ-SPELL-DICTIONARY" "SPELL-ADD-ENTRY"
-             "SPELL-COLLECT-CLOSE-WORDS" "SPELL-READ-DICTIONARY"
-             "SPELL-REMOVE-ENTRY" "SPELL-ROOT-FLAGS" "SPELL-ROOT-WORD"
-             "SPELL-TRY-WORD"))
 (defpackage "COMMON-LISP"
 	    (:nicknames "CL" "LISP")
 	    (:export "&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY"
@@ -770,11 +534,6 @@
              "INTERPRETED-FUNCTION-NAME" "INTERPRETED-FUNCTION-P"
              "INTERPRETED-FUNCTION-TYPE" "MAKE-INTERPRETED-FUNCTION"
              "TRACE-EVAL"))
-(defpackage "ITERATE"
-            (:export "*ITERATE-WARNINGS*" "COLLECTING" "EACHTIME" "ELEMENTS"
-             "GATHER" "GATHERING" "INTERVAL" "ITERATE" "ITERATE*" "JOINING"
-             "LIST-ELEMENTS" "LIST-TAILS" "MAXIMIZING" "MINIMIZING"
-             "PLIST-ELEMENTS" "SUMMING" "UNTIL" "WHILE" "WITH-GATHERING"))
 (dolist
     (name
      '("%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT" "%RPLACA" "%RPLACD"
@@ -1147,101 +906,6 @@
 			  "*BYTE-COMPILE-TOP-LEVEL*"
 			  "*BYTE-COMPILE-DEFAULT*"))
 (defpackage "LOOP")
-(defpackage "HEMLOCK-INTERNALS"
-	    (:nicknames "HI")
-            (:export "*BUFFER-LIST*" "*BUFFER-NAMES*"
-             "*CHARACTER-ATTRIBUTE-NAMES*" "*COMMAND-NAMES*"
-             "*CREATE-INITIAL-WINDOWS-HOOK*" "*CREATE-WINDOW-HOOK*"
-             "*DELETE-WINDOW-HOOK*" "*ECHO-AREA-BUFFER*" "*ECHO-AREA-STREAM*"
-             "*ECHO-AREA-WINDOW*" "*EDITOR-INPUT*" "*GLOBAL-VARIABLE-NAMES*"
-             "*INPUT-TRANSCRIPT*" "*INVOKE-HOOK*" "*KEY-EVENT-HISTORY*"
-             "*LAST-KEY-EVENT-TYPED*" "*LOGICAL-KEY-EVENT-NAMES*"
-             "*MODE-NAMES*" "*PARSE-DEFAULT*" "*PARSE-DEFAULT-STRING*"
-             "*PARSE-HELP*" "*PARSE-INPUT-REGION*" "*PARSE-PROMPT*"
-             "*PARSE-STARTING-MARK*" "*PARSE-STRING-TABLES*" "*PARSE-TYPE*"
-             "*PARSE-VALUE-MUST-EXIST*" "*PARSE-VERIFICATION-FUNCTION*"
-             "*PRINT-REGION*" "*RANDOM-TYPEOUT-BUFFERS*"
-             "*RANDOM-TYPEOUT-HOOK*" "*REAL-EDITOR-INPUT*" "*WINDOW-LIST*"
-             "ABORT-RECURSIVE-EDIT" "ADD-HOOK" "AFTER-EDITOR-INITIALIZATIONS"
-             "BIND-KEY" "BLANK-AFTER-P" "BLANK-BEFORE-P" "BLANK-LINE-P"
-             "BUFFER" "BUFFER-DELETE-HOOK" "BUFFER-END" "BUFFER-END-MARK"
-             "BUFFER-MAJOR-MODE" "BUFFER-MINOR-MODE" "BUFFER-MODELINE-FIELD-P"
-             "BUFFER-MODELINE-FIELDS" "BUFFER-MODES" "BUFFER-MODIFIED"
-             "BUFFER-NAME" "BUFFER-PATHNAME" "BUFFER-POINT" "BUFFER-REGION"
-             "BUFFER-SIGNATURE" "BUFFER-START" "BUFFER-START-MARK"
-             "BUFFER-VARIABLES" "BUFFER-WINDOWS" "BUFFER-WRITABLE"
-             "BUFFER-WRITE-DATE" "BUFFERP" "CENTER-WINDOW"
-             "CHARACTER-ATTRIBUTE" "CHARACTER-ATTRIBUTE-DOCUMENTATION"
-             "CHARACTER-ATTRIBUTE-HOOKS" "CHARACTER-ATTRIBUTE-NAME"
-             "CHARACTER-ATTRIBUTE-P" "CHARACTER-OFFSET" "CLEAR-ECHO-AREA"
-             "CLEAR-EDITOR-INPUT" "CLRSTRING" "COMMAND" "COMMAND-BINDINGS"
-             "COMMAND-CASE" "COMMAND-DOCUMENTATION" "COMMAND-FUNCTION"
-             "COMMAND-NAME" "COMMANDP" "COMPLETE-STRING" "COPY-MARK"
-             "COPY-REGION" "COUNT-CHARACTERS" "COUNT-LINES" "CURRENT-BUFFER"
-             "CURRENT-POINT" "CURRENT-VARIABLE-TABLES" "CURRENT-WINDOW"
-             "CURSORPOS-TO-MARK" "DEFATTRIBUTE" "DEFAULT-FONT" "DEFCOMMAND"
-             "DEFHVAR" "DEFINE-LOGICAL-KEY-EVENT" "DEFINE-TTY-FONT" "DEFMODE"
-             "DELETE-AND-SAVE-REGION" "DELETE-BUFFER" "DELETE-CHARACTERS"
-             "DELETE-FONT-MARK" "DELETE-KEY-BINDING" "DELETE-LINE-FONT-MARKS"
-             "DELETE-MARK" "DELETE-REGION" "DELETE-STRING" "DELETE-VARIABLE"
-             "DELETE-WINDOW" "DIRECTORYP" "DISPLAYED-P" "DO-ALPHA-CHARS"
-             "DO-STRINGS" "EDITOR-DESCRIBE-FUNCTION" "EDITOR-ERROR"
-             "EDITOR-ERROR-FORMAT-ARGUMENTS" "EDITOR-ERROR-FORMAT-STRING"
-             "EDITOR-FINISH-OUTPUT" "EDITOR-SLEEP" "EMPTY-LINE-P" "END-LINE-P"
-             "ENTER-WINDOW-AUTORAISE" "EXIT-HEMLOCK" "EXIT-RECURSIVE-EDIT"
-             "FETCH-CUT-STRING" "FILTER-REGION" "FIND-AMBIGUOUS"
-             "FIND-ATTRIBUTE" "FIND-CONTAINING" "FIND-PATTERN" "FIRST-LINE-P"
-             "FONT-MARK" "FUN-DEFINED-FROM-PATHNAME" "GET-COMMAND"
-             "GET-KEY-EVENT" "GETSTRING" "HANDLE-LISP-ERRORS" "HEMLOCK-BOUND-P"
-             "HEMLOCK-OUTPUT-STREAM" "HEMLOCK-OUTPUT-STREAM-P"
-             "HEMLOCK-REGION-STREAM" "HEMLOCK-REGION-STREAM-P" "HLET"
-             "IN-RECURSIVE-EDIT" "INPUT-WAITING" "INSERT-CHARACTER"
-             "INSERT-REGION" "INSERT-STRING" "INVOKE-HOOK" "KEY-TRANSLATION"
-             "LAST-COMMAND-TYPE" "LAST-KEY-EVENT-CURSORPOS" "LAST-LINE-P"
-             "LINE" "LINE-BUFFER" "LINE-CHARACTER" "LINE-END" "LINE-LENGTH"
-             "LINE-NEXT" "LINE-OFFSET" "LINE-PLIST" "LINE-PREVIOUS"
-             "LINE-SIGNATURE" "LINE-START" "LINE-STRING" "LINE-TO-REGION"
-             "LINE<" "LINE<=" "LINE>" "LINE>=" "LINEP" "LINES-RELATED"
-             "LISTEN-EDITOR-INPUT" "LOGICAL-KEY-EVENT-DOCUMENTATION"
-             "LOGICAL-KEY-EVENT-KEY-EVENTS" "LOGICAL-KEY-EVENT-NAME"
-             "LOGICAL-KEY-EVENT-P" "LOUD-MESSAGE" "MAKE-BUFFER" "MAKE-COMMAND"
-             "MAKE-EMPTY-REGION" "MAKE-HEMLOCK-OUTPUT-STREAM"
-             "MAKE-HEMLOCK-REGION-STREAM" "MAKE-KBDMAC-STREAM"
-             "MAKE-MODELINE-FIELD" "MAKE-RING" "MAKE-STRING-TABLE"
-             "MAKE-WINDOW" "MAKE-XWINDOW-LIKE-HWINDOW" "MAP-BINDINGS" "MARK"
-             "MARK-AFTER" "MARK-BEFORE" "MARK-CHARPOS" "MARK-COLUMN"
-             "MARK-KIND" "MARK-LINE" "MARK-TO-CURSORPOS" "MARK/=" "MARK<"
-             "MARK<=" "MARK=" "MARK>" "MARK>=" "MARKP"
-             "MERGE-RELATIVE-PATHNAMES" "MESSAGE" "MODE-DOCUMENTATION"
-             "MODE-MAJOR-P" "MODE-VARIABLES" "MODELINE-FIELD"
-             "MODELINE-FIELD-FUNCTION" "MODELINE-FIELD-NAME" "MODELINE-FIELD-P"
-             "MODELINE-FIELD-WIDTH" "MODIFY-KBDMAC-STREAM" "MOVE-FONT-MARK"
-             "MOVE-MARK" "MOVE-TO-COLUMN" "MOVE-TO-POSITION"
-             "NEW-SEARCH-PATTERN" "NEXT-CHARACTER" "NEXT-WINDOW"
-             "NINSERT-REGION" "PAUSE-HEMLOCK" "PREFIX-ARGUMENT"
-             "PREVIOUS-CHARACTER" "PREVIOUS-WINDOW" "PROMPT-FOR-BUFFER"
-             "PROMPT-FOR-EXPRESSION" "PROMPT-FOR-FILE" "PROMPT-FOR-INTEGER"
-             "PROMPT-FOR-KEY" "PROMPT-FOR-KEY-EVENT" "PROMPT-FOR-KEYWORD"
-             "PROMPT-FOR-STRING" "PROMPT-FOR-VARIABLE" "PROMPT-FOR-Y-OR-N"
-             "PROMPT-FOR-YES-OR-NO" "READ-FILE" "RECURSIVE-EDIT" "REDISPLAY"
-             "REDISPLAY-ALL" "REGION" "REGION-BOUNDS" "REGION-END"
-             "REGION-START" "REGION-TO-STRING" "REGIONP" "REMOVE-HOOK"
-             "REMOVE-SCHEDULED-EVENT" "REPLACE-PATTERN" "REPROMPT"
-             "REVERSE-FIND-ATTRIBUTE" "RING" "RING-LENGTH" "RING-POP"
-             "RING-PUSH" "RING-REF" "RINGP" "ROTATE-RING" "SAME-LINE-P"
-             "SCHEDULE-EVENT" "SCROLL-WINDOW" "SEARCH-CHAR-CODE-LIMIT"
-             "SEARCH-PATTERN" "SEARCH-PATTERN-P" "SET-REGION-BOUNDS" "SETV"
-             "SHADOW-ATTRIBUTE" "SHOW-MARK" "START-LINE-P" "STORE-CUT-STRING"
-             "STRING-TABLE" "STRING-TABLE-P" "STRING-TABLE-SEPARATOR"
-             "STRING-TO-REGION" "STRING-TO-VARIABLE" "SYNTAX-CHAR-CODE-LIMIT"
-             "UNGET-KEY-EVENT" "UNSHADOW-ATTRIBUTE" "UPDATE-MODELINE-FIELD"
-             "UPDATE-MODELINE-FIELDS" "USE-BUFFER" "VALUE"
-             "VARIABLE-DOCUMENTATION" "VARIABLE-HOOKS" "VARIABLE-NAME"
-             "VARIABLE-VALUE" "WINDOW" "WINDOW-BUFFER" "WINDOW-DISPLAY-END"
-             "WINDOW-DISPLAY-RECENTERING" "WINDOW-DISPLAY-START" "WINDOW-FONT"
-             "WINDOW-HEIGHT" "WINDOW-POINT" "WINDOW-WIDTH" "WINDOWP"
-             "WITH-INPUT-FROM-REGION" "WITH-MARK" "WITH-OUTPUT-TO-MARK"
-             "WITH-POP-UP-DISPLAY" "WITH-WRITABLE-BUFFER" "WRITE-FILE"))
 (dolist
     (name
      '("DEBUG-SOURCE" "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-CREATED"
@@ -1436,13 +1100,6 @@
 "%SET-FUNCTION-SELF"
 "IR2-COMPONENT-DYNCOUNT-INFO"
 ))
-
-(defpackage "DIRED"
-	    (:shadow "RENAME-FILE" "DELETE-FILE")
-            (:export "*CLOBBER-DEFAULT*" "*ERROR-FUNCTION*"
-             "*RECURSIVE-DEFAULT*" "*REPORT-FUNCTION*" "*UPDATE-DEFAULT*"
-             "*YESP-FUNCTION*" "COPY-FILE" "DELETE-FILE" "FIND-FILE"
-             "MAKE-DIRECTORY" "PATHNAMES-FROM-PATTERN" "RENAME-FILE"))
 (defpackage "WIRE"
             (:export "*CURRENT-WIRE*" "CONNECT-TO-REMOTE-SERVER"
              "CREATE-REQUEST-SERVER" "DESTROY-REQUEST-SERVER"
-- 
GitLab