#!/usr/local/bin/clisp -norc -q -ansi
;;;; -*- mode:lisp; coding:utf-8 -*-

(setq *load-verbose* nil)
(load (merge-pathnames #p".clash.lisp" (user-homedir-pathname) nil))
(loop
   (handler-case
       (progn (terpri) (princ "> ")
              (print (eval (read *terminal-io*))))
     (error (err) (format t "~&~S~%" err))))
ViewGit