/[gcl]/gcl/ansi-tests/cons-test-05.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-05.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Thu Sep 26 16:53:37 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 44  Line 44 
44  (deftest rest-set-1  (deftest rest-set-1
45      (let ((x (list 'a 'b 'c)))      (let ((x (list 'a 'b 'c)))
46        (and        (and
47         (eq (setf (rest x) 'd) 'd)         (eqt (setf (rest x) 'd) 'd)
48         x))         x))
49    (a . d))    (a . d))
50  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
# Line 110  Line 110 
110    (loop    (loop
111        for e in x        for e in x
112         and i from 0         and i from 0
113         count (not (eq e (nth i x)))))         count (not (eqt e (nth i x)))))
114    
115  (deftest nth-1  (deftest nth-1
116      (nth-1-body (loop for i from 1 to 2000 collect (* 4 i)))      (nth-1-body (loop for i from 1 to 2000 collect (* 4 i)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26