;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat May 21 07:59:24 2005 ;;;; Contains: Tests of the IGNORE declarations (in-package :cl-test) (deftest ignore.1 (let ((x 'foo)) (declare (ignore x))) nil) (deftest ignore.2 (let ((x 'foo)) (declare (ignore x)) x) foo) (deftest ignore.3 (flet ((%f () 'foo)) (declare (ignore (function %f)))) nil) (deftest ignore.4 (flet ((%f () 'foo)) (declare (ignore (function %f))) (%f)) foo)