Re: Internet address conflict between namespace and local.boot file

Benjamin Benninghofen <[email protected]> Thu, 02 Oct 2003 00:25 +0200
Newsgroups gmane.lisp.org.slug
Message-ID <[email protected]>

    This sounds perfectly reasonable... but it happens that I have spent 
    countless hours,
    years ago, to load many symbolic packages into my own "complete world".
    In many cases  (like those of Joshua,  Concordia or Plexi or...) the 
    installation
    was rather difficult, in the sense that many of the paths expected by 
    the installation program
    were not existing, mayne they were not made for a Mac Ivory
    and I had to do many fixes, by hand. I have of course completely 
    forgotten now
    how I managed to do it, but I remember that it took a long time.

This sounds very strange.

Do you have access to the Distribution Tape or CD-ROMs of the Symbolics
software to be reinstalled ? 
By writing the Translation files you decide yourself where the Files
of the system are stored. Just load the same Translation files for
"Restore Distribution" and "Load System". Then everything works without
the problems you mentioned. 

Below I appended one of the files I loaded to build our Genera 8.3 worlds.
After loading the file you can call (WFORM) and click on the presented
form. Then you wait some hours and enter the "Save World" command.

               I understand that it would then be also logic to create a 
    totally new namespace and site, but
    would it be also necessary to start again from the Distribution-World 
    and rebuild all my favorite worlds ?
    This looks strange to me. Isn't there a way out ?

You may try several things, but the required time (not including waiting)
probably will be minimized by building the new world.

For example you could define a new site in the distribution world. That 
Site will contain exactly one LispM. The local boot file then must contain
the adress of the LispM you specified in the new Site. Then you may boot
your old world (with the known problems). But you will have a Lisp Listener
where you can enter the "Set Site" command. In case that you can succesfully
execute the "Set Site" command you can save an incremental world. 


    establishing a communication by RPC  between Macsyma running under 
    Genera
    and some other math program (like Mathematica) running on the Mac side

I created an RPC interface between Genera and PARI. However synchronous 
calls waiting for a result slow it down.

    >
    > However when you change the address of your Symbolics then you
    > will need a new Macsyma Key anyway.

    Ah... Yes ? How dos this key check work ?

See the compiled code of CLIMAX::MACSYMA-TOPLEVEL (including the split)


    Symbolics ? You mean Symbolics Inc or Macsyma Inc ?
    I have no idea where to contact Symbolics Inc !
    I though it had disappeared...
    Can you elaborate ?


Symbolics Inc and Macsyma Inc are owned by the same person. While
Macsyma Inc is in "Cold Store", Symbolics Inc is still active.
You can visit them at

www.symbolics.com

When you have an ALPHA Workstation you can order OpenGenera 2.0
(at 5000$ for industry) and as add on they also can deliver 
Macsyma 421.45 for OpenGenera. They also can sell you Macsyma 
for a PC. However for all other plattforms they cannot generate
Macsyma Keys.


    Benjamin Benninghofen



;;; -*- Mode: LISP; Syntax: Common-lisp; Package: USER; Base: 10 -*-

(defun wload (&optional load-translations)
  (declare (arglist &optional load-translations))
  ;; (check-type host (member :beta :delta :eps :phi :eta))
  (setq rpc::*unix-check-passwords-for-show* nil)	; Do not ask for NFS Passwords
  (when (< si:*incremental-disk-save-extra-pages* 320)	; Symbolics Default of 200 is too small !!!
    (setq si:*incremental-disk-save-extra-pages* 320))
  (sys:gc-on :ephemeral t :dynamic nil)
  (fs:force-user-to-login)
  (when load-translations (load #P"SYS:SITE;SYS.TRANSLATIONS" :verbose nil))
  (load-patches nil :query nil :silent t)
  (macrolet ((ls (&rest systems)
	       (cons 'progn
		     (loop for system in systems
			   collect `(unless (sct:find-system-named ,system nil t)
				      (load-system ,system :query nil :silent t))))))
    ;; (select host ((:beta) (ls :mailer)))	; BETA is the MAIL server
    (ls :clx :clim :genera-clim :postscript-clim :clx-clim :clim-doc)	; Omit :CLIM-DEMO
    (ls :metering)
    (ls :conversion-tools)
    (ls :nfs-server)				; NFS-CLIENT, NFS-DOCUMENTATION are in 8.3 worlds
    (ls :x-remote-screen :x-documentation)	; already in Ivory world, never load X-SERVER 
    (ls :ux-support)				; :macivory-support 
    (ls :rpc-development :ux-development)	; :macivory-development 
    (ls :statice-runtime #-VLM :dbfs-utilities)	; Part of Genera distribution
    (ls :c :fortran)
    ;; Left from the time where Symbolics C was not free
    (load-system :harbison-steele-doc :query nil :silent t :component-version :released)
    ;; (select host ((:delta :phi :beta) (ls :pascal)))
    ;; DNA no longer used
    ;; (select host ((:delta :eps :phi) (ls :dna)))	; we have now 3 licenses
    ;; STATICE
    (ls :statice :statice-documentation)
    ;; CONCORDIA
    (progn
      (ls :concordia)				; contains LOCK-SIMPLE
      (setq si:gc-warning-threshold 4000000)
      (funcall (intern "LOAD-DOC-DATABASE-FOR-WRITER" (find-package "SAGE"))))
    ;; JOSHUA no longer used
    ;; (select host ((:eps) (ls :joshua :joshua-metering :joshua-doc)))	; omit JERICHO
    ;; MACSYMA will always be in an incremental world
    ;; other cleanups
    (si:enable-who-calls :all-no-make t)
    (values)))

(defun wform (&optional ltr)
  (declare (scl:arglist &optional load-translations))
  (let ((wform `(progn 
		  (wload  ,ltr)
		  (fundefine 'wload)
		  (fundefine 'wform)
		  (si:run-gc-cleanups)
		  (si:full-gc))))		; do not use SI:REORDER-MEMORY
    (fresh-line)
    (present wform 'sys:form)
    (values)))