2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Apr 19 22:49:14 2003
4
;;;; Contains: Tests of REST
8
(compile-and-load "cons-aux.lsp")
11
(rest (list 'a 'b 'c))
16
(values (rest (progn (incf i) '(a b))) i))
20
(signals-error (rest) program-error)
24
(signals-error (rest nil nil) program-error)