From 8c50ac931174dcbb7ed882c6366eae4e5c1ad9cb Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 14 Apr 2012 19:38:02 +0200 Subject: [PATCH] In CMP-0007-CIRCULAR-LOAD-FORM, need-to-make-load-form-p was missing an argument. --- src/tests/bugs/cmp-001.lsp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/tests/bugs/cmp-001.lsp b/src/tests/bugs/cmp-001.lsp index bd2cd8531..9f608e1b4 100644 --- a/src/tests/bugs/cmp-001.lsp +++ b/src/tests/bugs/cmp-001.lsp @@ -170,12 +170,13 @@ )) (deftest cmp-0007-circular-load-form - (mapcar #'clos::need-to-make-load-form-p - (let ((l (list 1 2 3))) - (list l - (subst 3 l l) - (make-instance 'cmp-007-class) - (subst (make-instance 'cmp-007-class) 3 l)))) + (loop for object in + (let ((l (list 1 2 3))) + (list l + (subst 3 l l) + (make-instance 'cmp-007-class) + (subst (make-instance 'cmp-007-class) 3 l))) + collect (clos::need-to-make-load-form-p object nil)) (nil nil t t)) ;;; Date: 18/05/2005