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