;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for CDI version 1.8
;;; Reason:
;;;  Add loading of Explorer microcode symbols.
;;; Reason:
;;;  Add support for loading of ULAMBDA symbols for Explorer.
;;; Written 11-Jun-86 16:10:11 by ELLEN at site CDI Dallas
;;; while running on EXPLORER-1 from band 1
;;; with System 110.232, Lambda-Diag 7.17, Experimental Local-File 68.7, FILE-Server 18.4, Unix-Interface 9.1, ZMail 65.14, Object Lisp 3.4, Tape 6.39, Site Data Editor 3.3, Tiger 24.0, KERMIT 31.3, Window-Maker 1.1, Gateway 4.8, TCP-Kernel 39.7, TCP-User 62.7, TCP-Server 45.5, MEDIUM-RESOLUTION-COLOR 3.4, MICRO-COMPILATION-TOOLS 3.2, System Revision Level 3.26, Experimental CDI 1.7, microcode 1523, CDI LambdaE base.



; From modified file S2: >Lambda-3>LAMBDA-DIAG>LAM.LISP.86 at 11-Jun-86 16:10:12
#8R LAMBDA#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "LAMBDA")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: LAMBDA-DIAG; LAM  "

(DEFUN ASSURE-LAM-SYMBOLS-LOADED ()
  (si:select-processor
    (:lambda
      (cond ((not (eq current-processor-type :lambda))
	     (lambda-mode)))
      (LET ((CURRENT-VERSION (AND LAM-FILE-SYMBOLS-LOADED-FROM
				  (SEND LAM-FILE-SYMBOLS-LOADED-FROM :VERSION))))
	(COND ((NEQ CURRENT-VERSION %MICROCODE-VERSION-NUMBER)
	       (FORMAT T "~%Loading LAM symbols for ULAMBDA version ~D~%"
		       %MICROCODE-VERSION-NUMBER)
	       (SI:WITH-SYS-HOST-ACCESSIBLE
		 (LET ((*READ-BASE* 8.))
		   (PKG-BIND "LAMBDA"
		     (LAM-LOAD-UCODE-SYMBOLS-FOR-VERSION %MICROCODE-VERSION-NUMBER)))))))
      )
    (:explorer
      (cond ((not (eq current-processor-type :explorer))
	     (explorer-mode)))
      (LET ((CURRENT-VERSION (AND LAM-FILE-SYMBOLS-LOADED-FROM
				  (SEND LAM-FILE-SYMBOLS-LOADED-FROM :VERSION))))
	(COND ((NEQ CURRENT-VERSION %MICROCODE-VERSION-NUMBER)
	       (FORMAT T "~%Loading LAM symbols for ULAMBDA//E version ~D~%"
		       %MICROCODE-VERSION-NUMBER)
	       (SI:WITH-SYS-HOST-ACCESSIBLE
		 (LET ((*READ-BASE* 8.))
		   (PKG-BIND "LAMBDA"
		     (LAM-LOAD-UCODE-SYMBOLS-FOR-VERSION %MICROCODE-VERSION-NUMBER)))))))
      )
      (:cadr)))

))