;;;; -*- coding:utf-8 -*-

;; LOADER:PSEUDO.LISP
;; ----------------------------------------------------------------------
;; -- PSEUDO -- Pseudo-Scheme --
;; -----------------------------

(in-package :common-lisp-user)
(defvar *pseudoscheme-directory* *default-pathname-defaults*)
(defvar *use-scheme-read*  nil)
(defvar *use-scheme-write* t)
(pushnew :unix *features*)

(progn
  (load #P"PACKAGES:EDU;MIT;AI;PSEUDO;LOADIT.LISP")
  (load-pseudoscheme #P"PACKAGES:EDU;MIT;AI;PSEUDO;"))

(defun scheme () (ps:scheme))

;;;; THE END ;;;;
ViewGit