From 03b935959e5b6e6fabeae44ea045c963aab84bfe Mon Sep 17 00:00:00 2001 From: pfdietz Date: Sun, 22 Aug 2004 00:50:53 +0000 Subject: [PATCH] Fixed TO-FUNCTION --- ansi-tests/ansi-aux.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index e24df14..f860418 100644 --- a/ansi-tests/ansi-aux.lsp +++ b/ansi-tests/ansi-aux.lsp @@ -37,7 +37,7 @@ (etypecase fn (function fn) (symbol (symbol-function fn)) - ((cons (eql setf) symbol) (fdefinition fn)))) + ((cons (eql setf) (cons symbol nil)) (fdefinition fn)))) ;;; Macro to check that a function is returning a specified number of values ;;; (defaults to 1) -- GitLab