* bc-util.boot ($newConstructorList): Move from setq.lisp to here.

	($createLocalLibDb): Likewise.
	* clam.boot ($hashNode): Likewise.
	* comp.lisp (|$compileDontDefineFunctions|): Likewise.
	* compiler.boot ($compileOnlyCertainItems): Likewise.
	* database.boot ($globalExposureGroupAlist): Likewise.
	* define.boot ($newCompCompare): Likewise.
	* format.boot ($permitWhere): Likewise.
	* g-boot.boot ($inDefLET): Likewise.
	($inDefIS): Likewise.
	($letGenVarCounter): Likewise.
	($isGenVarCounter): Likewise.
	* g-error.boot ($ReadingFile): Likewise.
	(handleLispBreakLoop): Remove special case on $cclSystem.
	* g-timer.boot (computeElapsedTime): Likewise.
	* g-util.boot ($interpOnly): Move from setq.lisp to here.
	* i-funsel.boot ($domPvar): Likewise.
	* i-object.boot ($immediateDataSymbol): Likewise.
	* i-output.boot ($algebraOutputStream): Likewise.
	(ERROROUTSTREAM): Likewise.
	(ERRORINSTREAM): Likewise.
	* i-spec2.boot ($InterpreterMacroAlist): Likewise.
	* i-syscmd.boot ($NonNullStream): Likewise.
	($NullStream): Likewise.
	($localExposureDataDefault): Likewise.
	($localExposureData): Likewise.
	* lisplib.boot ($functionLocations): Likewise.
	* msgdb.boot ($testingSystem): Likewise.
	* nlib.lisp (get-directory-list): Tidy.
	* nruncomp.boot ($devaluateList): Move from setq.lisp to here.
	($functorLocalParameters): Likewise.
	($insideCategoryPackageIfTrue): Likewise.
	($profileCompiler): Likewise.
	* nrunfast.boot ($doNotCompressHashTableIfTrue): Likewise.
	* nrungo.boot ($insideCompileBodyIfTrue): Likewise.
	* setvars.boot ($InitialCommandSynonymAlist): Likewise.
	($CommandSynonymAlist): Likewise.
	(setOutputLibrary): Simplify.
	* spad.lisp (|$newCompCompare|): Don't set here.
	(|$compileOnlyCertainItems|): Likewise.
	* sys-constants.boot ($BasicPredicates): Include SYMBOLP.
	($TriangleVariableList): Move from setq.lisp to here.
	($Any): Likewise.
	($Boolean): Likewise.
	($SingleInteger): Likewise.
	($QuotientField): Likewise.
	($ComplexInteger): Likewise.
	($OutputForm): Likewise.
	($FunctionalExpression): Likewise.
	($Expression): Likewise.
	($AnonymousFunction): Likewise.
	* sys-globals.boot (INPUT_-LIBRARIES): Likewise.
	(OUTPUT_-LIBRARY): Likewise.
	($newConlist): Likewise.
	($compilingInputFile): Likewise.
	($minivectorNames): Likewise.

1 files changed, 55 insertions, 1 deletions

diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot
index cc1f362c..c1523218 100644
--- a/src/interp/setvars.boot
+++ b/src/interp/setvars.boot
@@ -57,6 +57,60 @@ import '"macros"
 import '"debug"
 )package "BOOT"
 
+
+$InitialCommandSynonymAlist == '(
+   (?          . "what commands")
+   (ap         . "what things")
+   (apr        . "what things")
+   (apropos    . "what things")
+   (cache      . "set functions cache")
+   (cl         . "clear")
+   (cls        . "zsystemdevelopment )cls")
+   (cms        . "system")
+   (co         . "compiler")
+   (d          . "display")
+   (dep        . "display dependents")
+   (dependents . "display dependents")
+   (e          . "edit")
+   (expose     . "set expose add constructor")
+   (fc         . "zsystemdevelopment )c")
+   (fd         . "zsystemdevelopment )d")
+   (fdt        . "zsystemdevelopment )dt")
+   (fct        . "zsystemdevelopment )ct")
+   (fctl       . "zsystemdevelopment )ctl")
+   (fe         . "zsystemdevelopment )e")
+   (fec        . "zsystemdevelopment )ec")
+   (fect       . "zsystemdevelopment )ect")
+   (fns        . "exec spadfn")
+   (fortran    . "set output fortran")
+   (h          . "help")
+   (hd         . "system hypertex &")
+   (kclam      . "boot clearClams ( )")
+   (killcaches . "boot clearConstructorAndLisplibCaches ( )")
+   (patch      . "zsystemdevelopment )patch")
+   (pause      . "zsystemdevelopment )pause")
+   (prompt     . "set message prompt")
+   (recurrence . "set functions recurrence")
+   (restore    . "history )restore")
+   (save       . "history )save")
+   (startGraphics    .  "system $AXIOM/lib/viewman &")
+   (stopGraphics     .  "lisp (|sockSendSignal| 2 15)")
+   (time       . "set message time")
+   (type       . "set message type")
+   (unexpose   . "set expose drop constructor")
+   (up         . "zsystemdevelopment )update")
+   (version    . "lisp *yearweek*")
+   (w          . "what")
+   (wc         . "what categories")
+   (wd         . "what domains")
+   (who        . "lisp (pprint credits)")
+   (wp         . "what packages")
+   (ws         . "what synonyms")
+ )
+
+$CommandSynonymAlist := 
+  COPY $InitialCommandSynonymAlist
+
 -- The `set' function in this file handles the top level `)set'
 -- command line functions.
 
@@ -346,7 +400,7 @@ setInputLibrary arg ==
 
 setOutputLibrary arg ==
   -- Hack to avoid initialising libraries in KCL:
-  not $cclSystem => false
+  true => false
   arg = "%initialize%" =>
     $outputLibraryName := nil
   arg = "%display%" =>