;;; -*- Mode:Common-Lisp; Package:PASCALX; Base:10; Fonts:(MEDFNT HL12B HL12I MEDFNB); Patch-file:T -*-

;;; This file contains several debugging hacks for the Pascal Translator.
;;; It should only be used by implementors of the Translator

(DEFF old-make-print-identifier  #'make-print-identifier)
(DEFUN make-print-identifier (&rest args)
  (let ((res (apply #'old-make-print-identifier args)))
    (PRINT `(,(pid-package res) ,(pid-name res)))
    (TYI)
    res))

(DEFF make-print-identifier #'old-make-print-identifier)