sbcl-test-script.l

   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)