Advertisement
Guest User

Untitled

a guest
Aug 30th, 2019
155
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.27 KB | None | 0 0
  1. (defun my-restarter ()
  2.   (let ((list '(1 2 3)))
  3.     (restart-case (error "some error")
  4.       (skip () nil)
  5.       ;; Here I want to list options from list
  6.       ;; (option-1 () (car list))
  7.       ;; (option-2 () (cadr list))
  8.       ;; etc. for all list elements
  9.       )))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement