/[gcl]/gcl/ansi-tests/constantp.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/constantp.lsp

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

revision 1.4 by pfdietz, Fri Feb 14 14:07:22 2003 UTC revision 1.5 by pfdietz, Mon Feb 17 04:22:04 2003 UTC
# Line 66  Line 66 
66    t)    t)
67    
68  (deftest constantp.order.1  (deftest constantp.order.1
69      (let ((i 0))
70        (values
71         (notnot (constantp (progn (incf i) 1)))
72         i))
73      t 1)
74    
75    (deftest constantp.order.2
76    (let ((i 0) x y)    (let ((i 0) x y)
77      (values      (values
78       (notnot (constantp (progn (setf x (incf i)) 1)       (notnot (constantp (progn (setf x (incf i)) 1)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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