Add repl.png and three unused files

[yule.git] / sbcl-test-script.l

diff --git a/sbcl-test-script.l b/sbcl-test-script.l
new file mode 100644 (file)
index 0000000..61a931c
--- /dev/null
+++ b/sbcl-test-script.l
@@ -0,0 +1,16 @@
+(defmacro named-lambda (name args &body body)
+  `(labels ((,name ,args ,@body))
+     #',name))
+
+(defun reverse-list (&rest args)
+  (reverse args))
+
+(defun fake-repl ()
+  (do ((+eof+ (gensym)))
+      (nil)
+       (setf - (read *standard-input* nil +eof+))
+       (when (eq - +eof+) (return-from fake-repl))
+       (format t "~A~%" (eval -))))
+
+(setq *print-pretty* 'nil)
+(fake-repl)