Tuned tools.
[com-informatimago:com-informatimago.git] / cl-loaders / pseudo.lisp
1 ;;;; -*- coding:utf-8 -*-
2
3 ;; LOADER:PSEUDO.LISP 
4 ;; ----------------------------------------------------------------------
5 ;; -- PSEUDO -- Pseudo-Scheme --
6 ;; -----------------------------
7
8 (in-package :common-lisp-user)
9 (defvar *pseudoscheme-directory* *default-pathname-defaults*)
10 (defvar *use-scheme-read*  nil)
11 (defvar *use-scheme-write* t)
12 (pushnew :unix *features*)
13
14 (progn
15   (load (com.informatimago.tools.pathname:translate-logical-pathname #P"PACKAGES:EDU;MIT;AI;PSEUDO;LOADIT"))
16   (load-pseudoscheme (com.informatimago.tools.pathname:translate-logical-pathname #P"PACKAGES:EDU;MIT;AI;PSEUDO;")))
17
18 (defun scheme () (ps:scheme))
19 (format t "~2%Use: (scheme)~2%")
20
21 ;;;; THE END ;;;;