]>
Commit | Line | Data |
---|---|---|
52e4bb14 MG |
1 | (defmacro named-lambda (name args &body body) |
2 | `(labels ((,name ,args ,@body)) | |
3 | #',name)) | |
4 | ||
5 | (defun reverse-list (&rest args) | |
6 | (reverse args)) | |
7 | ||
8 | (defun fake-repl () | |
9 | (do ((+eof+ (gensym))) | |
10 | (nil) | |
11 | (setf - (read *standard-input* nil +eof+)) | |
12 | (when (eq - +eof+) (return-from fake-repl)) | |
13 | (format t "~A~%" (eval -)))) | |
14 | ||
15 | (setq *print-pretty* 'nil) | |
16 | (fake-repl) |