;Source Compare of File ANGEL: /lmi3/pace/lt/assembler/as-m68.scheme and File LAD: ORBIT.ASSEMBLER; AS-M68.SCHEME#2 on 10-Jul-86 15:44:25 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/assembler/as-m68.scheme, Line #66, After "(define *m68-pseudo-operands* "

(define *m68-pseudo-ops* 
  (append!
   (pseudos-alist 
**** File LAD: ORBIT.ASSEMBLER; AS-M68.SCHEME#2, Line #67, After ";++ fix the damn compiler!!          "
;;; Ours works. -jrm

;(define *m68-pseudo-ops* 
;  (append!
;   (pseudos-alist 
;       ((j=  1tag) (m68-lap-jbcc jump-op/j=  1tag))
;       ((jn= 1tag) (m68-lap-jbcc jump-op/jn= 1tag))
;       ((j>  1tag) (m68-lap-jbcc jump-op/j>  1tag))
;       ((j>= 1tag) (m68-lap-jbcc jump-op/j>= 1tag))
;       ((j<  1tag) (m68-lap-jbcc jump-op/j<  1tag))
;       ((j<= 1tag) (m68-lap-jbcc jump-op/j<= 1tag))
;       ((uj>  1tag) (m68-lap-jbcc jump-op/uj>  1tag))
;       ((uj>= 1tag) (m68-lap-jbcc jump-op/uj>= 1tag))
;       ((uj<  1tag) (m68-lap-jbcc jump-op/uj<  1tag))
;       ((uj<= 1tag) (m68-lap-jbcc jump-op/uj<= 1tag))
;       ((jneg 1tag) (m68-lap-jbcc jump-op/negative 1tag))
;       ((jpos 1tag) (m68-lap-jbcc jump-op/not_negative 1tag))
;       ((jbr 1tag) (m68-lap-jbcc jump-op/jabs 1tag))
;     )
;    (pseudos-alist
;       ((space number)    (m68/space number))
;       ;; loser
;       ((jump . args)     (apply emit-jump args))       ; -- state machine, ibs
;       ;; loser
;;       ((template . args) (apply %emit-template args))  ; -- state machine, ib
;       ((byte number) (m68/byte number))
;       ((word number) (m68/word number))
;       ((long number) (m68/long number))
;       ((block . forms) (eval `(block ,@forms) (machine-lap-env *m68-machine*)))
;       ((equate id form) (*define-lap-m68 id (eval form (machine-lap-env *m68-machine*))))
;       )))

(define *m68-pseudo-ops* 
   (pseudos-alist 
***************

**** File ANGEL: /lmi3/pace/lt/assembler/as-m68.scheme, Line #83, After "(define *m68-pseudo-ops* "
     )
    (pseudos-alist
       ((space number)    (m68/space number))
**** File LAD: ORBIT.ASSEMBLER; AS-M68.SCHEME#2, Line #114, After "(define *m68-pseudo-ops* "

       ((space number)    (m68/space number))
***************

**** File ANGEL: /lmi3/pace/lt/assembler/as-m68.scheme, Line #95, After "(define *m68-pseudo-ops* "
       )))

**** File LAD: ORBIT.ASSEMBLER; AS-M68.SCHEME#2, Line #125, After ";       ((template . args) (apply %emit-template args))  ; "
       ))

***************

;Source Compare of File ANGEL: /lmi3/pace/lt/assembler/as-syntax.scheme and File LAD: ORBIT.ASSEMBLER; AS-SYNTAX.SCHEME#2 on 10-Jul-86 15:44:33 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/assembler/as-syntax.scheme, Line #71, After "(define (make-lap-syntaxer form)"
(define-syntax (vector . l)
  (let ((vname (generate-symbol 'vector)))
    `(let ((,vname (make-vector ,(length l))))
       ,@(do ((i 0 (fx+ i 1))
              (elts l (cdr elts))
              (sets '() (cons `(set (vref ,vname ,i) ,(car elts))
                              sets)))
             ((null? elts)
              (reverse! sets)))
       ,vname)))

**** File LAD: ORBIT.ASSEMBLER; AS-SYNTAX.SCHEME#2, Line #72, After ";;; define-fg expands into code with uses of VECTOR"
;;; BAD BAD BAD, don't uncomment this.
;(define-syntax (vector . l)
;  (let ((vname (generate-symbol 'vector)))
;    `(let ((,vname (make-vector ,(length l))))
;       ,@(do ((i 0 (fx+ i 1))
;              (elts l (cdr elts))
;              (sets '() (cons `(set (vref ,vname ,i) ,(car elts))
;                              sets)))
;             ((null? elts)
;              (reverse! sets)))
;       ,vname)))

***************

;Source Compare of File ANGEL: /lmi3/pace/lt/assembler/bits.scheme and File LAD: ORBIT.ASSEMBLER; BITS.SCHEME#2 on 10-Jul-86 15:44:54 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/assembler/bits.scheme, Line #135, After "(define (cons-bits bit-size machine)"
    (set (bits-clumps b)          (make-vector (machine-maximum-clumps machine)))
    b))
**** File LAD: ORBIT.ASSEMBLER; BITS.SCHEME#2, Line #136, After "(define (cons-bits bit-size machine)"
    (set (bits-clumps b)          (vector-fill (make-vector (machine-maximum-clumps machine)) 0))
    b))
