diff --git a/lispusers/MEDLEY-FIX-DIRS b/internal/library/MEDLEY-UTILS
similarity index 100%
rename from lispusers/MEDLEY-FIX-DIRS
rename to internal/library/MEDLEY-UTILS
diff --git a/sunloadup/#LOADUP.LISP# b/sunloadup/#LOADUP.LISP#
deleted file mode 100644
index e86b0210..00000000
Binary files a/sunloadup/#LOADUP.LISP# and /dev/null differ
diff --git a/sunloadup/INIT.MAKEINIT-MAIN% b/sunloadup/INIT.MAKEINIT-MAIN%
deleted file mode 100644
index f27b33c8..00000000
--- a/sunloadup/INIT.MAKEINIT-MAIN%
+++ /dev/null
@@ -1,34 +0,0 @@
-;
-;	Run MAKEINIT on SUN
-;	'90/02/09 Osamu
-;	'90.05/23 change DIRECTORIES
-;
-(CL:IN-PACKAGE "IL")
-(DRIBBLE "{DSK}SUNLOADUP/LOADUP.LOG")
-(SETQ DIRECTORIES '(
-	"{DSK}/usr/local/lde/lispcore/sources/" 
-	"{DSK}/usr/local/lde/lispcore/library/" 
-	"{DSK}/usr/local/lde/lispcore/internal/library/"
-	"{DSK}/python1/fuji/sunloadup/"
-	"{dsk}/users/sybalsky/lispcore/sunloadup/" ))
-(LOAD "{dsk}SUNLOADUP/FILESETS")
-(FILESLOAD RENAMEFNS MAKEINIT DLFIXINIT CMLARRAY-SUPPORT)
-(LOAD "{DSK}SUNLOADUP/FASTINIT.DFASL")
-;; turn off idle or you get stuck.
-(IDLE.SET.OPTION 'TIMEOUT T)
-;;and start making the init.  This takes about 2.5 hrs.
-(PROGN 
-  (DORENAME 'I)
-  (DLFIXINIT
-   (MAKEINIT '(11500Q 13062Q 25400Q)
-      NIL NIL
-      '({DSK}/usr/local/lde/lispcore/sources/
-        {dsk}/users/osamu/sunloadup/
-	{DSK}/python1/fuji/sunloadup/ ))
-   '{DSK}INIT.DLINIT
-   '{dsk}/python1/fuji/sunloadup/LISPDLION.DB
-   300)
-  (DATE)
-  (DRIBBLE)
-  (LOGOUT T)
-)
diff --git a/sunloadup/LOADUP-REM.CM% b/sunloadup/LOADUP-REM.CM%
deleted file mode 100644
index 4230049a..00000000
--- a/sunloadup/LOADUP-REM.CM%
+++ /dev/null
@@ -1,6 +0,0 @@
-"
-(SETQQ MAKESYSNAME LISPCORE)
-(PROGN (LOAD (QUOTE {dsk}SUNLOADUP/LOADUP.LISP))(HARDRESET))
-SHH(PROGN (IL:ENDLOADUP) (IL:SPECVARS . T) (IL:MAKESYS 'LISP.SYSOUT))
-"
-
diff --git a/sunloadup/LOADUP.LISP% b/sunloadup/LOADUP.LISP%
deleted file mode 100644
index 8d0eb45a..00000000
--- a/sunloadup/LOADUP.LISP%
+++ /dev/null
@@ -1,85 +0,0 @@
-(SETQQ COMPILE.EXT LCOM)
-(SETQ COMPILER*HOST-ARCHITECTURE* (QUOTE (3-BYTE)))
-(SETQ SYSFILES (UNION BOOTLOADEDFILES SYSFILES))
-
-(SETQ BOOTLOADEDFILES)
-
-(* "following files are really loaded earlier, this call to LOADUP just cleans up")
-(LOADUP (QUOTE (ACODE MACHINEINDEPENDENT POSTLOADUP)))
-
-(* "establish all package exports early")
-(LOADUP (QUOTE (LISP-PACKAGE FASL-PACKAGE D-ASSEM-PACKAGE COMPILER-PACKAGE)))
-
-(* "turn on FTP so that loadup will be faster")
-(LOADUP (QUOTE (BSP DPUPFTP)))
-
-(* "load FASL loader here, so we can load DFASLs earlier in loadup")
-(LOADUP (QUOTE (ERROR-RUNTIME CMLARITH CONDITION-HIERARCHY CMLHASH D-ASSEM FASLOAD)))
-
-(* "These are needed by any FASL files")
-(LOADUP (QUOTE (DEFFER-RUNTIME CMLPRINT CLSTREAMS CMLSTRING CMLSYMBOL CMLTYPES CMLSEQCOMMON CMLSEQMAPPERS CMLPATHNAME CMLFILESYS)))
-
-(* * * "FASL files may be loaded after this point" * * *)
-
-(LOADUP (QUOTE (CMLDEFFER ERROR-RUNTIME-AFTER-FASL WRAPPERS)))
-
-(* "early runtime support for Common Lisp and (temporarily) debugger")
-(LOADUP (QUOTE (STACKFNS CMLMVS MACROS MACROAUX UNWINDMACROS)))
-
-(LOADUP (QUOTE (COMMON XCLC-RUNTIME CMLTYPES CL-ERROR)))
-
-(LOADUP (QUOTE (AFONT EDIT WEDIT PRETTY DSPRINTDEF NEWPRINTDEF FONTPROFILE SPELLFILE PRINTFN LOADFNS DMISC DIRECTORY SPELLFILE FILEPKG RESOURCE)))
-
-(* "The Byte Compiler (DLAP, BYTECOMPILER, COMPILER) used to be here.  Moved after
-    XCL Compiler so that one byte compiler init will work.  JDS 10/11/89")
-
-(LOADUP (QUOTE (HIST UNDO SPELL DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD)))
-
-(LOADUP (QUOTE (GAINSPACE COROUTINE ARGLIST ASKUSER SYSPRETTY COMMON COMPARE)))
-
-(DWIM (QUOTE C))
-
-(* "Kernel Common Lisp files")
-(LOADUP (QUOTE (CMLSTEP CMLDOC CMLPARSE CMLSETF CMLPRED CMLREAD WALKER CMLSEQFINDER CMLSEQMODIFY CMLSORT DEFSTRUCT CMLMISCIO CMLCOMPILE CMLDESTRUCT CL-ERROR CMLFORMAT CMLENVIRONMENT CMLLOAD CMLFLOAT CMLTIME CMLRAND CMLMODULES)))
-
-(LOADUP (QUOTE (PROFILE CMLEXEC EXEC-COMMANDS DEBUGGER IL-ERROR-STUFF DEBUGEDIT)))
-
-(LOADUP (QUOTE (ADDARITH)))
-
-(LOADUP (QUOTE (CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW WINDOWICON LOGOW PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE CMLARRAYINSPECTOR EDITINTERFACE TTYIN)))
-
-(LOADUP (QUOTE (BREAK-AND-TRACE)))
-
-(LOADUP (QUOTE (FASDUMP XCL-COMPILER ADVISE)))
-
-(* "the bytecompiler and Interlisp compiler interface functions")
-(LOADUP (QUOTE (DLAP BYTECOMPILER COMPILE)))
-
-
-(LOADUP (QUOTE (DISKDLION DOVEINPUTOUTPUT DOVEDISK DOVEDISPLAY DOVEMISC DOVEETHER DOVEFLOPPY LOCALFILE DSKDISPLAY 10MBDRIVER MAIKOETHER LLNS TRSERVER SPP COURIER NSPRINT CLEARINGHOUSE NSFILING HARDCOPY INTERPRESS FLOPPY IDLER ICONW FREEMENU SEDIT)))
-
-(LOADUP (QUOTE (DSK UFS UFSCALLC MAIKOBITBLT)))
-
-(LOADUP (QUOTE (TIME)))
-
-(LOADUP (QUOTE (XCL-EXTRAS)))
-
-(* "CMLPACKAGE pushes onto INSPECTMACROS")
-(LOADUP (QUOTE (CMLPACKAGE)))
-
-(* "Puts ARGNAME properties on CL and XCL functions that IL:SMARTARGLIST can't hack. Keep this last so everything will be defined when it runs")
-(LOADUP (QUOTE (CMLSMARTARGS)))
-
-(LOADUP (QUOTE (IMPLICIT-KEY-HASH CLOSURE-CACHE)))
-
-(* "Already enabled, but this time fixes tables that weren't defined in the init")
-(PACKAGE-ENABLE)
-
-(* "The ethernet eventfn was removed in the early INIT building, to avoid trouble with turning on the ENet in ldeinit.  Put it back, now:")
-(SETQ \MACHINETYPE 3)
-(MOVD (QUOTE \ETHEREVENTFN-) (QUOTE \ETHEREVENTFN))
-(MOVD NIL (QUOTE \ETHEREVENTFN-))
-(\NSINIT)
-(RESTART.ETHER)
-
-STOP
diff --git a/sunloadup/runloadfull% b/sunloadup/runloadfull%
deleted file mode 100644
index 88b336a7..00000000
--- a/sunloadup/runloadfull%
+++ /dev/null
@@ -1,38 +0,0 @@
-#! /bin/csh -f
-#
-#	automatic loadup procedure thru to FULL.SYSOUT
-#
-#set LDE			= $HOME/maiko/sunos4.sparc/lde
-set LDE			= $HOME/maiko/sunos4.sparc/ldeether
-set LDEPATH		= $HOME/maiko/sunos4.sparc
-set INITLDE		= $HOME/maiko/sunos4.sparc/ldeinit
-set INITLDEPATH		= $HOME/maiko/init.sparc
-set FULL_SYSOUT		= /usr/local/sysouts/FULL.SYSOUT
-set FIRST_REM_CM	= $HOME/SUNLOADUP/XREM.CM
-set SECOND_REM_CM	= $HOME/SUNLOADUP/LOADFULL-REM.CM
-#
-
-#first create INIT.SYSOUT and INIT.DLINIT
-set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
-setenv	LDEINIT	$HOME/SUNLOADUP/INIT.MAKEINITFULL
-rm ~/REM.CM
-$LDE $FULL_SYSOUT
-#ldeether $FULL_SYSOUT
-
-# Boot INIT.DLINIT and LOGOUT.
-set path=($INITLDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
-unsetenv LDEDESTSYSOUT
-cp $FIRST_REM_CM ~/REM.CM
-# save your lisp.virtualmem
-if( -e ~/lisp.virtualmem ) then
-	mv ~/lisp.virtualmem ~/lisp.virtualmem.save
-endif
-$INITLDE ~/INIT.DLINIT -INIT 
-
-# Finally boot ~/lisp.virtualmem created by previous LOGOUT,
-# and MAKESYS LISP.SYSOUT
-set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
-cp $SECOND_REM_CM ~/REM.CM
-$LDE ~/lisp.virtualmem
-
-#~/ldemulti3 ~/lisp.virtualmem -NF
diff --git a/sunloadup/runloadup% b/sunloadup/runloadup%
deleted file mode 100644
index 9274b6a0..00000000
--- a/sunloadup/runloadup%
+++ /dev/null
@@ -1,38 +0,0 @@
-#! /bin/csh -f
-#
-#	automatic loadup procedure
-#
-#set LDE			= $HOME/maiko/sunos4.sparc/lde
-set LDE			= $HOME/maiko/sunos4.sparc/ldeether
-set LDEPATH		= $HOME
-set INITLDE		= $HOME/maiko/sunos4.sparc/ldeinit
-set INITLDEPATH		= $HOME/maiko/init.sparc
-set FULL_SYSOUT		= $HOME/sysouts/FULL.SYSOUT
-set FIRST_REM_CM	= $HOME/SUNLOADUP/XREM.CM
-set SECOND_REM_CM	= $HOME/SUNLOADUP/LOADUP-REM.CM
-#
-
-#first create INIT.SYSOUT and INIT.DLINIT
-set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
-setenv	LDEINIT	$HOME/SUNLOADUP/INIT.MAKEINIT
-rm ~/REM.CM
-#$LDE $FULL_SYSOUT
-ldeether $FULL_SYSOUT
-
-# Boot INIT.DLINIT and LOGOUT.
-set path=($INITLDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
-unsetenv LDEDESTSYSOUT
-cp $FIRST_REM_CM ~/REM.CM
-# save your lisp.virtualmem
-if( -e ~/lisp.virtualmem ) then
-	mv ~/lisp.virtualmem ~/lisp.virtualmem.save
-endif
-$INITLDE ~/INIT.DLINIT -INIT 
-
-# Finally boot ~/lisp.virtualmem created by previous LOGOUT,
-# and MAKESYS LISP.SYSOUT
-set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
-cp $SECOND_REM_CM ~/REM.CM
-$LDE ~/lisp.virtualmem
-
-#~/ldemulti3 ~/lisp.virtualmem -NF
diff --git a/sunloadup/runloadup-2nd% b/sunloadup/runloadup-2nd%
deleted file mode 100644
index 7e5cdbe2..00000000
--- a/sunloadup/runloadup-2nd%
+++ /dev/null
@@ -1,31 +0,0 @@
-#! /bin/csh -f
-#
-#	automatic loadup procedure
-#	run 2nd and 3rd step for loadup
-#
-set LDE			= $HOME/maiko/sunos4.sparc/lde
-set LDEPATH		= $HOME/maiko/sunos4.sparc
-set INITLDE		= $HOME/maiko/init.sparc/lde
-set INITLDEPATH		= $HOME/maiko/init.sparc
-set FULL_SYSOUT		= /python1/fuji/sysouts/FULL.SYSOUT
-set FIRST_REM_CM	= $HOME/SUNLOADUP/XREM.CM
-set SECOND_REM_CM	= $HOME/SUNLOADUP/LOADUP-REM.CM
-#
-
-#first create INIT.SYSOUT and INIT.DLINIT
-
-# Boot INIT.DLINIT and LOGOUT.
-set path=($INITLDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
-unsetenv LDEDESTSYSOUT
-cp $FIRST_REM_CM ~/REM.CM
-# save your lisp.virtualmem
-if( -e ~/lisp.virtualmem ) then
-	mv ~/lisp.virtualmem ~/lisp.virtualmem.save
-endif
-$INITLDE ~/INIT.DLINIT -INIT 
-
-# Finally boot ~/lisp.virtualmem created by previous LOGOUT,
-# and MAKESYS LISP.SYSOUT
-set path=($LDEPATH /bin /usr/bin /usr/ucb /etc /usr/etc)
-cp $SECOND_REM_CM ~/REM.CM
-$LDE ~/lisp.virtualmem