/[gcl]/gcl/ansi-tests/multiple-value-setq.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/multiple-value-setq.lsp

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

revision 1.1 by pfdietz, Sat Oct 19 12:55:37 2002 UTC revision 1.2 by pfdietz, Sat Oct 19 13:10:23 2002 UTC
# Line 101  Line 101 
101         `(let ,vars         `(let ,vars
102            (and (eql (multiple-value-setq ,vars (values-list (quote ,result)))            (and (eql (multiple-value-setq ,vars (values-list (quote ,result)))
103                      ,(car result))                      ,(car result))
104                 (equal (list ,@vars) (quote ,result)))))                 (equal ,(make-list-expr vars)
105                          (quote ,result)))))
106       unless (eval form)       unless (eval form)
107       collect (list i form)))       collect (list i form)))
108    nil)    nil)
 |#  
109    |#

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