***************
;Source Compare of File ANGEL: /lmi3/pace/lt/assembler/fg-spec.scheme and File LAD: ORBIT.ASSEMBLER; FG-SPEC.SCHEME#2 on 10-Jul-86 15:45:12 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/assembler/fg-spec.scheme, Line #234, After "(define (process-fg-spec spec vars vals)"
(import *t-implementation-env* *bits-per-fixnum*)
(define (bits->fixnum bits-in)
**** File LAD: ORBIT.ASSEMBLER; FG-SPEC.SCHEME#2, Line #235, After ";;; Convert a list of bits to a fixnum."
;(import *t-implementation-env* *bits-per-fixnum*)
(define (bits->fixnum bits-in)
***************
;Source Compare of File ANGEL: /lmi3/pace/lt/assembler/m68is1.scheme and File LAD: ORBIT.ASSEMBLER; M68IS1.SCHEME#2 on 10-Jul-86 15:46:05 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/assembler/m68is1.scheme, Line #313, After "(define (choose-a-br current-width displ)"
(let ((data '(("cc" . 4) ("cs" . 5) ("eq" . 7) ("f" . 1) 
**** File LAD: ORBIT.ASSEMBLER; M68IS1.SCHEME#2, Line #314, After ";;; CC formating"
;;; Changed to MIT SCHEME semantics

(define format-br)
(define format-cc)

(let ((data '(("cc" . 4) ("cs" . 5) ("eq" . 7) ("f" . 1) 
***************

**** File ANGEL: /lmi3/pace/lt/assembler/m68is1.scheme, Line #318, After "(let ((data '(("cc" . 4) ("cs" . 5) ("eq" . 7) ("f" "
   (define (format-br bits)
      (cond ((fx= bits 0) "ra")
            ((fx= bits 1) "sr")
            (else (car (rassq bits data)))))

   (define (format-cc bits)
      (car (rassq bits data)))

   )

**** File LAD: ORBIT.ASSEMBLER; M68IS1.SCHEME#2, Line #324, After "(let ((data '(("cc" . 4) ("cs" . 5) ("eq" . 7) ("f" . 1) "
   (set! format-br
	 (lambda (bits)
	   (cond ((fx= bits 0) "ra")
		 ((fx= bits 1) "sr")
		 (else (car (rassq bits data))))))

   (set! format-cc
	 (lambda (bits)
	   (car (rassq bits data))))

   )

(define m68-cc?)
(define convert-cc)

***************

**** File ANGEL: /lmi3/pace/lt/assembler/m68is1.scheme, Line #333, After "(let ((data '((cc . 4) (cs . 5) (eq . 7) (f . 1) "
   (define (m68-cc? cc-symbol)
      (cond ((assq cc-symbol data)
             => cdr)
            (else nil)))

   (define (convert-cc cc-symbol)
      (cond ((m68-cc? cc-symbol) => identity)
            (else 
             (error "expecting a 68000 condition code, got ~s" cc-symbol))))

**** File LAD: ORBIT.ASSEMBLER; M68IS1.SCHEME#2, Line #344, After "(let ((data '((cc . 4) (cs . 5) (eq . 7) (f . 1) "
   (set! m68-cc?
	 (lambda (cc-symbol)
	   (cond ((assq cc-symbol data)
		  => cdr)
		 (else nil))))

   (set! convert-cc
	 (lambda (cc-symbol)
	   (cond ((m68-cc? cc-symbol) => identity)
		 (else 
		  (error "expecting a 68000 condition code, got ~s" cc-symbol)))))

***************
;Source Compare of File ANGEL: /lmi3/pace/lt/back-end/generate.scheme and File LAD: ORBIT.BACK-END; GENERATE.SCHEME#3 on 10-Jul-86 15:47:51 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/back-end/generate.scheme, Line #427, After "(define (create-comex filename h unit templates thi"
      (set (comex-module-name comex) (filename-name filename))
      (set (comex-code comex) code)
**** File LAD: ORBIT.BACK-END; GENERATE.SCHEME#3, Line #428, After "(define (create-comex filename h unit templates thing code"
      (set (comex-module-name comex) filename ;(filename-name filename)
	   )
      (set (comex-code comex) code)
***************

**** File ANGEL: /lmi3/pace/lt/back-end/generate.scheme, Line #438, After "(define (create-obj-op-vectors thing unit templates"
    (vset objects 0 (->compiler-filename filename))
    (set (bref opcodes 1) op/literal)                         
**** File LAD: ORBIT.BACK-END; GENERATE.SCHEME#3, Line #440, After "(define (create-obj-op-vectors thing unit templates size f"
    (vset objects 0 filename ;(->compiler-filename filename)
	  )
    (set (bref opcodes 1) op/literal)                         
***************

**** File ANGEL: /lmi3/pace/lt/back-end/generate.scheme, Line #540, After "(define (get-template-annotation l)"
(fx+ (fixnum-ashl (get-template-definer l) 3)
  (fx+ (fixnum-ashl (template-has-superior? l) 2)
**** File LAD: ORBIT.BACK-END; GENERATE.SCHEME#3, Line #543, After "(define (get-template-annotation l)"
 (fx+ (fixnum-ashl (get-template-definer l) 3)
  (fx+ (fixnum-ashl (template-has-superior? l) 2)
***************
;Source Compare of File ANGEL: /lmi3/pace/lt/front-end/alpha.scheme and File LAD: ORBIT.FRONT-END; ALPHA.SCHEME#7 on 10-Jul-86 15:50:44 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/front-end/alpha.scheme, Line #107, After "(define (alpha-special-form descr exp syntax shape)"
(define-local-syntax (define-compiler-syntax pattern vars . body)
**** File LAD: ORBIT.FRONT-END; ALPHA.SCHEME#7, Line #108, After ";;; PRIMITIVE-HANDLER-TABLE using the syntax descriptor as a"
;;; 8-Jul-86 21:20:23
;;; Changed to correspond to MIT semantics of DEFINE - JRM
(define-local-syntax (define-compiler-syntax pattern vars . body)
***************

**** File ANGEL: /lmi3/pace/lt/front-end/alpha.scheme, Line #111, After "(define-local-syntax (define-compiler-syntax pattern "
    `(let ((descr (syntax-table-entry *standard-syntax-table* ',name)))
       (set (syntax-table-entry primitive-syntax-table ',name) descr)
       (set (table-entry primitive-handler-table descr)
            (lambda (,exp . ,vars)
              (ignorable . ,vars)
              (destructure ((,(cdr pattern) (cdr ,exp)))
                ,@body)))
       (define ,sym descr))))

**** File LAD: ORBIT.FRONT-END; ALPHA.SCHEME#7, Line #114, After "(define-local-syntax (define-compiler-syntax pattern vars . "
    `(DEFINE ,sym
       (LET ((DESCR (SYNTAX-TABLE-ENTRY *STANDARD-SYNTAX-TABLE* ',name)))
	 (SET (SYNTAX-TABLE-ENTRY PRIMITIVE-SYNTAX-TABLE ',name) DESCR)
	 (SET (TABLE-ENTRY PRIMITIVE-HANDLER-TABLE DESCR)
	      (LAMBDA (,exp . ,vars)
		(IGNORABLE . ,vars)
		(DESTRUCTURE ((,(cdr pattern) (CDR ,exp)))
		  ,@body)))
	  descr))))

***************

**** File ANGEL: /lmi3/pace/lt/front-end/alpha.scheme, Line #223, After "(define (make-closed-primop p)"
                `(,syntax/lambda ,vars ,@proclaims (,(primop.variant-id p) . ,vars))))
        (else 
**** File LAD: ORBIT.FRONT-END; ALPHA.SCHEME#7, Line #227, After "(define (make-closed-primop p)"
                `(,syntax/lambda ,vars ;; ,@proclaims
		  (,(primop.variant-id p) . ,vars))))
        (else 
***************

**** File ANGEL: /lmi3/pace/lt/front-end/alpha.scheme, Line #254, After "(define-compiler-syntax (if tested con . maybe-alt) ("
;;; (LABELS ((v1 e1) (v2 e2) ... (vn en)) . body)

(define-compiler-syntax (labels specs . body) (syntax shape)
  (cond ((null? specs)
         (flist2 syntax/block (alpha-list body syntax shape) '()))
        (else
         (receive (vars vals)
                  (parse-labels-specs specs)
           (bind-variables shape vars)
           (let ((exp (flist4 syntax/labels
                              vars
                              (alpha-list vals syntax shape)
                              (alpha-list body syntax shape)
                              '())))
             (unbind-variables shape vars)
             exp)))))

(define (parse-labels-specs specs)
  (values (free-map (lambda (spec)
                      (let ((pat (car spec)))
                        (create-variable (if (atom? pat) pat (car pat)))))
                     specs)
          (map (lambda (spec)
                 (let ((pat (car spec)))
                   (cond ((atom? pat) (cadr spec))
                         (else `(,syntax/named-lambda ,(car pat) ,(cdr pat)
                                   . ,(cdr spec))))))
               specs)))

**** File LAD: ORBIT.FRONT-END; ALPHA.SCHEME#7, Line #259, After "(define-compiler-syntax (if tested con . maybe-alt) (syntax "
;;; 8-Jul-86 18:17:32 - JRM of LMI
;;; Orbit Modification
;;; (LETREC ((v1 e1) (v2 e2) ... (vn en)) . body)
;;;
;;; This gets turned into the internal LABELS form that the
;;; compiler knows how to process.  We use LETREC to conform
;;; to R^3RS and because I like it better than LABELS.

;;; (LABELS ((v1 e1) (v2 e2) ... (vn en)) . body)

(define-compiler-syntax (letrec specs . body) (syntax shape)
  (letrec (
      (split-letrec-specs
	(lambda (specs-remaining vars vals receiver)
	  (if (null? specs-remaining)
	      (receiver vars vals)
	      (split-letrec-specs (rest specs-remaining)
				  (cons (create-variable (first  (first specs-remaining))) vars)
				  (cons (second (first specs-remaining)) vals)
				  receiver))))
      )
    (if (null? specs)
	(flist2 syntax/block (alpha-list body syntax shape) '())
	(split-letrec-specs specs '() '()
	  (lambda (vars vals)
	    (bind-variables shape vars)
	    (let ((exp (flist4 syntax/letrec
			       vars
			       (alpha-list vals syntax shape)
			       (alpha-list body syntax shape)
			       '())))
	      (unbind-variables shape vars)
	      exp))))))

;(define-compiler-syntax (labels specs . body) (syntax shape)
;  (cond ((null? specs)
;         (flist2 syntax/block (alpha-list body syntax shape) '()))
;        (else
;         (receive (vars vals)
;                  (parse-labels-specs specs)
;           (bind-variables shape vars)
;           (let ((exp (flist4 syntax/labels
;                              vars
;                              (alpha-list vals syntax shape)
;                              (alpha-list body syntax shape)
;                              '())))
;             (unbind-variables shape vars)
;             exp)))))

;(define (parse-labels-specs specs)
;  (values (free-map (lambda (spec)
;                      (let ((pat (car spec)))
;                        (create-variable (if (atom? pat) pat (car pat)))))
;                     specs)
;          (map (lambda (spec)
;                 (let ((pat (car spec)))
;                   (cond ((atom? pat) (cadr spec))
;                         (else `(,syntax/named-lambda ,(car pat) ,(cdr pat)
;                                   . ,(cdr spec))))))
;               specs)))

***************

;Source Compare of File ANGEL: /lmi3/pace/lt/front-end/compilators.scheme and File LAD: ORBIT.FRONT-END; COMPILATORS.SCHEME#2 on 10-Jul-86 15:51:13 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/front-end/compilators.scheme, Line #125, After "(define (thunkify exp cont-var)"
;;; (LABELS ((v1 e1) (v2 e2) ... (vn en)) . body)
**** File LAD: ORBIT.FRONT-END; COMPILATORS.SCHEME#2, Line #126, After "(define (thunkify exp cont-var)"
;;; LABELS has been replaced with LETREC. -JRM

;;; (LABELS ((v1 e1) (v2 e2) ... (vn en)) . body)
***************

**** File ANGEL: /lmi3/pace/lt/front-end/compilators.scheme, Line #136, After "(define (thunkify exp cont-var)"
(define-compilator (labels vars vals body)
  (let* ((call (create-call-node 2 1))
**** File LAD: ORBIT.FRONT-END; COMPILATORS.SCHEME#2, Line #139, After ";;; The code generator depends on call-exits being one"
(define-compilator (letrec vars vals body)
  (let* ((call (create-call-node 2 1))
***************

;Source Compare of File ANGEL: /lmi3/pace/lt/front-end/expanding-vector.scheme and File LAD: ORBIT.FRONT-END; EXPANDING-VECTOR.SCHEME#3 on 10-Jul-86 15:51:37 -*-Fundamental-*-

**** File ANGEL: /lmi3/pace/lt/front-end/expanding-vector.scheme, Line #28, After "(define (make-expanding-vector start-size ."
             (expand-vector nil -1 start-size nil)
      (let ((id (if maybe-id (car maybe-id) nil))
**** File LAD: ORBIT.FRONT-END; EXPANDING-VECTOR.SCHEME#3, Line #30, After "(define (make-expanding-vector start-size . maybe-"
             (expand-vector nil -1
			    start-size nil)
      (let ((id (if maybe-id (car maybe-id) nil))
***************

;Source Compare of File ANGEL: /lmi3/pace/lt/front-end/front.scheme and File LAD: ORBIT.FRONT-END; FRONT.SCHEME#6 on 10-Jul-86 15:51:58 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/front-end/front.scheme, Line #42, After "(define (write-support-file supex filename)"
  (with-open-streams ((output (open (support-filename filename) 'dump)))
    (write output `(,(supex-needed supex)
**** File LAD: ORBIT.FRONT-END; FRONT.SCHEME#6, Line #43, After "(define (write-support-file supex filename)"
  (with-open-streams ((output (open (support-filename filename) '(out))))
    (write output `(,(supex-needed supex)
***************

**** File ANGEL: /lmi3/pace/lt/front-end/front.scheme, Line #63, After "(define (primop-write-filename filename)"
  (make-filename (filename-fs filename)
                 (filename-dir filename)
                 (concatenate-symbol (filename-name filename) '_primops)
                 't))

(define (primop-read-filename filename)
  (make-filename (filename-fs filename)
                 (filename-dir filename)
                 (concatenate-symbol (filename-name filename) '_primops)))

**** File LAD: ORBIT.FRONT-END; FRONT.SCHEME#6, Line #64, After "(define (primop-write-filename filename)"
  (primop-read-filename filename))
;  (->filename (concatenate-symbol (filename-name filename) '_primops)))
;  (make-filename (filename-fs filename)
;                 (filename-dir filename)
              
;                 't))

(define (primop-read-filename filename)
  (->filename (list (filename-dir filename)
		    (concatenate-symbol (filename-name filename) '_primops))))

;  (make-filename (filename-fs filename)
;                 (filename-dir filename)
;                 (concatenate-symbol (filename-name filename) '_primops)))

***************

**** File ANGEL: /lmi3/pace/lt/front-end/front.scheme, Line #176, After "(lset *base-support-env* (make-empty-support-env '*em"
(load '(osys new_exports))

**** File LAD: ORBIT.FRONT-END; FRONT.SCHEME#6, Line #182, After "(lset *base-support-env* (make-empty-support-env '*empty-env"
;(load '(osys new_exports))

***************

;Source Compare of File ANGEL: /lmi3/pace/lt/front-end/nodestuff.scheme and File LAD: ORBIT.FRONT-END; NODESTUFF.SCHEME#2 on 10-Jul-86 15:52:28 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/front-end/nodestuff.scheme, Line #535, After "(define (s-exp->lambda-node exp table)"
  (destructure (((self-var-name var-names body-exp) exp))
    (let* ((vars (free-map (lambda (name)
**** File LAD: ORBIT.FRONT-END; NODESTUFF.SCHEME#2, Line #536, After "(define (s-exp->lambda-node exp table)"
  (let ((self-var-name (first exp))
	(var-names     (second exp))
	(body-exp      (third exp)))
; (destructure (((self-var-name var-names body-exp) exp))
    (let* ((vars (free-map (lambda (name)
***************

**** File ANGEL: /lmi3/pace/lt/front-end/nodestuff.scheme, Line #550, After "(define (s-exp->call-node exp table)"
         (destructure (((exits . exps) exp))
           (let ((node (create-call-node (length exps) exits)))
**** File LAD: ORBIT.FRONT-END; NODESTUFF.SCHEME#2, Line #554, After "(define (s-exp->call-node exp table)"
	 (let ((exits (first exp))
	       (exps  (rest exp)))
;        (destructure (((exits . exps) exp))
           (let ((node (create-call-node (length exps) exits)))
***************

;Source Compare of File ANGEL: /lmi3/pace/lt/front-end/support.scheme and File LAD: ORBIT.FRONT-END; SUPPORT.SCHEME#2 on 10-Jul-86 15:53:32 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/front-end/support.scheme, Line #256, After "(define (read-support-from-file name filename)"
  (with-open-streams ((input (open (support-filename filename) 'retrieve)))
    (let* ((exp (read input))
**** File LAD: ORBIT.FRONT-END; SUPPORT.SCHEME#2, Line #257, After "(define (read-support-from-file name filename)"
  (with-open-streams ((input (open (support-filename filename) '(in))))
    (let* ((exp (read input))
***************

;Source Compare of File ANGEL: /lmi3/pace/lt/front-end/user-error.scheme and File LAD: ORBIT.FRONT-END; USER-ERROR.SCHEME#2 on 10-Jul-86 15:53:49 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/front-end/user-error.scheme, Line #38, After "(define (real-user-message type loc string action"
  (apply format
         *noise+terminal*
         `("~%;;; ~A: " ,string 
           . ,(if action `("~%;;; Action: " ,action) nil))
         (case type
           ((warning) "Warning")
           ((error) "Error")
           (else (bug "unknown type of user message ~S" type)))
         args)
  (if loc
**** File LAD: ORBIT.FRONT-END; USER-ERROR.SCHEME#2, Line #39, After "(define (real-user-message type loc string action args)"
  (format *noise+terminal*
	  "~%;;; ~A: ~?"
	  (case type
	    ((warning) "Warning")
	    ((error) "Error")
	    (else (bug "unknown type of user message ~S" type)))
	  string 
	  args)
  (if action (format *noise+terminal "~%;;; Action: ~A" action))
  (if loc
***************

;Source Compare of File ANGEL: /lmi3/pace/lt/primops/base.scheme and File LAD: ORBIT.PRIMOPS; BASE.SCHEME#2 on 10-Jul-86 15:54:37 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/primops/base.scheme, Line #31, After "(herald base"
;;;============================================================================
;;; These are used by alpha to mark points in the tree.

**** File LAD: ORBIT.PRIMOPS; BASE.SCHEME#2, Line #32, After ";;; Place marking primops"
;;;============================================================================;
;; These are used by alpha to mark points in the tree.

***************

;Source Compare of File ANGEL: /lmi3/pace/lt/primops/m68primops.scheme and File LAD: ORBIT.PRIMOPS; M68PRIMOPS.SCHEME#2 on 10-Jul-86 15:55:39 -*-Fundamental-*-
**** File ANGEL: /lmi3/pace/lt/primops/m68primops.scheme, Line #38, After "(define-constant primop/lap "
(comment
(define-constant primop/lap
  (primop primop/lap (instructions)
    (((primop.simplify self node)
      (simplify-parameterized-structure-accessor self node))
     ((primop.make-closed self)
      self))

    ((primop.special? self) t)
    ((primop.side-effects? self) t)
    ((primop.generate self node)        
     (clear-slots)   
     (lap-transduce instructions))))
)
(define-constant primop/lap-template 
**** File LAD: ORBIT.PRIMOPS; M68PRIMOPS.SCHEME#2, Line #39, After "(define-constant primop/lap "
;(comment
;(define-constant primop/lap
;  (primop primop/lap (instructions)
;    (((primop.simplify self node)
;      (simplify-parameterized-structure-accessor self node))
;     ((primop.make-closed self)
;      self))

;    ((primop.special? self) t)
;    ((primop.side-effects? self) t)
;    ((primop.generate self node)        
;     (clear-slots)   
;     (lap-transduce instructions))))
;)
(define-constant primop/lap-template 
***************

........

**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/$ops/m68lap.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/$ops/m68ops.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/$test/mtest.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/$test/mtest2.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/$test/mtest3.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/$test/mtest4.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/$test/vtest.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/$test/vtest1.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/$test/vtest2.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/$test/vtest3.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/as-vax.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/bnbf.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/dbib.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/m68fix.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/newvaxis.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/start-as.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/test.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/vaxam.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/vaxfix.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/vaxi.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/vaxis.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/assembler/vmodes.scheme
**** Unpaired file LAD: ORBIT.ASSEMBLER; COMEX.SCHEME#1
**** Unpaired file LAD: ORBIT.ASSEMBLER; EXPAND.SCHEME#4
**** Unpaired file LAD: ORBIT.ASSEMBLER; FE.FILES#1
**** Unpaired file LAD: ORBIT.ASSEMBLER; MAKECHANGES.#1
**** Unpaired file LAD: ORBIT.ASSEMBLER; MAKEFILE.#1
**** Unpaired file ANGEL: /lmi3/pace/lt/back-end/comex.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/back-end/unvaxgen.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/back-end/vaxarithgen.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/back-end/vaxbookkeep.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/back-end/vaxemit.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/back-end/vaxfix.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/back-end/vaxgen.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/back-end/vaxlocgen.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/back-end/vaxrep.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/back-end/xfix.scheme
**** Unpaired file LAD: ORBIT.BACK-END; M68KFIX.SCHEME#1
**** Unpaired file ANGEL: /lmi3/pace/lt/build/ofiles.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/build/oload.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/front-end/files.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/front-end/ofiles.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/front-end/ppsup.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/front-end/simplify-join.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/front-end/test-util.scheme
**** Unpaired file LAD: ORBIT.FRONT-END; NEW-EXPORTS.SCHEME#1
**** Unpaired file ANGEL: /lmi3/pace/lt/primops/locations-primops.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/primops/m68low-primops.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/primops/vaxarith-primops.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/primops/vaxarith.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/primops/vaxconstants.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/primops/vaxlow-primops.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/primops/vaxlow.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/primops/vaxprimops-primops.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/primops/vaxprimops.scheme
**** Unpaired file LAD: ORBIT.PRIMOPS; BASE_PRIMOPS.SCHEME#4
**** Unpaired file LAD: ORBIT.PRIMOPS; LOCATIONS_PRIMOPS.SCHEME#1
**** Unpaired file LAD: ORBIT.PRIMOPS; M68ARITH_PRIMOPS.SCHEME#2
**** Unpaired file LAD: ORBIT.PRIMOPS; M68LOW_PRIMOPS.SCHEME#1
**** Unpaired file LAD: ORBIT.PRIMOPS; M68PRIMOPS_PRIMOPS.SCHEME#4
**** Unpaired file ANGEL: /lmi3/pace/lt/top/defs.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/top/extern-util.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/top/fix.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/top/new-syntax.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/top/oprimops.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/top/osyntax.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/top/primitive.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/top/sets.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/top/top.scheme
**** Unpaired file ANGEL: /lmi3/pace/lt/top/util.scheme
**** Unpaired file LAD: ORBIT.SUPPORT; INITIAL-FUNCTIONS.SCHEME#49
**** Unpaired file LAD: ORBIT.SUPPORT; OBJECT-SUPPORT.SCHEME#1
**** Unpaired file LAD: ORBIT.SUPPORT; ORBIT-TEST.SCHEME#14
**** Unpaired file LAD: ORBIT.SUPPORT; SETTER-SUPPORT.SCHEME#17
**** Unpaired file LAD: ORBIT.SUPPORT; STRUCTURE-SUPPORT.SCHEME#37
**** Unpaired file LAD: ORBIT.SUPPORT; T-SYNTAX.SCHEME#30
**** Unpaired file LAD: ORBIT.SUPPORT; TABLE.SCHEME#12
**** Unpaired file LAD: ORBIT.TOP; DEFS.SCHEME#1
**** Unpaired file LAD: ORBIT.TOP; NEW-SYNTAX.SCHEME#3
**** Unpaired file LAD: ORBIT.TOP; OPRIMOPS.SCHEME#3
**** Unpaired file LAD: ORBIT.TOP; SETS.SCHEME#1
**** Unpaired file LAD: ORBIT.TOP; TOP.SCHEME#1
**** Unpaired file LAD: ORBIT.TOP; UTIL.SCHEME#2

ASSEMBLER; AS-OPEN.SCHEME#2
ASSEMBLER; AS-UTILS.SCHEME#2
ASSEMBLER; AS.SCHEME#2
ASSEMBLER; COUNT.SCHEME#1
ASSEMBLER; FG-EXPR.SCHEME#1
ASSEMBLER; FG.SCHEME#1
ASSEMBLER; FIX.SCHEME#1
ASSEMBLER; IB.SCHEME#1
ASSEMBLER; LAP.SCHEME#1
ASSEMBLER; LISTING.SCHEME#1
ASSEMBLER; M68AM.SCHEME#1
ASSEMBLER; M68IS2.SCHEME#1
ASSEMBLER; MARK.SCHEME#1
ASSEMBLER; MINI.SCHEME#1
BACK-END; AEM68GEN.SCHEME#1
BACK-END; BOOKKEEP.SCHEME#1
BACK-END; CLOSURE.SCHEME#1
BACK-END; FIX.SCHEME#1
BACK-END; LIVE.SCHEME#1
BACK-END; M68ARITHGEN.SCHEME#1
BACK-END; M68BOOKKEEP.SCHEME#1
BACK-END; M68EMIT.SCHEME#1
BACK-END; M68FIX.SCHEME#1
BACK-END; M68GEN.SCHEME#1
BACK-END; M68LOCGEN.SCHEME#1
BACK-END; M68REP.SCHEME#1
BACK-END; PARASSIGN.SCHEME#1
BACK-END; REG.SCHEME#1
BACK-END; STRATEGY.SCHEME#1
FRONT-END; ANALYZE.SCHEME#1
FRONT-END; ASSIGN.SCHEME#1
FRONT-END; DECLARE.SCHEME#1
FRONT-END; ENVS.SCHEME#1
FRONT-END; FIX.SCHEME#1
FRONT-END; FIXUP.SCHEME#1
FRONT-END; FREE-STUFF.SCHEME#2
FRONT-END; GEN-INTERFACE.SCHEME#1
FRONT-END; MODULE.SCHEME#1
FRONT-END; NODE.SCHEME#1
FRONT-END; PARAM.SCHEME#1
FRONT-END; SIMPLIFIERS.SCHEME#1
FRONT-END; SIMPLIFY-CALL.SCHEME#1
FRONT-END; SIMPLIFY-LET.SCHEME#1
FRONT-END; SIMPLIFY-Y.SCHEME#1
FRONT-END; SIMPLIFY.SCHEME#1
FRONT-END; TYPE.SCHEME#1
PRIMOPS; ALIASES.SCHEME#1
PRIMOPS; BASE-PRIMOPS.SCHEME#1
PRIMOPS; CARCDR.SCHEME#1
PRIMOPS; LOCATIONS.SCHEME#1
PRIMOPS; M68ARITH-PRIMOPS.SCHEME#1
PRIMOPS; M68ARITH.SCHEME#1
PRIMOPS; M68CONSTANTS.SCHEME#1
PRIMOPS; M68LOW.SCHEME#1
PRIMOPS; M68PRIMOPS-PRIMOPS.SCHEME#1
PRIMOPS; OPEN.SCHEME#1