;;; -*- Mode: COMMON-LISP; Fonts: (MEDFNT HL12B HL12I MEDFNB); Package: USER; Base: 10 -*-

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;1 System Pascal Runtime Support*
;
;1  Written by PSO and SJP*
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defpackage pascalx
 (:nicknames pascal-translator)
 (:shadow 4TRUE FALSE WRITE read close trunc break error abs* 4round get*)
 )

(proclaim '(optimize (space 0)
		     (speed 0)
		     (safety 3)
		     (compilation-speed 0)))

(fs:define-canonical-type :pascal "P"
  (:unix "P")
  (:vms "PAS"))

3(DEFSYSTEM PASCALX-RUNTIME*
  (:name "Pascal Translator Runtime Support")
  (:pathname-default "2pascalx:sources;*")		   ;1 place proper directory here*
  (:module runtime  ("runtime"))
  (:compile-load runtime)
  );1pascalx-runtime