Lines Matching refs:nth
1107 ;; nth - accessor (function)
1108 (eql-test 'foo #'nth 0 '(foo bar baz))
1109 (eql-test 'bar #'nth 1 '(foo bar baz))
1110 (eq-test nil #'nth 3 '(foo bar baz))
1111 (error-test #'nth 0 #c(1 2))
1112 (error-test #'nth 0 #(1 2))
1113 (error-test #'nth 0 "test")
1115 ;; nth-value - macro
1116 (equal-eval 'a '(nth-value 0 (values 'a 'b)))
1117 (equal-eval 'b '(nth-value 1 (values 'a 'b)))
1118 (eq-eval nil '(nth-value 2 (values 'a 'b)))
1123 (a (nth-value 1 (floor x y)))