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

(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)
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)