[pjb@kuiper :0.0 pseudo]$ clisp -ansi -norc -q
[1]> (load"init.lisp")
;; Loading file init.lisp ...
;; Loaded file init.lisp
#P"/home/pjb/src-lisp/implementations/pseudo/init.lisp"
[2]> (scheme)
;; Loading file /home/pjb/src-lisp/implementations/pseudo/pseudo.lisp ...
;; …
;; Loaded file /home/pjb/src-lisp/implementations/pseudo/pseudo.lisp
This is Pseudoscheme 2.12.

scheme[3]> ((if (= 1 2) car cdr) (cons 1 2))
2
scheme[4]> (quit)
Leaving Pseudoscheme.

[5]> (quit)
[pjb@kuiper :0.0 pseudo]$
ViewGit