mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

In CMP-0007-CIRCULAR-LOAD-FORM, need-to-make-load-form-p was missing an argument.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-14 19:38:02 +02:00
parent 47d8845f4c
commit 8c50ac9311
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/tests/bugs/cmp-001.lsp
View file

@ -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