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

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

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

revision 1.1 by pfdietz, Fri Sep 5 12:26:07 2003 UTC revision 1.2 by pfdietz, Sat Sep 6 23:31:41 2003 UTC
# Line 109  Line 109 
109    t)    t)
110    
111  (deftest signum.11  (deftest signum.11
112    (let ((i 0)) (values (signum (incf i)) i))    (let ((i 0)) (values (signum (the (integer 1 1) (incf i))) i))
113    1 1)    1 1)
114    

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