boot/

2007-12-06  Gabriel Dos Reis  <gdr@cs.tamu.edu>

	* initial-env.lisp.pamphlet ("BOOTTRAN"): Don't use SYSTEM package.

interp/
2007-12-06  Gabriel Dos Reis  <gdr@cs.tamu.edu>

	* lisplib.boot (getSlotFromDomain): Use pointer to function Undef
	directly, instead of variable Undef.
	* i-syscmd.boot (cd): Move from patches.lisp to here.
	* g-timer.boot (printTimeIfTrue): Move from patches.lisp to here.
	* patches.lisp (Undef): Remove.
	($printTimeIfTrue): Move to g-timer.boot.
	(cd): Move to i-syscmd.boot.
	(nullstream): Remove.
	(nononullstream): Likewise.
	(/MAJOR-VERSION): Move to sys-constants.boot.
	* setq.lisp (/MAJOR-VERSION): Remove.

lisp/
2007-12-06  Gabriel Dos Reis  <gdr@cs.tamu.edu>

	* core.lisp.in ("AxiomCore"): Don't use SYSTEM package.

8 files changed, 41 insertions, 20 deletions

diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index 7c9b7e1d..391d9dfd 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,3 +1,17 @@
+2007-12-06  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* lisplib.boot (getSlotFromDomain): Use pointer to function Undef
+	directly, instead of variable Undef.
+	* i-syscmd.boot (cd): Move from patches.lisp to here.
+	* g-timer.boot (printTimeIfTrue): Move from patches.lisp to here.
+	* patches.lisp (Undef): Remove.
+	($printTimeIfTrue): Move to g-timer.boot.
+	(cd): Move to i-syscmd.boot.
+	(nullstream): Remove.
+	(nononullstream): Likewise.
+	(/MAJOR-VERSION): Move to sys-constants.boot.
+	* setq.lisp (/MAJOR-VERSION): Remove.
+
 2007-12-05  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* Makefile.pamphlet (xruncomp.$(FASLEXT)): Remove rule.
diff --git a/src/interp/g-timer.boot b/src/interp/g-timer.boot
index 0f26f306..30fbfeac 100644
--- a/src/interp/g-timer.boot
+++ b/src/interp/g-timer.boot
@@ -40,6 +40,8 @@ import '"g-util"
 --  These functions can be used with arbitrary lists of
 --  named stats (listofnames) grouped in classes (listofclasses)
 --  and with measurement types (property, classproperty).
+
+printTimeIfTrue := false
  
 printNamedStatsByProperty(listofnames, property) ==
   total := +/[GETL(name,property) for [name,:.] in listofnames]
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index d829e2aa..df0e8312 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -239,6 +239,21 @@ listConstructorAbbreviations() ==
     whatSpad2Cmd '(packages)
   sayKeyedMsg("S2IZ0057",NIL)
 
+--% )cd
+
+cd args ==
+  dir := TRUENAME STRING(car args or '"")
+)if %hasFeature KEYWORD::SBCL
+  SB_-POSIX::CHDIR NAMESTRING dir
+)elseif %hasFeature KEYWORD::GCL
+  SYSTEM::CHDIR NAMESTRING dir
+)else
+  internalError '"don't know how to chdir in this Lisp"
+)endif
+  SETF(_*DEFAULT_-PATHNAME_-DEFAULTS_*, ensureTrailingSlash NAMESTRING dir)
+  sayKeyedMsg("S2IZ0070", [NAMESTRING _*DEFAULT_-PATHNAME_-DEFAULTS_*]) 
+
+
 --% )clear
 
 clear l == clearSpad2Cmd l
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index 69caf0d0..be1bd700 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -550,7 +550,7 @@ getSlotFromDomain(dom,op,oldSig) ==
   isPackageForm dom => getSlotFromPackage(dom,op,oldSig)
   domain:= evalDomain dom
   n:= findConstructorSlotNumber(dom,domain,op,sig) =>
