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

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

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

revision 1.5 by pfdietz, Thu May 8 11:31:44 2003 UTC revision 1.6 by pfdietz, Sun Jul 27 18:03:51 2003 UTC
# Line 116  Line 116 
116  (deftest the.18  (deftest the.18
117    (the (values symbol integer &rest t) (values 'a 1 'foo '(x y)))    (the (values symbol integer &rest t) (values 'a 1 'foo '(x y)))
118    a 1 foo (x y))    a 1 foo (x y))
119    
120    (deftest the.19
121      (let () (list (the (values) (eval '(values)))))
122      (nil))
123    
124    ;;; This is from SBCL bug 261
125    (deftest the.20
126      (let () (list (the (values &optional fixnum) (eval '(values)))))
127      (nil))
128    
129    (deftest the.21
130      (let () (list (the (values &rest t) (eval '(values)))))
131      (nil))
132    
133    (deftest the.22
134      (the (values symbol integer &rest t) (eval '(values 'a 1 'foo '(x y))))
135      a 1 foo (x y))
136    
137    (deftest the.23
138      (multiple-value-list
139       (the (values symbol integer &optional fixnum) (eval '(values 'a 1))))
140      (a 1))
141    
142    

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

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