;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 124.126
;;; Reason:
;;;  TV:WRITE-USER-OPTIONS now writes out :host-or-nil variables as
;;;  "(si:parse-host <value>)" rather than as #<FS:LISPM-HOST "MY-HOST">.
;;; Written 5-Jul-88 21:11:15 by saz (David M.J. Saslav) at site Gigamos Cambridge
;;; while running on Brahms' First from band 1
;;; with Experimental System 124.124, Experimental Local-File 74.3, Experimental File-Server 23.1, Unix-Interface 12.0, Experimental ZMail 72.1, Experimental Tape 23.6, Experimental Lambda-Diag 16.2, Tiger 28.0, microcode 1761, SDU Boot Tape 3.14, SDU ROM 103, Beta 3 plus patches.



; From modified file DJ: L.WINDOW; CHOICE.LISP#133 at 5-Jul-88 21:11:16
#8R TV#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TV")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; CHOICE  "

(DEFUN WRITE-USER-OPTIONS (ALIST STREAM &AUX (SI:PRINT-READABLY T))
  "Write forms on STREAM to set all non-default variables on ALIST to their current values.
That is, for each variable on ALIST whose current value is not its default,
a LOGIN-SETQ form is output to STREAM which records the variable's
current value."
  (DO ((ALIST ALIST (CDR ALIST))
       (OPTION) (type) (DEFAULT) (VALUE))
      ((NULL ALIST))
    (SETQ OPTION (CAAR ALIST)
	  type (third (car alist))			; The kind of value
						; For now, only :HOST-OR-NIL is special.
	  DEFAULT (GET OPTION 'DEFAULT-VALUE)
	  VALUE (SYMEVAL OPTION))
    (OR (LET ((ALPHABETIC-CASE-AFFECTS-STRING-COMPARISON T))
	  (EQUAL VALUE DEFAULT))
	(progn (cond ((OR (NUMBERP VALUE) (MEMQ VALUE '(T NIL))))
		     ((eq type :host-or-nil)	; We can't qfasl hosts, and they should
						; be looked up in the load world anyway.
		      (setq value `(si:parse-host ,(send value :name))))
		     (t (setq value `',VALUE)))
	       (GRIND-TOP-LEVEL `(LOGIN-SETQ ,OPTION ,value)
				95. STREAM)))))

))