[clump.git] / sbcl-init-for-test.l

(defmacro named-lambda (name args &body body)
  `(labels ((,name ,args ,@body))
     #',name))

(defun reverse-list (&rest args)
  (reverse args))
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