;;; -*- Mode:Common-Lisp; Package:L; Base:10; Patch-file:compiler-object-accessors -*-
;;;
;;; Compiler Object Accessors patch file for preasm.
;;;
;;; jsp 5/10/88

(defaccessor fn 'punt :il-nodes)		; intermediate-language code
(defaccessor fn 'punt :il-dump)			; intermediate-language code in ascii form
(defaccessor fn 'punt :t-nodes)			; raw target-language code
(defaccessor fn 'punt :t-code)			; partitioned target-language code
(defaccessor fn 'punt :statics)
(defaccessor fn 'punt :reserved)

(defaccessor label 'keep :il-node)
(defaccessor label 'keep :t-node)

(defun print-declaration (decl stream depth)
  (ignore depth)
  (format stream "~(.~a~@[(~a)~]~)" (declaration-symbol decl) (declaration-allocation decl)))