  -*- Mode : LISP ; Package : COMPILER ; Cold - Load : T ; Lowercase : T ;  ;  : ZL -*-

  & & & This file is the first one loaded for the COMPILER system .   It
;;; is also a cold-load file.  The immediate purpose of this file is
  strictly to prevent cold - load lossage , e.g. in GETDECL . < 27oct88 >

  $ $ $ Set the following cleverly -- compiler knows processor it 's
;;; compiled this file to, and thus the host type it will run on!
  < 27 - Oct-88 keith >

(defvar-resettable *host-computer*      ; ||| 29sep88 smh
                   ;;;Currently, either 'LAMBDA-INTERFACE or 'K
                   '#.*target-computer* '#.*target-computer*)

(defvar-resettable *target-computer*
                ;get generators off this.
                   '#.*target-computer* '#.*target-computer*)

;;;Map host / target processor symbol to processor keyword:

(defun target-processor-symbol ()
  (case *target-computer*
    (lambda-interface :lambda)
    (k :falcon)
    (t (ferror nil "*TARGET-COMPUTER* is ~s, which is not defined as a valid target of compilation"
               *target-computer*))))

;;;Map the other way:

(defun processor-target-symbol (sym)
  (ecase sym
    (:lambda 'lambda-interface)
    (:falcon 'k)))

 Package : COMPILER ; Cold - Load : T ; Lowercase : T ;  ;  : ZL -*-
 is also a cold-load file.  The immediate purpose of this file is
 compiled this file to, and thus the host type it will run on!
 ||| 29sep88 smh
Currently, either 'LAMBDA-INTERFACE or 'K
get generators off this.
Map host / target processor symbol to processor keyword:
Map the other way:

  & & & This file is the first one loaded for the COMPILER system .   It
  strictly to prevent cold - load lossage , e.g. in GETDECL . < 27oct88 >

  $ $ $ Set the following cleverly -- compiler knows processor it 's
  < 27 - Oct-88 keith >

                   '#.*target-computer* '#.*target-computer*)

(defvar-resettable *target-computer*
                   '#.*target-computer* '#.*target-computer*)


(defun target-processor-symbol ()
  (case *target-computer*
    (lambda-interface :lambda)
    (k :falcon)
    (t (ferror nil "*TARGET-COMPUTER* is ~s, which is not defined as a valid target of compilation"
               *target-computer*))))


(defun processor-target-symbol (sym)
  (ecase sym
    (:lambda 'lambda-interface)
    (:falcon 'k)))