-    (slot:= domain.n).0 = Undef =>
+    (slot:= domain.n).0 = function Undef =>
       throwKeyedMsg("S2IL0023A",[op,formatSignature sig,dom])
     slot
   throwKeyedMsg("S2IL0024A",[op,formatSignature sig,dom])
diff --git a/src/interp/patches.lisp b/src/interp/patches.lisp
index 6d599002..21f12ec1 100644
--- a/src/interp/patches.lisp
+++ b/src/interp/patches.lisp
@@ -49,7 +49,6 @@
 (define-function '|construct| #'list) ;; NEEDED , SPAD-COMPILER generated Lisp code
 (define-function '|COMP,TRAN| #'comp-tran) ;called by |compWithMappingMode|
 
-(defvar |Undef| (function |Undef|)) ;needed in NewbFVectorCopy
 (define-function '|spadHash| #'sxhash)
 
 (defun |mkAutoLoad| (fn cname)
@@ -57,24 +56,10 @@
                  (|autoLoad| fn cname)
                  (apply cname args))))
 
-(setq |$printTimeIfTrue| nil)
-
-
 (defmacro dribinit (streamvar)
   `(if (is-console ,streamvar)
        (setq ,streamvar *terminal-io*)))
 
-(defun |cd| (args)
-  (let ((dir (truename (string (or (car args) "")))))
-    #+ :SBCL (sb-posix::chdir (namestring dir))
-    #+ :GCL (system::chdir (namestring dir))
-    #- (or :SBCL :GCL) (error "don't know how to chdir in this Lisp")
-    ;; FIXME: some Lisps may not properly end the name with slash
-    ;;        investigate.
-    (setf *default-pathname-defaults* (|ensureTrailingSlash| dir))
-    (|sayKeyedMsg| 'S2IZ0070 
-                   (list (namestring *default-pathname-defaults*)))))
-
 ;; The function top-level is the very root of the normal invocation
 ;; history stack. Control will pass to the restart function which is 
 ;; also in this file.
@@ -96,8 +81,6 @@
 
 (setq |$useInternalHistoryTable| T)
 (defvar |$internalHistoryTable| ())
-(setq |nullstream| '|nullstream|)
-(setq |nonnullstream| '|nonnullstream|)
 (defun |cpCms| (prefix &optional (string (|getSystemCommandLine|)))
   (setq string (concat prefix string))
   (if (equal string "") (obey "sh")
@@ -371,7 +354,6 @@
 ;; (|xdrRead| xfoo (make-array 10 :element-type 'long-float ))
 ;; (setq *print-array* NIL)
 
-(setq /MAJOR-VERSION 2)
 (setq echo-meta nil)
 (defun /versioncheck (n) (unless (= n /MAJOR-VERSION) (throw 'versioncheck -1)))
 
diff --git a/src/interp/setq.lisp b/src/interp/setq.lisp
index 8bf5520c..c496c5ff 100644
--- a/src/interp/setq.lisp
+++ b/src/interp/setq.lisp
@@ -42,7 +42,6 @@
 (import-module "macros")
 (in-package "BOOT")
 
-(SETQ |/MAJOR-VERSION| 7)
 (SETQ /RELEASE 0)
 
 (defconstant |$cclSystem|
diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot
index 59e32e48..46330e78 100644
--- a/src/interp/sys-constants.boot
+++ b/src/interp/sys-constants.boot
@@ -47,6 +47,11 @@ $timerTicksPerSecond ==
   INTERNAL_-TIME_-UNITS_-PER_-SECOND
 
 
+++ Internal magic coockie.
+_/MAJOR_-VERSION ==
+  2
+
+
 --
 -- Text formatting
 --
diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot
index 5d5ed751..afa4f685 100644
--- a/src/interp/sys-globals.boot
+++ b/src/interp/sys-globals.boot
@@ -425,3 +425,7 @@ _/TRACENAMES := nil
 
 ++
 $highlightAllowed := true
+
+++
+_*PRINT_-CIRCLE_* := true
+_*PRINT_-ARRAY_* := false